'Figure F ------------------------ --------------------- front desk to find -------------
Function to find the map F (pictname) // Front map to find
FindPic 0,0, Plugin.Sys.GetScRX - 1, Plugin.Sys.GetScRY - 1, pic_path & pictname, 0.9, Figure looking _intX, find a map _intY
the If looking map _intx> = 0 and find a map _inty> = 0 Then
log run content = V_ current program & "F ----------> find pict : "& pictname
Call Lib common output log (journal content is running):.. TracePrint run log contents
to find Figure 1 = F
Else
log run content = V_ current program &" F pict not found: "& pictname
Call Lib common. output log (log the operation content): TracePrint operation content of the log
to find = 0 FIG. F.
End the If
End Function
'---------------------------- -----------------------
Function looking picture click F (pictname, offset X, offset Y) // foreground image click to find after
looking picture click F 0 =
FindPic 0,0, Plugin.Sys.GetScRX -. 1, Plugin.Sys.GetScRY -. 1, & PIC_PATHpictname, 0.9, find map _intX, find a map _intY
If looking FIG _intX> = 0 the Then
LockMouse
SaveMousePos
the MoveTo find FIG _intX + cint (Offset X), looking FIG _intY + cint (offset the Y)
Delay 50
LeftClick. 1
RestoreMousePos
UnlockMouse
log the current program run content = V_ & "F ----------> click PICT:" & pictname
Call Lib common output log (journal content is running):.. TracePrint run log contents
to find the chart click = 1 F
End the If
End Function
'---- -----------------------------------------------
Function looking for more than FIG. F. (pictname)
Dim the I, return values, pict
find multi FIG = 0 F.
PICT = Split (pictname, "|")
the For I = 0 the To UBound (PICT)
FindPic 0,0, Plugin.Sys.GetScRX -. 1, Plugin.Sys.GetScRY - 1, pic_path & pict ( i), 0.9, look for more map _intX, looking for more map _intY
the If looking for more map _intx> = 0 Then
log run content = "found: The first" &cstr(i + 1) & "张pict:" & pict(i)
. Call Lib common output log (journal content is running):. TracePrint log run content
to find more map F = i + 1
Exit the For
End the If
the log run content = "is not the first to find" & cstr (i + 1) & " Zhang pict: "
Call Lib common output log (log contents run):.. TracePrint content operation log
the Next
End Function
'---------------------------- -----------------------
Function, etc. Figure F (pictname)
log run content = "F .... waiting for PICT:" & pictname
Call Lib. General output log (log the operation content): TracePrint log the operation content
, etc. FIG. = 0
, etc. FIG _intX = -1
etc. FIG -1 = _intY
the For 10000
return value = find FIGS F. (pictname)
the If the return value> 0 Then
log run current program content = V_ & "B -----------> until PICT:" & pictname
. Call Lib common output log (log operation contents):TracePrint run log contents
, etc. Figure _intX = _intX map to find
such as Figure _intY = _intY map to find
such as Figure 1 = F
Exit the For
End the If
500 Delay
the Next
End Function
'-------------------------------------------- -------
Function etc. FIG click F (pictname, offset X, offset Y)
log the operation content = "waiting .... click PICT:" & pictname
. Call Lib common output log (log operation. content): TracePrint log run content
such as image click 0 =
the For 100000
FindPic 0, 0, Plugin.Sys.GetScRX - 1, Plugin.Sys.GetScRY - 1, PIC_PATH & pictname, 0.9, etc. Figure _intX, etc. Figure _intY
the If and so on FIG _intX> = 0 the Then
LockMouse
SaveMousePos
the MoveTo like FIG _intX + cint (offset X), etc. FIG _intY + cint (offset the Y)
Delay 50
LeftClick. 1
RestoreMousePos
UnlockMouse
log current program run content = V_ & "F -------------> click PICT: "& pictname
.. Call Lib common output log (journal content is running):TracePrint run log contents
Delay 50
, etc. Figure 1 click =
Exit the For
The If End
Delay 500
the Next
End Function
'------------------------------------------ ---------
Function and other FIGS F. (pictname)
Dim return values
, and other F = 0 FIG
other multi FIG _intX = -1
and other -1 = FIG _intY
the For 10000
return value = looking plurality FIG. F. (pictname)
the If the return value> 0 Then
other multi FIG. F = return value
, and other multi FIG _intX = Get FIG _intX
and other multi FIG _intY FIG _intY find =
log operation content = "until the multi-pict:" & The return value
Call Lib common output log (journal content is running):.. TracePrint log run content
Exit the For
End the If
the log run content = "traversed once, not wait until all PICT"
Call Lib common output log (journal content is running):.. TracePrint the contents of the log run
Delay 500
the Next
End Function
'----------------------------------------- ----------
// Note:.. Lib common output log (log run content) function in the command library "universal" in the same
/ *
Output Sub log (journal content)
the If V_ output run logs the Then 1 =
Call Plugin.File.WriteFileEx (V_sPath & "script log .txt", Now () & " :" & contents of the log) // here are plus execution time of the corresponding system command
End the If
End Sub
*/