脚本7.新截卡"/>
远征日服·信喵之野望 按键精灵脚本7.新截卡
由于对方的截卡行为过于猖狂,官方对其进行了限制,同时误伤到了正义的我方截卡器
这个程序就是为了修正这个bug
Text = Plugin.File.ReadFileEx("F:\id.txt")
my = split(Text, "|")
j = UBound(my)
For i= 1 to j-1two = split(my(i), ",")Rem ReloadDelay 1000FindPic 0,0,1024,768,"Attachment:\登录.bmp",1.0,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX + 10, intY + 10Delay 1000LeftClick 1Delay 3000Call Plugin.Sys.SetCLB(two(0)) KeyDown 17, 1 KeyPress 86, 1KeyUp 17, 1Delay 1000KeyPress "Tab", 1Delay 1000Call Plugin.Sys.SetCLB(two(1)) KeyDown 17, 1 KeyPress 86, 1KeyUp 17, 1Delay 500FindPic 0,0,1024,768,"Attachment:\登入.bmp",0.9,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX + 10, intY + 10Delay 500LeftClick 1End IfElse Goto ReloadEnd IfDelay 5000KeyPress "PageDown", 1Delay 1000FindPic 0,0,1024,768,"Attachment:\开始.bmp",0.9,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX+20, intY+20Delay 1000LeftClick 1Else Goto ReloadEnd IfDelay 5000KeyPress "Up", 8Delay 3000Rem RecheckFindPic 0,0,1024,768,"Attachment:\红叉.bmp",1.0,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX+5, intY+5Delay 1000LeftClick 1Delay 1000Goto RecheckEnd IfDelay 1000KeyPress "Home", 1Delay 3000FindPic 0,0,1024,768,"Attachment:\编成.bmp",1.0,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX+5, intY+5Delay 1000FindPic 0,0,1024,768,"Attachment:\交换所.bmp",1.0,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX+5, intY+5Delay 1000LeftClick 1Delay 1000For i= 1 to 100Delay 500FindPic 0,0,1024,768,"Attachment:\设置.bmp",0.8,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX + 5, intY + 5Delay 100LeftClick 1Delay 700Else Goto ReloadEnd IfFindPic 0,0,1024,768,"Attachment:\登用.bmp",1.0,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX + 5, intY + 5Delay 400LeftClick 1Delay 100FindPic 0,0,1024,768,"Attachment:\确认.bmp",0.8,intX,intYIf intX > 1 And intY > 1 Then MoveTo intX + 5, intY + 5Delay 500LeftClick 1End IfEnd IfNextElse Goto ReloadEnd IfElse Goto ReloadEnd If
Next
更多推荐
远征日服·信喵之野望 按键精灵脚本7.新截卡
发布评论