BeginThread findpictureA
Delay 100
BeginThread findpictureB
Delay 100
a = 0
b = 0
Do
Delay 200
Loop
Sub FindPictureA()
Do
If Plugin.File.IsFileExit("D:\test.bmp") = False Then
Call SS
End If
While Plugin.File.IsFileExit("D:\test.bmp") = False
Delay 500
Wend
FindPic 0, 0, 99999, 99999, "D:\test.bmp", 1, intX, intY
If intX < 0 And intY < 0 Then
FindPic 0,0,99999,99999,"Attachment:\PictureA.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
a = a + 1
Call Plugin.File.DeleteFile("D:\Loga.txt")
Call Plugin.File.WriteFileEx("D:\Loga.txt", a)
Delay 100
End If
Call ss
Else
Call ss
End If
Loop
End Sub
Sub FindPictureB()
Do
If Plugin.File.IsFileExit("D:\test.bmp") = False Then
Call SS
End If
While Plugin.File.IsFileExit("D:\test.bmp") = False
Delay 500
Wend
FindPic 0, 0, 99999, 99999, "D:\test.bmp", 1, intX, intY
If intX < 0 And intY < 0 Then
FindPic 0,0,99999,99999,"Attachment:\PictureB.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
b = b + 1
Call Plugin.File.DeleteFile("D:\Logb.txt")
Call Plugin.File.WriteFileEx("D:\Logb.txt", b)
End If
Call ss
Else
Call ss
End If
Loop
End Sub
Sub SS
Plugin.Pic.PrintScreen 0, 0, 99999, 99999, "D:\test.bmp"
Delay 200
End Sub
Delay 100
BeginThread findpictureB
Delay 100
a = 0
b = 0
Do
Delay 200
Loop
Sub FindPictureA()
Do
If Plugin.File.IsFileExit("D:\test.bmp") = False Then
Call SS
End If
While Plugin.File.IsFileExit("D:\test.bmp") = False
Delay 500
Wend
FindPic 0, 0, 99999, 99999, "D:\test.bmp", 1, intX, intY
If intX < 0 And intY < 0 Then
FindPic 0,0,99999,99999,"Attachment:\PictureA.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
a = a + 1
Call Plugin.File.DeleteFile("D:\Loga.txt")
Call Plugin.File.WriteFileEx("D:\Loga.txt", a)
Delay 100
End If
Call ss
Else
Call ss
End If
Loop
End Sub
Sub FindPictureB()
Do
If Plugin.File.IsFileExit("D:\test.bmp") = False Then
Call SS
End If
While Plugin.File.IsFileExit("D:\test.bmp") = False
Delay 500
Wend
FindPic 0, 0, 99999, 99999, "D:\test.bmp", 1, intX, intY
If intX < 0 And intY < 0 Then
FindPic 0,0,99999,99999,"Attachment:\PictureB.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
b = b + 1
Call Plugin.File.DeleteFile("D:\Logb.txt")
Call Plugin.File.WriteFileEx("D:\Logb.txt", b)
End If
Call ss
Else
Call ss
End If
Loop
End Sub
Sub SS
Plugin.Pic.PrintScreen 0, 0, 99999, 99999, "D:\test.bmp"
Delay 200
End Sub