论坛 › 已解决问题区 › 如何能退出循环，向下运行？谢谢 （已解决）

creativewwz 发表于 2011-4-26 18:11:19

如何能退出循环，向下运行？谢谢 （已解决）

本帖最后由 creativewwz 于 2011-4-26 19:31 编辑

FileInstall("QMDispatch.dll", @SystemDir & "\QMDispatch.dll")
FileInstall("helper.dll", @SystemDir & "\helper.dll")
FileInstall("WinIo.dll", @SystemDir & "\WinIo.dll")
RunWait("Regsvr32 /s " & @SystemDir & "\QMDispatch.dll")
$obj = ObjCreate("QMDispatch.QMFunction")

;循环查找图片
While 1                       
        $pos = _FindPic(1, 1, @DesktopWidth, @DesktopHeight, @ScriptDir & "\start.bmp", 1)
        If $pos > 0 Or $pos > 0 Then ;如果$pos > 0 与 $pos > 1 说明找到图片.
                MouseClick('left',$pos + 40 ,$pos + 10,1,0);发送鼠标点击
          Sleep(500)
                MouseMove(500, 500, 0)

        EndIf
        Sleep(10)

WEnd

Func _FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
        Dim $pos
        $foundpixel = $obj.FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
        $pos = Int($foundpixel / 8192)
        $pos = Mod($foundpixel, 8192)
        Return $pos
EndFunc   ;==>_FindPic
;如何能找到图片后，退出循环，向下运行？
Sleep(1000)
MouseClick("left", 0, 500, 2)

posheng 发表于 2011-4-26 18:55:19

MouseMove(500, 500, 0)
后加
ExitLoop
就可以了吧？

love5173 发表于 2011-4-26 19:05:23

if 找到图片
then 点击
ExitLoop
endif

creativewwz 发表于 2011-4-26 19:27:10

MouseMove(500, 500, 0)
后加
ExitLoop
就可以了吧？
posheng 发表于 2011-4-26 18:55 http://www.autoitx.com/images/common/back.gif


    可以啦，谢谢 看来我还要更加努力学习啊，谢谢！！

creativewwz 发表于 2011-4-26 19:29:35

if 找到图片
then 点击
ExitLoop
endif
love5173 发表于 2011-4-26 19:05 http://www.autoitx.com/images/common/back.gif


    已解决，if方法没有试！不知道怎么写，请指教

查看完整版本: 如何能退出循环，向下运行？谢谢 （已解决）