shuiwang 发表于 2009-3-26 02:50:26

新手求教！！！！！！！

#include <GuiConstants.au3>
$width=110
$height=170
$left=10
GuiCreate("拉车", $width, $height,(@DesktopWidth-$width)/2, (@DesktopHeight-$height)/2)
$button1= GuiCtrlCreateButton("接东", $left, 10, 40, 30)
GuiSetState()

While 1
   $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
Case $msg = $button1
_1()
EndSelect
WEnd



Func _1()   

sleep(5000)
While 1
send("{END}")
sleep(500)
MouseClick("left",97,355,1,5)
sleep(500)
MouseClick("left",26,98,1,5)
sleep(500)
send("{DOWN 16}")
sleep(500)
MouseClick("left",33,354,1,5)
sleep(1000)
MouseClick("left",160,57,1,5)
sleep(1000)
MouseClick("left",198,120,1,5)
sleep(1000)
MouseClick("left",202,123,1,5)
sleep(1000)
MouseClick("left",70,124,1,5)
sleep(1000)
MouseMove(759, 25)
$color = 0x5A5A29
If PixelGetColor(759, 25) == $color Then
        send("{2}")---------------------------------我想在这里跳回到重新运行。该怎么做？？？？？？
Else
        send("{LEFT}")
EndIf
sleep(301000)
send("{LEFT}")
send("{6}")
WEnd
EndFunc

[ 本帖最后由 shuiwang 于 2009-3-27 01:10 编辑 ]

akmm88 发表于 2009-3-26 02:56:23

直接在那里加入 _1()

akmm88 发表于 2009-3-26 02:59:32

如果你怕多次的递归造成大量资源消耗的话,弄个返回值吧.

If PixelGetColor(759, 25) == $color Then
      send("{2}")---------------------------------我想在这里跳回到重新运行。该怎么做？？？？？？
    return 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Else
      send("{LEFT}")
EndIf
sleep(301000)
send("{LEFT}")
send("{6}")
WEnd
return 0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
EndFunc

#####################
Case $msg = $button1
while_1()
wend
EndSelect

akmm88 发表于 2009-3-26 03:01:47

以后写东西前,一定要先想好,思路要明确.3点了,睡觉了

shuiwang 发表于 2009-3-27 01:07:52

谢谢了。。。。。。。。
页: [1]
查看完整版本: 新手求教！！！！！！！