按键精灵具体怎么用药详细点具体制
我挺间用 我知道~ 试 OK废说 按键精灵 新键文本文档 写入： [General] Description=我脚本 BeginHotkey=121 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 Run EnableWindow= Enable=1 Type=0 Number=1 [CallBack] OnSetup= [Comment] Content= [Script] VBSCall MessageBox(请使用窗口模式) //弹信息 VBSCall F=Input...全部
我挺间用 我知道~ 试 OK废说 按键精灵 新键文本文档 写入： [General] Description=我脚本 BeginHotkey=121 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 Run EnableWindow= Enable=1 Type=0 Number=1 [CallBack] OnSetup= [Comment] Content= [Script] VBSCall MessageBox(请使用窗口模式) //弹信息 VBSCall F=InputBox("输入梦幻路径") //叫输入路径防止梦幻窗口错误关闭 VBSCall MessageBox("请点确定鼠标移挤区位置按任意键继续 ") //弹信息请鼠标放新区 WaitKey //等待按键盘任何键执行 VBSCall GetCursorPos(x0,y0) //按任何键纪录鼠标位置 Rem 1 //标记用跳转 Plugin A=Window。
Find("WSGAME","梦幻西游ONLINE") //查找梦幻窗口句丙放AA=0证明没找面处理 Plugin s = Window。
GetClientRect(A) //面查找窗口范围信息 MyArray = Split(s, "|", -1, 1) //解位信息 4变量 x1=MyArray(0) //变量1给x1 y1=MyArray(1) //同 x3=x0-x1 //计算纪录鼠标位置窗口位置差值相x坐标 y3=y0-y1 //相Y坐标 Rem 2 //标记2 If a<>0 //判断查找梦幻窗口没找 MoveTo x1+x3,y1+y3 //移纪录新区位置 LeftClick 1 //电击 Delay 800 //延必要哦 Rem 3 //标记3 IfColor x1+332,y1+234,f8fcf8,0 //判断否超我通变化点颜色判断没超继续检测面两句等待200MS Delay 200 //延 Goto 3 //继续检测 Else //超 MoveTo x1+356,y1+307 //移并点击取消按钮 LeftClick 1 Delay 200 Goto 1 //跳转标记1 EndIf Else //没运行梦幻 自运行 VBSCall RunApp(F) Goto 1 EndIf 保存放 scrips文件夹 完毕。收起
