按键精灵怎么清空赋值的变量?
DimwdPluginwd=Window.Foreground()PluginWindow.Move(wd,0,0)Rem开始MoveTo675,607Delay500L...
Dim wd
Plugin wd = Window.Foreground()
Plugin Window.Move(wd, 0, 0)
Rem 开始
MoveTo 675,607
Delay 500
LeftClick 1
MoveTo 490,258
Delay 500
LeftClick 1
MoveTo 675,607
Delay 500
LeftClick 1
a=0:b=120
Rem 计时1
Delay 1000
a=a+1
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, a, "0000FF")
If a=b
a=0
Goto 开始
Else
MoveTo 373,312
IfColor 373,312,7bfaff,0
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Goto 打怪
EndIf
EndIf
Goto 计时1
Rem 打怪
Delay 500
MoveTo 675,607
Delay 500
LeftClick 1
MoveTo 407,258
Delay 500
LeftClick 1
MoveTo 675,607
Delay 500
LeftClick 1
a=0:b=120
Rem 计时2
Delay 1000
a=a+1
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, a, "0000FF")
If a=b
a=1
Goto 重打
Else
VBSCall FindPic(0,0,1024,768,"Attachment:\来.bmp",0.73,intX,intY)
If intX > 0 and intY > 0
MoveTo intX+50,intY+7
Delay 500
LeftClick 2
Goto 完成
EndIf
EndIf
Goto 计时2
Rem 重打
Delay 500
MoveTo 767,41
LeftClick 1
Delay 500
MoveTo 301,182
LeftDoubleClick 1
Delay 8000
MoveTo 675,607
LeftClick 1
Delay 500
MoveTo 407,258
Delay 500
LeftClick 1
Goto 计时2
dim c
dim d
c=0:d=60
Rem 完成
Delay 1000
c=c+1
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, c, "0000FF")
If c=d
Goto 2
Else
VBSCall FindPic(0,0,1024,768,"Attachment:\任务完成.bmp",0.75,intX,intY)
If intX > 0 and intY > 0
MoveTo intX+50,intY+7
Delay 1000
LeftClick 1
Goto 开始
EndIf
EndIf
Goto 完成
以上代码,a累加到120时跳转条件,之后是100的累加,而不是从0开始,1的累加,这是怎么回事,求大侠解答,急啊。。。 展开
Plugin wd = Window.Foreground()
Plugin Window.Move(wd, 0, 0)
Rem 开始
MoveTo 675,607
Delay 500
LeftClick 1
MoveTo 490,258
Delay 500
LeftClick 1
MoveTo 675,607
Delay 500
LeftClick 1
a=0:b=120
Rem 计时1
Delay 1000
a=a+1
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, a, "0000FF")
If a=b
a=0
Goto 开始
Else
MoveTo 373,312
IfColor 373,312,7bfaff,0
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Goto 打怪
EndIf
EndIf
Goto 计时1
Rem 打怪
Delay 500
MoveTo 675,607
Delay 500
LeftClick 1
MoveTo 407,258
Delay 500
LeftClick 1
MoveTo 675,607
Delay 500
LeftClick 1
a=0:b=120
Rem 计时2
Delay 1000
a=a+1
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, a, "0000FF")
If a=b
a=1
Goto 重打
Else
VBSCall FindPic(0,0,1024,768,"Attachment:\来.bmp",0.73,intX,intY)
If intX > 0 and intY > 0
MoveTo intX+50,intY+7
Delay 500
LeftClick 2
Goto 完成
EndIf
EndIf
Goto 计时2
Rem 重打
Delay 500
MoveTo 767,41
LeftClick 1
Delay 500
MoveTo 301,182
LeftDoubleClick 1
Delay 8000
MoveTo 675,607
LeftClick 1
Delay 500
MoveTo 407,258
Delay 500
LeftClick 1
Goto 计时2
dim c
dim d
c=0:d=60
Rem 完成
Delay 1000
c=c+1
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, c, "0000FF")
If c=d
Goto 2
Else
VBSCall FindPic(0,0,1024,768,"Attachment:\任务完成.bmp",0.75,intX,intY)
If intX > 0 and intY > 0
MoveTo intX+50,intY+7
Delay 1000
LeftClick 1
Goto 开始
EndIf
EndIf
Goto 完成
以上代码,a累加到120时跳转条件,之后是100的累加,而不是从0开始,1的累加,这是怎么回事,求大侠解答,急啊。。。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询