弹弹堂按键精灵卡机脚本

自由力：VBSCall FindColor(282,660,820,880,"A0A1FF",intX,intY)
If intX>4 and intY>0
intX=intX-4
intY=intY+15
Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "已经开始自由力控制！"&PU, "0000FF")
VBSCall GetColor1=GetPixelColor(intX,intY)
KeyDown 32,1
Delay (intX-278)*5
While true
VBSCall GetColor=GetPixelColor(intX,intY)
Delay 21
If getcolor<>getcolor1
KeyUp 32,1
Plugin Msg.ShowScrTXT()
EndScript
EndIf
EndFor
Else
EndIf测屏幕Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "请输入第一屏幕位置！按任意键继续！"&PU, "0000FF")
Delay 250
WaitKey
VBSCall GetCursorPos(x1,y1)
Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "请输入第二屏幕位置！"&PU, "0000FF")
Delay 250
WaitKey
VBSCall GetCursorPos(x2,y2)
Plugin File.WriteINI("main","number",x1-x2,"c:\text.ini")
Plugin Msg.HideScrTXT()
测距离//Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "已经开始测距！"&PU, "0000FF")
//Delay 250
//WaitKey
//VBSCall GetCursorPos(x1,y1)
//Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "请输入第二屏幕位置！"&PU, "0000FF")
//Delay 250
//WaitKey
//VBSCall GetCursorPos(x2,y2)
VBS dim i
Plugin x=File.ReadINI("main","number","c:\text.ini")
Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "请输入第一目标位置！"&PU, "0000FF")
Delay 250
WaitClick
VBSCall GetCursorPos(x3,y3)
Plugin Msg.ShowScrTXT(550, 210, 1024, 310, "请输入第二目标位置！"&PU, "0000FF")
Delay 250
WaitClick
VBSCall GetCursorPos(x4,y4)
Plugin Msg.HideScrTXT()
Plugin Msg.ShowScrTXT(550, 210, 1024, 310, abs(round((x3-x4)/(x)*1000)/100)&PU, "0000FF")
KeyDown 18,1
KeyPress 9,1
KeyPress 9,1
KeyUp 18,1
SayString abs(round((x3-x4)/(x)*1000)/100)
KeyPress 13,1
SayString "qq"
KeyPress 13,1
KeyPress 106,1
Plugin Msg.HideScrTXT()以上是我提供的脚本。欢迎楼主采纳~

亲爱的玩家，您好：
非常抱歉，您的要求无法满足，请您亲身在游戏中体验，谢谢。
第七大道官网客服很高兴为您服务