|
本帖最后由 konglijun 于 2009-7-6 02:56 编辑
确定
Line -1:
Error: 子脚本使用了非数组变量.
这是为什么,我要编辑器里运行的一点都没有错,一编译成.exe后运行,就报错.........哪位帮帮忙
加上错误停止的这块代码
Func jx()
WinActivate($Win[1][1])
$array = WinGetPos($Win[1][1])
$rc = 50
Sleep(1000)
For $B = 1 To 6
ToolTip("找医生", 0, 0)
Sleep(1000)
$result = _ImageSearchArea(@ScriptDir & "\医" & $B & ".bmp", 1, $array[0],$array[1],$array[2],$array[3], $x1, $y1, $rc)
If $result = 1 Then
MyMouseMovee($x1, $y1 + 10, 2, 2)
Sleep(100)
MouseDown("left")
Sleep(100)
MouseUp("left")
ExitLoop
EndIf
Next
If $result = 1 Then
For $i = 1 To $Win[0][0]
WinActivate($Win[$i][1])
While 1
Sleep(500)
$coord4 = PixelSearch(167, 322, 364, 464, 0x08F448, 1)
If Not @error Then
Sleep(300)
MyMouseMovee($coord4[0], $coord4[1] + 2, 2, 2)
Sleep(100)
MouseDown("left")
Sleep(100)
MouseUp("left")
ExitLoop
EndIf
WEnd
While 1
Sleep(500)
$coord3 = PixelSearch(167, 322, 330, 304, 0xF8FCF8, 1)
If Not @error Then
MyMouseMovee($coord3[0], $coord3[1] + 2, 2, 2)
Sleep(100)
MouseDown("left")
Sleep(100)
MouseUp("left")
ExitLoop
EndIf
WEnd
Next
EndIf
If $result = 1 Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>jx |
|