本帖最後由 gg2255 於 2010-1-1 00:56 編輯
特別聲明一下_好像還有很多人看不懂怎麼使用_有些.BMP檔是要在按精抓點抓色那邊使用抓圖片檔_要把它抓下來然後將抓下來的bmp檔放在按精目錄裡面的子目錄裡面
掛划船
[General]
Description=
BeginHotkey=49
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=49
StopHotkeyMod=1
RunOnce=0
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
Gosub 調整窗口
VBS Dim xx=0
Rem t
For 12
KeyDown 37 1
Delay 1400
KeyUp 37 1
Delay 500
KeyPress 27 1
Rem 4
KeyPress 27 1
KeyPress 112 1
IfColor 695 250 ffffff 0
Delay 200
KeyPress 115 1
Delay 200
Else
IfColor 695 250 909090 0
KeyPress 119 1
EndIf
Delay 100
Goto 4
EndIf
IfColor 78 146 343434 0
KeyPress 112 1
Delay 600
KeyPress 119 1
Delay 500
KeyPress 27 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 694 142 ffffff 0
KeyPress 113 1
Delay 500
KeyPress 27 1
Else
MoveTo 670 110
Delay 200
LeftClick 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 694 88 ffffff 0
KeyPress 112 1
Delay 500
Else
MoveTo 670 110
Delay 200
LeftClick 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 694 196 ffffff 0
KeyPress 114 1
Delay 500
KeyPress 27 1
Else
MoveTo 670 110
Delay 500
LeftClick 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 752 196 ffffff 0
KeyPress 118 1
Delay 500
KeyPress 27 1
Else
MoveTo 670 110
Delay 500
LeftClick 1
EndIf
Delay 1000
EndFor
KeyPress 27 1
Delay 200
Gosub hfg
Delay 200
Goto t
Sub hfg
KeyPress 117 1
Delay 2000
If xx<5
KeyPress 40 1
Delay 100
MoveTo 352 130
LeftClick 1
Delay 1000
KeyPress 38 1
Delay 100
KeyPress 13 1
Else
KeyPress 38 1
Delay 100
MoveTo 352 130
LeftClick 1
Delay 1000
KeyPress 40 1
Delay 100
KeyPress 13 1
EndIf
VBS xx=(xx+1)
If xx=10
VBS xx=0
EndIf
Return hfy
Sub 調整窗口
Rem cb11
VBSCall Call FindPic(0,0,1023,767,"gq.bmp",0.9,intX,intY)
If Not(intx=4 and inty=4)
MoveTo intx+100 inty-1
LeftDown 1
Delay 2500
MoveTo 104 4
Delay 1000
LeftUp 1
Delay 500
LeftClick 1
Delay 500
EndIf
MoveTo 161 483
If intX=-1 and intY=-1
MoveTo 20 20
LeftDown 1
Delay 3500
MoveTo 304 304
Delay 1000
LeftUp 1
Delay 500
LeftClick 1
Goto 調整窗口
EndIf
Return 調整窗口 |
收藏
分享
讚
幹
分享
分享
