找回密码
 加入
搜索
查看: 2535|回复: 1

子脚本使用了非数组变量.

[复制链接]
发表于 2009-7-6 02:38:25 | 显示全部楼层 |阅读模式
本帖最后由 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
发表于 2009-7-6 07:30:44 | 显示全部楼层
吧全部搞上来吧,这只是func,数组都在上面
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 15:34 , Processed in 0.091354 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表