求SD敢达的脚本！

来源：百度知道 编辑：UC知道 时间：2024/07/05 05:35:38
要上次更新后在按键7还能用的,会充电的！或是帮我改成能充电的！
[General]
Description=??
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=122
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=20000
[Relative]
SetupOCXFile=
[Comment]
Content=【功能说明】
<SD敢达>按键精灵脚本
【使用说明】
<打开游戏进入房间后按F10开始，按F11暂停>
【作者介绍】
不是天空做的^_^
【制作日期】
<2009-1-32>

[Script]
KeyPressS 116,1
Delay 1000
KeyPressS 51,1
RightDownS 1
KeyPressS 27,1
LeftClickS 1
LeftClickS 1
KeyPressS 50,1
KeyDownS 83,1
LeftClickS 1
LeftClickS 1
LeftClickS 1
Delay 1000
Delay 3000
Delay 2000
LeftDoubleClickS 1
LeftDoubleClickS 1
KeyDownS 83,1
Delay 300
KeyPressS 116,1
Delay 2000
RightUpS 1
RightDownS 1
LeftDoubleClickS 1
LeftDoubleClickS 1

[Script]
Rem 查找准备标记
Delay 300
MoveTo 0 0
x = -1
y = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y)
EndWhile
Delay 100
Delay 100
x = -1
y = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"充电提示.bmp",1,x,y)
Delay 100
a = a+1
If a > 5
Goto 查找本机位置
EndIf
EndWhile
Delay 100
Goto 查看自己是否房主
Rem 查找本机位置
Delay 100
x = -1
y = -1
intx = -1
inty = -1
tx = -1
ty = -1
While x = -1 and y = -1
VBSCall FindPic(0,0,1024,734,"拳头.bmp",1,x,y)
VBSCall FindPic(0,0,1024,734,"布.bmp",1,intx,inty)
If intx > 0 and inty > 0
Delay 100
MoveTo intx+60 inty+120
Delay 100
RightClick 1
Delay 100
Goto 找充电选项
EndIf
VBSCall FindPic(0,0,1024,734,"剪刀.bmp",1,tx,ty)
If