RT

[General]
Description=航海挂机
BeginHotkey=123
BeginHotkeyMod=0
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[Comment]
Content=
[Script]
VBS Dim m
VBS Dim n
VBS Dim x
VBS Dim y
VBS Dim a
VBS Dim b
VBSCall Call GetScreenResolution(m,n)
Rem gua
VBSCall Call FindPic(0,0,m,n,"海洋.bmp",0.9,x,y)
If x>0
Gosub guaji
Else
VBSCall Call FindPic(0,0,m,n,"陆地.bmp",0.9,x,y)
If x>0
Gosub ludi
Gosub haiyang
EndIf
EndIf
Goto gua
EndScript
Sub ludi
MoveTo 731 420
Delay 358
LeftClick 1
Delay 2701
MoveTo 616 454
Delay 346
LeftClick 1
Delay 2503
MoveTo 674 125
Delay 255
LeftClick 1
Delay 2003
LeftClick 1
Delay 2023
MoveTo 372 142
Delay 349
LeftClick 1
Delay 1025
MoveTo 63 160
Delay 343
LeftClick 1
Delay 1007
MoveTo 97 162
Delay 358
LeftClick 1
Delay 1506
LeftClick 1
Delay 1515
LeftClick 1
Delay 1526
LeftClick 1
Delay 1524
LeftClick 1
Delay 1517
LeftClick 1
Delay 1516
LeftClick 1
Delay 1511
LeftClick 1
Delay 1512
KeyPress 27 1
Delay 1537
MoveTo 379 155
Delay 349
LeftClick 1
Delay 1035
LeftClick 1
Delay 10031
Return
Sub haiyang
MoveTo 647 144
Delay 313
LeftClick 1
Delay 20001
MoveTo 404 26
Delay 312
LeftClick 1
Delay 2012
LeftClick 1
Delay 60000
Return
Sub guaji
MoveTo 100 31
Delay 2055
Gosub dian
Delay 2054
Gosub dian
Delay 2053
Gosub dian
Delay 2052
Gosub dian
Delay 45002
MoveTo 681 522
Delay 2056
Gosub dian
Delay 2057
Gosub dian
Delay 2058
Gosub dian
Delay 2059
Gosub dian
Delay 45001
Return
Sub dian
VBSCall Call FindPic(0,0,m,n,"海洋.bmp",0.9,x,y)
If x>0
LeftClick 1
Else
Goto gua
EndIf
Return
上面脚本

好像是写到记事本里放在神马神马目录下吧其实我是猜的

=.=写到记事本然后窜后改成vbs么..

我看懂了