按键精灵源代码整理汇总
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码在剑灵右上角的小地图里找色/找图，箭头坐标存储在(x1,y1)，箭尾坐标存储在(x2,y2) FindColor1200,0,1920,300,"箭头颜色",x1,y1If x1 > 0 And y1> 0 ThenEnd IfFindColor1200,0,1920,300,"箭尾颜色",x2,y2If x1 > 0 And y1> 0 ThenEnd If'计算斜率/正切值斜率= (y1 - y2) / (x1 -x2)'计算角度角度= Atn(斜率)二、用按键精灵解决用户密码泄露问题的代码Function 加解密(源文件, 秘钥)Dim Z, iDim A, B, C加解密= ""If Len(源文件) = 0 Then’如果密码为空，则初始化为空加解密= ""Exit FunctionEnd If'调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列Z = Rnd(-秘钥)For i = 1 To Len(源文件)’将密码字符串一个一个字符通过加密，转换成另一个字符C = Mid(源文件, i, 1)A = Asc(C)B = Int(126 * Rnd) And&H7F’这里的&H7F，是指生成的伪随机代码，只取7位，以免数据溢出A = A Xor B’Xor是可逆的，第一次运行时是得到加密后的数据，再运行一次是得到解密后的数据C = Chr(A)加解密= 加解密+ CNextEnd Function举个例子吧~Function 加解密(源文件, 秘钥)Dim Z, iDim A, B, C加解密= ""If Len(源文件) = 0 Then加解密= ""Exit FunctionEnd If'调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列Z = Rnd(-密钥)For i = 1 To Len(源文件)C = Mid(源文件, i, 1)A = Asc(C)B = Int(126 * Rnd) And&H7FA = A Xor BC = Chr(A)加解密= 加解密+ CNextEnd FunctionEvent Form1.Load//获取小节名（如"e1df741f-d5ec-4ad7-969d-adb139c6a24f"），同一个Q文件生成的小节名不变a = GetMacroID()//获取到当前脚本/小精灵de ID加密文件=Plugin.File.ReadINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1 .InputBox2.T ext", ".\uservar.ini")解密文件= 加解密(加密文件, 1234567890)'这里的1234567890是假使的密钥，可以修改，注意保密Form1.InputBox2.T ext = 解密文件End Event//写入密码信息源文件= Form1.InputBox2.T ext加密文件= 加解密(源文件, 1234567890)CallPlugin.File.WriteINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1.InputBox2.T ext", 加密文件, ".\uservar.ini")//输出信息RunApp "notepad.exe"SayString Form1.InputBox1.T extKeyPress "Enter", 1SayString 源文件三、按键精灵快速排序的代码su = "6|1|2|7|9|3|4|5|10|8"su=Split(su, "|")L = UBound(su)Call ks(0, L)Function ks(L, B)If L > B ThenExit FunctionEnd If //判断数组上标下标是否超出范围i = Lj = Bkey =int( su(L) ) //数组第一位提取作为基数While j>iWhile int ( su(j)) >= key and j > i //要先从最右边开始找找到第一个小于key的数这里添加的j>i的判断是为了防止j的值不断递减导致下标越界j = j - 1WendWhile int (su(i)) <= key and j > i //从最左边开始找找到第一个大于key的数（这里的字符串数组需要转换为数值型）i = i + 1WendIf j>i then // 将和基数key对比得到的两个数对换将大于key的值往右边放小于key的值往左边放T = su(i)su(i) = su(j)su(j) = TEnd IfWend // 这个While 循环当i=j 第一轮比较完退出su(L) = su(i) // 重新设置数组第一个元素为基数su(i) = key// 基数归位（排完一轮之后左边的数<基数<右边的数那么基数就到了排序中它该在的位置。
按键精灵命令大全
第1页共11页
按键精灵命令大全
小技巧：按Ctrl+F，输入命令，即可进行查找定位
键盘命令
键盘模拟命令
[KeyPress]"按下再弹起"键[KeyDown]"按下"键[KeyUp]"弹起"键
键盘控制命令
[WaitKey]等待按键[GetLastKey]获取上一次按键码
鼠标命令
鼠标模拟命令
例子:在脚本开始的时候使用这个命令，可以有效防止用户误触鼠标引起脚本执行出错
[UnlockMouse]
格式: UnlockMouse
解释:解除LockMouse命令对鼠标位置的锁定。如果用户使用了LockMouse命令而没有使用UnlockMouse命令，
格式: RestoreMousePos
解释:将鼠标移动到上一次保存的鼠标位置
例子:保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,
这样脚本执行后鼠标的位置就不会变化
[LockMouse]
格式: LockMouse
解释:锁定鼠标位置，用户将不能通过移动鼠标而改变鼠标位置，而脚本仍可以改变鼠标位置
运行一个程序,或打开一个文件
按键精灵命令大全
第2页共11页
[VBSCall SayString]
输入文本.
[VBSCall SetCursorPos]
设置鼠标位置
[VBSCall GetCursorShape]
获得鼠标形状
键盘命令介绍
键盘命令分为两大类：键盘模拟命令和键盘控制命令。键盘模拟命令可以模拟我们日常操作键盘的行为。操作
的”按键”动作.
鼠标按键精灵（源码+程序）
鼠标按键精灵（源码+程序）#include#include#include#include#AutoIt3Wrapper_Res_Description=MarinaClick#AutoIt3Wrapper_Res_Fileversion=1.01Beta#AutoIt3Wrapper_Res_Language=English#Region ### START Koda GUI section ### Form=HotKeySet("{F1}", "Focus")HotKeySet("{F2}", "Active")HotKeySet("{F3}", "Pause")HotKeySet("{ESC}", "Terminate")Global $pos, $index, $target, $locked = 0, $flag = 1, $inf = 0$Form2 = GUICreate("MarinaClick", 270, 160, 270, 150)$Input1 = GUICtrlCreateInput("5", 112, 8, 41, 21)$Label1 = GUICtrlCreateLabel("Set Delay:", 32, 8, 76, 22)GUICtrlSetFont(-1, 12, 400, 0, "Arial")$Label2 = GUICtrlCreateLabel("Seconds", 160, 8, 66, 22)GUICtrlSetFont(-1, 12, 400, 0, "Arial")$Label3 = GUICtrlCreateLabel("F1 = Focus | F2 = Active | F3 = Pause", 20, 80, 260, 21)GUICtrlSetFont(-1, 11, 400, 0, "Arial")$Label4 = GUICtrlCreateLabel("Current Statue:", 20, 107, 108,22)GUICtrlSetFont(-1, 12, 400, 0, "Arial")$Label5 = GUICtrlCreateLabel("Standby", 150, 100, 97, 34)GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")GUICtrlSetColor(-1, 0x008000)$Label6 = GUICtrlCreateLabel("Repeat:", 48, 32, 59, 22)GUICtrlSetFont(-1, 12, 400, 0, "Arial")$Input2 = GUICtrlCreateInput("10", 112, 32, 41, 21)$Label7 = GUICtrlCreateLabel("Times", 160, 32, 47, 22)GUICtrlSetFont(-1, 12, 400, 0, "Arial")$Label7 = GUICtrlCreateLabel("Leave blank for Infinite-Loop mode", 35, 56, 260, 22)GUICtrlSetFont(-1, 10, 400, 0, "Arial")$Progress1 = GUICtrlCreateProgress(5, 135, 260, 10)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###While 1$nMsg = GUIGetMsg()Switch $nMsgCase $GUI_EVENT_CLOSEExitEndSwitchWEndFunc Focus()$pos = MouseGetPos()$locked = 1GUICtrlSetData($Label5, "Ready")TrayTip("Tips", "Position Locked -- ("&$pos[0]&","&$pos[1]&")", 5, 1)EndFuncFunc Terminate()ExitEndFuncFunc Active()If $locked <> 1 ThenMsgBox(16, "Warning", "Pls focus on a click position by pressin' [F1] bfr activing process.")ElseLoopBlock()EndIfEndFuncFunc LoopBlock()TrayTip("Tips", "Working in progress...", 5, 1)GUICtrlSetData($Label5, "Actived")If GUICtrlRead($Input2) <> "" ThenLoop()ElseInfLoop()EndIf;ProgData()GUICtrlSetData($Label5, "Standby")GUICtrlSetData($Progress1, 0)TrayTip("Tips", "Process finished", 5, 1)EndFuncFunc ProgData()GUICtrlSetData($Progress1, $index*100/$target) EndFuncFunc Loop()$index = 1$target = GUICtrlRead($Input2)While $index <> $target+1ProgData()MouseClick("left", $pos[0], $pos[1])sleep(GUICtrlRead($Input1)*1000)$index += 1WEnd$locked = 0EndFuncFunc InfLoop()$inf = 1While $flagMouseClick("left", $pos[0], $pos[1])sleep(GUICtrlRead($Input1)*1000)WEnd$flag = 1$inf = 0EndFuncFunc Pause()If $inf = 1 Then$flag = 0ElseMsgBox(16, "Warning", "Pause function,[F3], could ONLY be used under Infinite-mode.")EndIfEndFunc。
(完整版)按键精灵常用脚本命令汇集
//~~~~~~~~~~{[做后台的准备]}~~~~~~~~~~~//下面,用标题名来找父窗口Hwnd = Plugin.Window.Find(0, "无标题- 记事本")//下面,根据父窗口来找子窗口(找对了标题名才有效)HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, 0)//下面,用程序名来找父窗口Hwnd = Plugin.Window.Find("Notepad", 0)//下面,根据父窗口来找子窗口（找对了类名才有效）Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)//~~~(也可以改指定程序的标题名来得来句柄)~~~//下面，将指定程序名的标题名变为变量Hwnd = Plugin.Window.Find("Notepad", 0)//改变窗口标题Call Plugin.Window.SetText(Hwnd,"AJJL")//*********》之后可加第一种父子窗口就OK了《*********//~~~如果以上都不行，只剩下最后一种方法~~~~//下面，鼠标指向的程序定为Hwnd这个变量（不过一定要加标记，否则变为假后台）hwnd=Plugin.Window.MousePoint()Rem starGoto star//区域模糊找色//（XY，是坐标）（后面的是句柄，左X，上Y，右X，下Y，16位颜色，找的方式，相似度）XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)//将XY坐标变为变量，再折分成X坐标和Y坐标。
MyArray = Split(XY, "|")X = Clng(MyArray(0)): Y = Clng(MyArray(1))//后台判色Color = Plugin.Bkgnd.GetPixelColor(hwndex,300,150)If color = "020503" Then//根据固定32位地址的值加红蓝（HP少于就。
按键精灵命令大全
按键精灵命令大全小技巧:按Ctrl+F，输入命令，即可进行查找定位键盘模拟命令[KeyPress]"按下再弹起"键 [KeyDown]"按下"键 [KeyUp]"弹起"键键盘命令键盘控制命令[WaitKey]等待按键 [GetLastKey]获取上一次按键码鼠标模拟命令[LeftClick]模拟点击鼠标左键 [RightClick]模拟点击鼠标右键[MiddleClick]模拟点击鼠标中键 [LeftDoubleClick]模拟双击鼠标左[LeftDown]模拟按下鼠标左键 [LeftUp]模拟松开鼠标左键键[RightDown]模拟按下鼠标右键 [RightUp]模拟松开鼠标右键[MoveTo]移动鼠标 [MoveR]鼠标相对移动 [MouseWheel]滚动鼠标滚轮鼠标命令鼠标控制命令[WaitClick]等待按鼠标 [GetLastClick]获取上一次按下的鼠标代码鼠标辅助命令[SaveMousePos]保存当前鼠标位置 [RestoreMousePos]将鼠标移动到上一次保存的鼠标位置 [LockMouse]锁定鼠标位置 [UnlockMouse]解除鼠标锁定流程控制命令[If]判断语句 [Goto]跳转语句 [Rem]Goto命令的标记，也可以做注释[While] ... [EndWhile]循环 [For] ... [EndFor]循环 [EndScript]脚本结束控制命令颜色控制命令[IfColor]判断屏幕x,y坐标的某点的颜色，来执行后面的动作或控制过程[Sub] . [Return]定义过程 [Gosub]调用过程[Delay]脚本暂停执行 [MessageBox]弹出一个窗口 [SayString]输入文字,支持变量 [Import]导入VBS或插件命令 [VBSBegin] ...[VBSEnd]VBS区块 [VBS]单行VBS指令其他命令 [Plugin]调用一个外部插件提供的函[VBSCall]执行外部VBScript函数 [UserVar]用户自定义设置数[PutAttachment]展开附件 [//]注释命令 [TracePrint]调试窗口显示文字[VBSCall Delay] [VBSCall FindCenterColor] [VBSCall FindColor] 脚本停止执行一段时间，支持变量从屏幕某个区域的中间开始找色在屏幕指定区域从左到右找色[VBSCall FindPic] [VBSCall FindColorEx] [VBSCall GetCursorPos] 模糊找色功能获得当前鼠标的坐标找图片，可设定相似度[VBSCall GetPixelColor] [VBSCall GetScreenResolution] [VBSCall InputBox] VBS命令获得指定位置点的颜色获得当前屏幕分辨率 "弹出"对话框允许用户输入文字[VBSCall MessageBox] [VBSCall ReadMemory] [VBSCall RunApp] 弹出对话框,支持变量读取本机指定内存地址的数值运行一个程序,或打开一个文件 [VBSCall SayString] [VBSCall SetCursorPos] [VBSCall GetCursorShape] 输入文本. 设置鼠标位置获得鼠标形状键盘命令介绍Million. Water quality standards the dredging of river boundary section obtained provincial environmental protection Office special bonuses for wetland construction ... ... Million. But sober see, theseachievements were made in the case of decreased rainfall for two consecutive years, we realize that environmental protection work still faced many problems in our County. Mainly in the PM2.5 and PM10 air quality monitoring indicators often exceeding, dredging of riversection's water quality is not stable, and rural non-point source pollution has not been radical, Wade through the corporate environmental risk, livestock pollution rebound from severe, a wealth of protection and use of water resources is not well. If this year's rainfall, these problems will be exposed, and raw materials caused a great deal of pressure to go green. To solve these problems, we focused on three aspects of the work of environmental protection: (a) in accordance with the ... ... Real good green. According to the "Garden City, roads, tree-lined, mountain forests of" principle, to develop "governance focused piece, scale" afforestation programmes, and actively implement the barren hills green, River afforestation increased, City Green, farmland and other greening works to ensure complete afforestation thisyear ... ... Acres and acres and afforestation in the plain ... ... Acres, new nursery wood ... ... MU.键盘命令分为两大类:键盘模拟命令和键盘控制命令。
按键精灵源码
按键精灵源码//做这东西主要是为了新人学习之用希望对新人们有一些帮助//声明一些下面要用到的变量（其实不声明也可以不过为了养成//编程的好习惯还是希望大家声明一下)Dim XY_qi,Xq,Yq,n,m,Shu,Fu,A,X,Y//下面这部分是用来设置各种参数用户定义变量 XY_qi=800/400 输入数字起点坐标格式如：10/10 用户定义变量 Hen=5 输入横向特征点个数用户定义变量 n=1 输入横向递进值用户定义变量 Zong=10 输入纵向特征点个数用户定义变量 m=2 输入纵向递进值用户定义变量Ms=2 显示方式设置：1为弹出窗口模式2为粘帖模式用户定义变量 Color1=FFFFFF 设置字体颜色或者背景颜色//初始化数据部分//把Color1转化为字符串类型Color1=Str(Color1)//........................转换成字符类型//取得"/"在字符串的地几个A=InStr(XY_qi,"/")//.........................搜索字符串中指定字符的位置//取得"/"左边的数据Xq=Left(XY_qi,A-1)//........................返回指定数目的从字符串的左边算起的字符//取得"/"右边的数据Yq=Right(XY_qi,Len(XY_qi)-A)//.........从字符串右边返回指定数目的字符//给Shu,X,Y 赋值取得字符串长度Shu=""X=Xq:Y=Yq//纵向特征点个数循环 Zong 遍//给X赋值X=Xq//横向特征点个数循环 Hen 遍//利用GetPixelColor函数开始找颜色调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) //找到的颜色值和自己设置的颜色值做比较如果表达式 (Color2<>Color1) 为真,则//如果2个颜色不一样则给Fu赋值"1"Fu="1"否则//否则给Fu赋值为"0"Fu="0"条件结束//没循环1次X的值增大nX=X+n//每循环1次Shu的值连接一个FuShu=Shu&Fu循环结束//每循环一次Y的值增大mY=Y+m循环结束//如果模式选择1在显示数字特征码如果表达式 (Ms=1) 为真,则调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) //如果模式选择2则把数据写入剪切板否则如果(Ms=2)为真,则调用子程序 Nt调用子程序 Ts条件结束脚本停止运行//写入剪切板子程序子程序 NtShuZi=ShuSet objIE = CreateObject("InternetExplorer.Application")objIE.Navigate("about:blank")objIE.document.parentwindow.clipboardData.SetData "Text", ShuZiobjIE.Quit子程序结束,回到调用处//弹出对话框子程序子程序 Tsset Obj = createobject("WScript.Shell")Hua="数字特征码为："&vbcr&Shu&vbcr&"请打开记事本粘帖"调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y)子程序结束,回到调用处//打开画图程序，并最大化，调整默认大小再运行脚本就OK。
按键精灵命令大全(精华版)
按键精灵[KeyPress] [KeyDown] [KeyUp] [KeyPressH] [KeyDownH] [KeyUpH] [LeftClick] [RightClick] [MiddleClick] [LeftDoubleClick] [LeftDown] [LeftUp] [RightDown] [RightUp] [LeftClickH] [RightClickH] [MiddleClickH] [LeftDoubleClickH] [LeftDownH] [LeftUpH][RightDownH][RightUpH][MoveTo][MoveR][MoveRH][SaveMousePos] [RestoreMousePos] [LockMouse][UnlockMouse] 命令大全[WaitKey] [GetLastKey][WaitClick][GetLastClick][Delay][MessageBox] [SayExpression][SayString][Sub][Return][Gosub][Rem][If][IfColor][Else][EndIf][While][EndWhile][For][EndFor][Goto][EndScript][VBS][VBSCall][Plugin][UserVar][PutAttachment][KeyPress]KeyPress 键{ 盘虚拟码} {次数}解释：先“按下”再“弹起”键，模拟我们平时的“按键”操作. 我们在使用键盘的时候有两种操作，一种是”按下”键，一种是”弹起”键. 将这两个动作连续进行，就是一个完整的”按键”动作.按键精灵可以模拟所有的键盘动作.[KeyDown]KeyDown ｛键盘虚拟码｝｛次数｝解释：“按下”键，模拟我们平时的“按下”操作有些键在按下之后，会和其他键产生组合效果，比如“Alt/Ctrl/Shift ，”如果使用“按下Alt ”命令，那么之后的“按键”动作将变成“Alt+A等”组合动作，因此记得在必要时使用“弹起”命令将组合键释放，避免影响键盘的正常使用.[KeyUp]格式：KeyUp ｛键盘虚拟码｝｛次数｝解释：“弹起”键，模拟我们平时的“弹起”操作[KeyPressH]格式：KeyPressH 键｛盘虚拟码｝｛次数｝解释：硬件模拟按键，与KeyPress功能类似，先“按下”再“弹起”键，但采取了硬件模拟的方式在某些情况下普通模拟按键命令会失效，不妨试试硬件模拟命令[KeyDownH]KeyDownH ｛键盘虚拟码｝｛次数｝解释：硬件模拟按下，与KeyDown功能类似，“按下”键，但采取了硬件模拟的方式在某些情况下普通模拟按键命令会失效，不妨试试硬件模拟命令[KeyUpH]格式：KeyUpH ｛键盘虚拟码｝｛次数｝解释：硬件模拟弹起，与KeyUp功能类似，“弹起”键，但采取了硬件模拟的方式在某些情况下普通模拟按键命令会失效，不妨试试硬件模拟命令[LeftClick]格式：LeftClick ｛次数｝解释：在鼠标当前位置模拟点击鼠标左键.｛次数｝可以控制点击的次数[RightClick]格式：RightClick ｛次数｝解释：在鼠标当前位置模拟点击鼠标右键.[MiddleClick]格式：MiddleClick ｛次数｝解释：在鼠标当前位置模拟点击鼠标中键.[LeftDoubleClick]格式：LeftDoubleClick ｛次数｝解释：在鼠标当前位置模拟双击鼠标左键.[LeftDown]格式：LeftDown ｛次数｝解释：在鼠标当前位置模拟按下鼠标左键，｛次数｝在这个语句中虽然有效，但没有实际意义.[LeftUp]格式：LeftUp ｛次数｝解释：在鼠标当前位置模拟松开鼠标左键，｛次数｝在这个语句中虽然有效，但没有实际意义.[RightDown]RightDown ｛次数｝解释：在鼠标当前位置模拟按下鼠标右键，｛次数｝在这个语句中虽然有效，但没有实际意义.[RightUp]格式：RightUp ｛次数｝解释：在鼠标当前位置模拟松开鼠标右键，｛次数｝在这个语句中虽然有效，但没有实际意义[LeftClickH]格式：LeftClickH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟点击鼠标左键.｛次数｝可以控制点击的次数在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[RightClickH]格式：RightClickH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟点击鼠标右键. 在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[MiddleClickH]MiddleClickH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟点击鼠标中键. 在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[LeftDoubleClickH]格式：LeftDoubleClickH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟双击鼠标左键. 在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[LeftDownH]格式：LeftDownH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟按下鼠标左键，｛次数｝在这个语句中虽然有效，但没有实际意义.在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[LeftUpH]格式：LeftUpH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟松开鼠标左键，｛次数｝在这个语句中虽然有效，但没有实际意义.在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[RightDownH]格式：RightDownH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟按下鼠标右键，｛次数｝在这个语句中虽然有效，但没有实际意义.在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[RightUpH]格式：RightUpH ｛次数｝解释：使用硬件模拟方式，在鼠标当前位置模拟松开鼠标右键，｛次数｝在这个语句中虽然有效，但没有实际意义在某些情况下普通模拟鼠标命令会失效，不妨试试硬件模拟命令[MoveTo]格式：MoveTo ｛X 坐标｝｛Y坐标｝解释：移动鼠标到（X坐标，Y坐标）处举例：MoveTo 100 200把鼠标移动到（100，200）这个点上MoveTo intX intY 把鼠标移动到（intX，intY）这个点上，需要5.50 以上版本支持.[MoveR]格式：MoveR {X距离} {Y距离}解释：把鼠标相对移动（X距离，Y 距离）举例：当前鼠标在（100，100）点，使用下面语句MoveR 200 300之后，鼠标就被移到了（100+200，100+300）处，也就是坐标（300，400）处[MoveRH]格式：MoveR {X距离} {Y距离}解释：相对移动鼠标的硬件模拟指令把鼠标相对移动，（X距离，Y距离）[SaveMousePos]格式：SaveMousePos解释：保存当前鼠标位置[RestoreMousePos]格式：RestoreMousePos解释：将鼠标移动到上一次保存的鼠标位置举例：保存/恢复鼠标位置常用于制作网络游戏练功脚本，脚本开始时保存鼠标位置，脚本结束时恢复鼠标位置，这样脚本执行后鼠标的位置就不会变化[LockMouse]格式：LockMouse解释：锁定鼠标位置，用户将不能通过移动鼠标而改变鼠标位置，而脚本仍可以改变鼠标位置举例：在脚本开始的时候使用这个命令，可以有效防止用户误触鼠标引起脚本执行出错[UnlockMouse]格式：UnlockMouse解释：解除LockMouse命令对鼠标位置的锁定。
(完整版)按键精灵常用脚本命令汇集
//~~~~~~~~~~{[做后台的准备]}~~~~~~~~~~~//下面,用标题名来找父窗口Hwnd = Plugin.Window.Find(0, "无标题- 记事本")//下面,根据父窗口来找子窗口(找对了标题名才有效)HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, 0)//下面,用程序名来找父窗口Hwnd = Plugin.Window.Find("Notepad", 0)//下面,根据父窗口来找子窗口（找对了类名才有效）Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)//~~~(也可以改指定程序的标题名来得来句柄)~~~//下面，将指定程序名的标题名变为变量Hwnd = Plugin.Window.Find("Notepad", 0)//改变窗口标题Call Plugin.Window.SetText(Hwnd,"AJJL")//*********》之后可加第一种父子窗口就OK了《*********//~~~如果以上都不行，只剩下最后一种方法~~~~//下面，鼠标指向的程序定为Hwnd这个变量（不过一定要加标记，否则变为假后台）hwnd=Plugin.Window.MousePoint()Rem starGoto star//区域模糊找色//（XY，是坐标）（后面的是句柄，左X，上Y，右X，下Y，16位颜色，找的方式，相似度）XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)//将XY坐标变为变量，再折分成X坐标和Y坐标。
MyArray = Split(XY, "|")X = Clng(MyArray(0)): Y = Clng(MyArray(1))//后台判色Color = Plugin.Bkgnd.GetPixelColor(hwndex,300,150)If color = "020503" Then//根据固定32位地址的值加红蓝（HP少于就。
按键精灵命令大全
按键精灵命令大全小技巧：按Ctrl+F，输入命令，即可进行查找定位键盘命令键盘模拟命令[KeyPress]"按下再弹起"键[KeyDown]"按下"键[KeyUp]"弹起"键键盘控制命令[WaitKey]等待按键[GetLastKey]获取上一次按键码鼠标命令鼠标模拟命令[LeftClick]模拟点击鼠标左键[RightClick]模拟点击鼠标右键[MiddleClick]模拟点击鼠标中键[LeftDoubleClick]模拟双击鼠标左键[LeftDown]模拟按下鼠标左键[LeftUp]模拟松开鼠标左键[RightDown]模拟按下鼠标右键[RightUp]模拟松开鼠标右键[MoveTo]移动鼠标[MoveR]鼠标相对移动[MouseWheel]滚动鼠标滚轮鼠标控制命令[WaitClick]等待按鼠标[GetLastClick]获取上一次按下的鼠标代码鼠标辅助命令[SaveMousePos]保存当前鼠标位置[RestoreMousePos]将鼠标移动到上一次保存的鼠标位置[LockMouse]锁定鼠标位置[UnlockMouse]解除鼠标锁定控制命令流程控制命令[If]判断语句[Goto]跳转语句[Rem]Goto命令的标记，也可以做注释[While] ... [EndWhile]循环[For] ... [EndFor]循环[EndScript]脚本结束颜色控制命令[IfColor]判断屏幕x,y坐标的某点的颜色，来执行后面的动作或控制过程[Sub] . [Return]定义过程[Gosub]调用过程其他命令[Delay]脚本暂停执行[MessageBox]弹出一个窗口[SayString]输入文字,支持变量[Import]导入VBS或插件命令[VBSBegin] ...[VBSEnd]VBS区块[VBS]单行VBS指令[VBSCall]执行外部VBScript函数[Plugin]调用一个外部插件提供的函数[UserVar]用户自定义设置[PutAttachment]展开附件[//]注释命令[TracePrint]调试窗口显示文字VBS命令[VBSCallDelay]脚本停止执行一段时间，支持变量[VBSCallFindCenterColor]从屏幕某个区域的中间开始找色[VBSCallFindColor]在屏幕指定区域从左到右找色[VBSCallFindColorEx]模糊找色功能[VBSCallFindPic]找图片，可设定相似度[VBSCallGetCursorPos]获得当前鼠标的坐标[VBSCallGetPixelColor]获得指定位置点的颜色[VBSCallGetScreenResolution]获得当前屏幕分辨率[VBSCallInputBox]"弹出"对话框允许用户输入文字[VBSCallMessageBox]弹出对话框,支持变量[VBSCallReadMemory]读取本机指定内存地址的数值[VBSCallRunApp]运行一个程序,或打开一个文件[VBSCallSayString]输入文本.[VBSCallSetCursorPos]设置鼠标位置[VBSCallGetCursorShape]获得鼠标形状。
按键精灵命令大全
按键精灵命令大全小技巧：按Ctrl+F，输入命令，即可进行查找定位键盘命令介绍键盘命令分为两大类：键盘模拟命令和键盘控制命令。
键盘模拟命令可以模拟我们日常操作键盘的行为。
操作键盘的动作分为三类：按下、弹起、按下并弹起。
键盘控制命令可以在脚本执行过程中通过键盘控制脚本行为。
[KeyPress、KeyPressS、KeyPressH]格式: KeyPress {键盘虚拟码},{次数}解释: 先“按下”再“弹起”键,模拟我们平时的“按键”操作.我们在使用键盘的时候有两种操作,一种是”按下”键,一种是”弹起”键.将这两个动作连续进行,就是一个完整的”按键”动作.KeyPressS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用KeyPressH: 硬件模拟方式,仅支持PS(圆口)的键盘例子:KeyPress 65,165是A键的按键码，上面的语句表示按A键1次[KeyDown、KeyDownS、KeyDownH]格式: KeyDown {键盘虚拟码},{次数}解释: “按下”键,模拟我们平时的“按下”操作注意:有些键在按下之后,会和其他键产生组合效果,比如“Alt/Ctrl/Shift”,如果使用“按下Alt”命令,那么之后的“按键”动作将变成“Alt+A”等组合动作,因此记得在必要时使用“弹起”命令将组合键释放,避免影响键盘的正常使用.KeyDownS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用KeyDownH: 硬件模拟方式,仅支持PS(圆口)的键盘例子:KeyDown 65,165是A键的按键码，上面的语句表示按下A键1次[KeyUp、KeyUpS、KeyUpH]格式: KeyUp {键盘虚拟码} {次数}解释:“弹起”键,模拟我们平时的“弹起”操作KeyUpS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用KeyUpH: 硬件模拟方式,仅支持PS(圆口)的键盘例子:KeyUp 65,165是A键的按键码，上面的语句表示松开A键1次鼠标命令介绍鼠标命令分为三大类：模拟鼠标按键命令、模拟鼠标移动命令、鼠标控制命令。
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享
学习怎么用按键精灵制作游戏辅助——脚本源代码干货分享一、用按键精灵确定人物朝向（以剑灵自动寻路为例）的代码在剑灵右上角的小地图里找色/找图，箭头坐标存储在(x1,y1)，箭尾坐标存储在(x2,y2) FindColor1200,0,1920,300,"箭头颜色",x1,y1If x1 > 0 And y1> 0 ThenEnd IfFindColor1200,0,1920,300,"箭尾颜色",x2,y2If x1 > 0 And y1> 0 ThenEnd If'计算斜率/正切值斜率= (y1 - y2) / (x1 -x2)'计算角度角度= Atn(斜率)二、用按键精灵解决用户密码泄露问题的代码Function 加解密(源文件, 秘钥)Dim Z, iDim A, B, C加解密= ""If Len(源文件) = 0 Then’如果密码为空，则初始化为空加解密= ""Exit FunctionEnd If'调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列Z = Rnd(-秘钥)For i = 1 To Len(源文件)’将密码字符串一个一个字符通过加密，转换成另一个字符C = Mid(源文件, i, 1)A = Asc(C)B = Int(126 * Rnd) And&H7F’这里的&H7F，是指生成的伪随机代码，只取7位，以免数据溢出A = A Xor B’Xor是可逆的，第一次运行时是得到加密后的数据，再运行一次是得到解密后的数据C = Chr(A)加解密= 加解密+ CNextEnd Function举个例子吧~Function 加解密(源文件, 秘钥)Dim Z, iDim A, B, C加解密= ""If Len(源文件) = 0 Then加解密= ""Exit FunctionEnd If'调用Rnd函数使以后Rnd函数所产生的Rnd为相同的伪随机数列Z = Rnd(-密钥)For i = 1 To Len(源文件)C = Mid(源文件, i, 1)A = Asc(C)B = Int(126 * Rnd) And&H7FA = A Xor BC = Chr(A)加解密= 加解密+ CNextEnd FunctionEvent Form1.Load//获取小节名（如"e1df741f-d5ec-4ad7-969d-adb139c6a24f"），同一个Q文件生成的小节名不变a = GetMacroID()//获取到当前脚本/小精灵de ID加密文件=Plugin.File.ReadINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1 .InputBox2.T ext", ".\uservar.ini")解密文件= 加解密(加密文件, 1234567890)'这里的1234567890是假使的密钥，可以修改，注意保密Form1.InputBox2.T ext = 解密文件End Event//写入密码信息源文件= Form1.InputBox2.T ext加密文件= 加解密(源文件, 1234567890)CallPlugin.File.WriteINI("e1df741f-d5ec-4ad7-969d-adb139c6a24f","Form1.InputBox2.T ext", 加密文件, ".\uservar.ini")//输出信息RunApp "notepad.exe"SayString Form1.InputBox1.T extKeyPress "Enter", 1SayString 源文件三、按键精灵快速排序的代码su = "6|1|2|7|9|3|4|5|10|8"su=Split(su, "|")L = UBound(su)Call ks(0, L)Function ks(L, B)If L > B ThenExit FunctionEnd If //判断数组上标下标是否超出范围i = Lj = Bkey =int( su(L) ) //数组第一位提取作为基数While j>iWhile int ( su(j)) >= key and j > i //要先从最右边开始找找到第一个小于key的数这里添加的j>i的判断是为了防止j的值不断递减导致下标越界j = j - 1WendWhile int (su(i)) <= key and j > i //从最左边开始找找到第一个大于key的数（这里的字符串数组需要转换为数值型）i = i + 1WendIf j>i then // 将和基数key对比得到的两个数对换将大于key的值往右边放小于key的值往左边放T = su(i)su(i) = su(j)su(j) = TEnd IfWend // 这个While 循环当i=j 第一轮比较完退出su(L) = su(i) // 重新设置数组第一个元素为基数su(i) = key// 基数归位（排完一轮之后左边的数<基数<右边的数那么基数就到了排序中它该在的位置。
刷屏按键精灵源代码
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
KeyPress "Enter", 1
KeyPress "Num *", 1
按键精灵TXT文件用法大全（源码）（免费！）
按键精灵TXT文件用法大全（源码）（免费！）（1）新建一个TXT文件本帖隐藏的内容1.2.set fso=CreateObject("Scripting.FileSystemObject")3.const forwriting=24.const forreading=15.set myfile=fso.createtextfile("路径\文件名.txt")6.复制代码（2）判断一个文件是否存在本帖隐藏的内容1.2.Plugin IsFile = File.IsFileExit("路径\文件名.txt")3.If IsFile = True4.MessageBox "找到"5.Else6.MessageBox "没找到"7.EndIf8.复制代码（3）删除一个TXT文件本帖隐藏的内容1.2.Plugin File.DeleteFile("路径\文件名.txt")3.复制代码（4）给TXT文件写入内容本帖隐藏的内容方法11.2.set fso=CreateObject("Scripting.FileSystemObject")3.set myfile=fso.createtextfile("路径\文件名.txt")4.myfile.writeline("内容")5.复制代码本帖隐藏的内容方法21.2.Plugin File.WriteFileEx("路径\文件名.txt", "内容")3.复制代码（5）读取TXT文件指定某一行内容本帖隐藏的内容1.2.Plugin Text = File.ReadFileEx("路径\文件名.txt")3.txtArray=Split(Text,"|")4.// 显示第5行，就写txtArray(4) 。
按键精灵源代码整理
1.御剑脚本Hwnd = Plugin.Window.MousePoint()Rem XXCall Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Goto XX2.奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子）Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 900, 600)Call Plugin.Window.Move(Hwnd, 4, 143)Rem XXIfColor 325,208,"163CDB",0 ThenElseCall Plugin.Bkgnd.KeyPress(Hwnd, 50)End IfIfColor 257,208,"163CDB",0 ThenElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 52)End IfIfColor 163,222,"9C841A",0 ThenElseCall Plugin.Bkgnd.KeyPress(Hwnd, 53)End IfIfColor 77,226,"453A10",0 ThenElse'==========以下是按键精灵录制的内容==========（这个是控制鼠标去点掉宠物附体回蓝的，属于前台的）Delay 291MoveTo 374, 506Delay 125MoveTo 375, 504MoveTo 375, 503 Delay 50 MoveTo 377, 501 Delay 36 MoveTo 381, 500 Delay 49 MoveTo 385, 498 Delay 40 MoveTo 386, 498 Delay 163 MoveTo 388, 497 Delay 9 MoveTo 389, 497 Delay 7 MoveTo 390, 497 Delay 50 MoveTo 394, 496 Delay 51 MoveTo 397, 495 MoveTo 398, 494KeyDown "1", 1 Delay 19 MoveTo 402, 493 Delay 43 MoveTo 405, 491 Delay 40 MoveTo 410, 486 Delay 1KeyUp "1", 1 Delay 61 MoveTo 430, 471 Delay 55 MoveTo 459, 431 Delay 8 MoveTo 463, 423 Delay 7 MoveTo 468, 414 Delay 55 MoveTo 503, 331 Delay 47Delay 1 MoveTo 535, 282 Delay 54 MoveTo 551, 261 Delay 12 MoveTo 553, 259 MoveTo 556, 257 Delay 55 MoveTo 564, 251 Delay 36 MoveTo 572, 246 Delay 43 MoveTo 583, 240 Delay 38 MoveTo 589, 235 Delay 37 MoveTo 593, 233 Delay 30 MoveTo 597, 230 Delay 47Delay 1 MoveTo 605, 223 Delay 32 MoveTo 608, 219 Delay 36 MoveTo 611, 215 Delay 38 MoveTo 614, 211 Delay 39 MoveTo 615, 208 Delay 143 MoveTo 616, 207 Delay 332 RightDown 1 Delay 14 RightDown 1 Delay 53 RightClick 1 Delay 1 RightClick 1Delay 68 MoveTo 617, 206 Delay 66 MoveTo 621, 202 Delay 58 MoveTo 624, 199 Delay 40 MoveTo 625, 197 Delay 10 MoveTo 626, 197 Delay 77 MoveTo 627, 196 Delay 51 MoveTo 627, 195 Delay 30 MoveTo 627, 194 Delay 67 MoveTo 627, 193 Delay 1325 RightDown 1 Delay 8RightDown 1 Delay 109 RightClick 1 Delay 1 RightClick 1 Delay 1362 MoveTo 628, 194 Delay 113 MoveTo 628, 195 Delay 42 MoveTo 628, 196 Delay 25 MoveTo 628, 198 Delay 1 KeyDown "2", 1 Delay 1Delay 48 MoveTo 631, 206 Delay 1 MoveTo 631, 207 Delay 46MoveTo 637, 219 Delay 37 MoveTo 637, 220 Delay 1KeyUp "2", 1 Delay 1 MoveTo 640, 229 Delay 77 MoveTo 647, 243 Delay 46 MoveTo 648, 247 Delay 63 MoveTo 648, 249 Delay 30 MoveTo 648, 250 Delay 77 MoveTo 648, 251 Delay 134 MoveTo 650, 252 Delay 44 MoveTo 656, 256Delay 38MoveTo 674, 269Delay 32MoveTo 704, 295Delay 27MoveTo 745, 326Delay 70MoveTo 954, 476Delay 11MoveTo 978, 490Delay 2MoveTo 1000, 504Delay 283MoveTo 1113, 582Delay 51MoveTo 1099, 584Delay 50MoveTo 1084, 582'==========以上是按键精灵录制的内容========== End IfGoto XX3.奶妈7秒叶子Hwnd = Plugin.Window.MousePoint()Rem AACall Plugin.Bkgnd.KeyPress(Hwnd, 49)Delay 14000Goto AA4.奶妈无限群加Hwnd = Plugin.Window.MousePoint()Rem xxCall Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.LeftClick(Hwnd, 450-dx, 380-dy)Delay 1000Goto xx5.剑半后台挂机，自动回宗派躲验证（怪物血条得露出来才行，其他的按键是后台操作）Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 800, 500)Call Plugin.Window.Move(Hwnd, 0, 140)Rem重置时间Dim t1t1=nowRem XXIfColor 215,206,"1332B1",0 ThenCall Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 54)Call Plugin.Bkgnd.KeyPress(Hwnd, 55)ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68)Call Plugin.Bkgnd.KeyPress(Hwnd, 9)Delay 500End IfIfColor 215,206,"1332B1",0 ThenGoto XXElseif datediff("n",t1,now)>=35 then（35分钟自动回宗派）Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 57)Delay 5000IfColor 215,206,"1332B1",0 ThenGoto XXDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 57) Delay 80000MoveTo 757, 759Delay 2000LeftClick 1Delay 2000MoveTo 422, 471Delay 2000LeftClick 1Delay 150000MoveTo 399, 700Delay 1000LeftClick 1Delay 70000MoveTo 542, 620Delay 15000LeftClick 1Delay 1000Goto重置时间ElseGoto XXEnd IfEnd IfGoto XX6.奶妈半后台打怪Hwnd = Plugin.Window.MousePoint() Call Plugin.Window.Size(Hwnd, 800, 500) Call Plugin.Window.Move(Hwnd, 480, 0) Rem重置时间Dim t1t1=nowRem XXIfColor 695,66,"1332B1",0 ThenCall Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54) Call Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54) Call Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 55) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68) Call Plugin.Bkgnd.KeyPress(Hwnd, 9) Delay 500End IfIfColor 695,66,"1332B1",0 Then Goto XXElseif datediff("n",t1,now)>=35 then Delay 1011Call Plugin.Bkgnd.KeyPress(Hwnd, 48) Delay 5011IfColor 695,66,"1332B1",0 Then Goto XXElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 48) Delay 80011MoveTo 1236, 621Delay 2011LeftClick 1Delay 2011MoveTo 896, 331Delay 2011LeftClick 1Delay 150051MoveTo 876, 567Delay 1011LeftClick 1Delay 70011MoveTo 1030, 484Delay 10011 LeftClick 1 Delay 2000 Goto重置时间End IfElseEnd IfEnd IfGoto XX。
能真正后台运行的按键精灵代码支持最小化和切换窗口
能真正后台运行的按键精灵代码支持最小化和切换窗口能真正后台运行的按键精灵代码是附2，详细应用是附3．均可直接复制使用．主题：按键精灵切换窗口最小化后台运行游戏1、游戏句柄后台的意思就是当窗口被遮盖或移开的时候，仍能够正常的执行脚本动作，所以必须先找到该游戏的窗口句柄，这样可以保证我们编辑的脚本语句有正确的使用方向，获取窗口句柄的方法有很多，我一般使用以下的方法：Dim hwndPlugin hwnd=Window.MousePoint()Plugin是调用插件命令，凡是调用插件都需要使用这个命令，hwnd就是得到的句柄，Window是插件的名称MousePoint()返回鼠标所在的窗口的句柄关于窗口这里需要多说几句，以网页游戏为例，鼠标放在标题栏上和放在游戏窗口所得到的句柄是不一样的，游戏窗口是IE的一个子窗口，因此在运行脚本前，将你的鼠标放在游戏窗口的区域内再运行脚本。
得到句柄费函数很多，有兴趣的自己去试试看，不过知道一个就足够了。
2、模拟动作得到窗口句柄后，你就可以向这个窗口模拟需要的动作了，在这里要用到按键精灵7的插件（既然已经有7了以前的插件就不作介绍了），模拟动作的函数有如下几个-模拟鼠标点击Plugin Bkgnd.LeftClick(句柄,横坐标,纵坐标) //模拟鼠标左键点击Plugin Bkgnd.RightClick(句柄,横坐标,纵坐标) //模拟鼠标右键点击其中的句柄就是上面我们已经得到的句柄，这里的横坐标和纵坐标是针对游戏窗口，而不是针对屏幕的(看晕了吧^_^关于这一点足足困扰了我一个礼拜的时间才弄明白)。
屏幕坐标，是以屏幕左上角为基点（0，0），右下角的坐标是和屏幕分辨率有关的，而窗口坐标，不是在屏幕的左上角，例如word中的编辑窗口的0，0位置是在工具栏下面的，看不懂也没关系，你只要记住下面的方法就行了，首先在得到窗口句柄后加上如下的代码：Plugin s = Window.GetClientRect(hwnd)XYArray = Split(s, "|", -1, 1)dx = XYArray(0)dy = XYarray(1)其次，在横坐标和纵坐标的后面都分别减去dx和dy就行了，为什么！！不用去管他，反正这样做不会错，举例说明例如你抓点得到的横坐标是x，纵坐标是y，那么模拟鼠标左键点击的语句应该是这样的：Plugin Bkgnd.LeftClick(句柄x-dx,y-dy)-模拟键盘动作Plugin Bkgnd.KeyPress(句柄,按键码) //模拟键盘动作这里的按键码可以很容易的在按键精灵中查到，包括组合键-输入字符串Plugin Window.SendString(句柄,字符串)这个函数在登陆和喊话时是非常有用的，其中的字符串可以是字符串变量3、后台找色后台脚本尽量少用找色语句，否则你的游戏将“卡巴死机”，即使少用也会出现很多的“马赛克”幸运的是不影响找色功能，即使游戏图像已经乱七八糟，既然是要后台操作，难看就难看吧^_^。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 御剑脚本Hwnd = Plugin.Window.MousePoint(Rem XXCall Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 50Call Plugin.Bkgnd.KeyPress(Hwnd, 50Call Plugin.Bkgnd.KeyPress(Hwnd, 50Call Plugin.Bkgnd.KeyPress(Hwnd, 52Call Plugin.Bkgnd.KeyPress(Hwnd, 53Goto XX2. 奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子）Hwnd = Plugin.Window.MousePoint(Call Plugin.Window.Size(Hwnd, 900, 600Call Plugin.Window.Move(Hwnd, 4, 143Rem XXIfColor 325,208,"163CDB",0 Then ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 50 End IfIfColor 257,208,"163CDB",0 Then ElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 52 End IfIfColor 163,222,"9C841A",0 Then ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 53 End IfIfColor 77,226,"453A10",0 ThenElse'==========以下是按键精灵录制的内容==========（这个是控制鼠标去点掉宠物附体回蓝的，属于前台的）Delay 291MoveTo 374, 506Delay 125MoveTo 375, 504Delay 33MoveTo 375, 503Delay 50MoveTo 377, 501Delay 36MoveTo 381, 500Delay 49MoveTo 385, 498Delay 40MoveTo 386, 498Delay 163MoveTo 388, 497Delay 9MoveTo 389, 497 Delay 7 MoveTo 390, 497 Delay 50 MoveTo 394, 496 Delay 51 MoveTo 397, 495 MoveTo 398, 494 Delay 30 KeyDown "1", 1 Delay 19 MoveTo 402, 493 Delay 43 MoveTo 405, 491 Delay 40 MoveTo 410, 486 Delay 1KeyUp "1", 1 Delay 61MoveTo 430, 471 Delay 55 MoveTo 459, 431 Delay 8 MoveTo 463, 423 Delay 7 MoveTo 468, 414 Delay 55 MoveTo 503, 331 Delay 47 MoveTo 531, 287 Delay 1 MoveTo 535, 282 Delay 54 MoveTo 551, 261 Delay 12 MoveTo 553, 259 MoveTo 556, 257 Delay 55MoveTo 564, 251 Delay 36 MoveTo 572, 246 Delay 43 MoveTo 583, 240 Delay 38 MoveTo 589, 235 Delay 37 MoveTo 593, 233 Delay 30 MoveTo 597, 230 Delay 47 MoveTo 602, 226 Delay 1 MoveTo 605, 223 Delay 32 MoveTo 608, 219 Delay 36 MoveTo 611, 215Delay 38 MoveTo 614, 211 Delay 39 MoveTo 615, 208 Delay 143 MoveTo 616, 207 Delay 332 RightDown 1 Delay 14 RightDown 1 Delay 53 RightClick 1 Delay 1 RightClick 1 Delay 68 MoveTo 617, 206 Delay 66 MoveTo 621, 202 Delay 58MoveTo 624, 199 Delay 40 MoveTo 625, 197 Delay 10 MoveTo 626, 197 Delay 77 MoveTo 627, 196 Delay 51 MoveTo 627, 195 Delay 30 MoveTo 627, 194 Delay 67 MoveTo 627, 193 Delay 1325 RightDown 1 Delay 8 RightDown 1 Delay 109 RightClick 1Delay 1 RightClick 1 Delay 1362 MoveTo 628, 194 Delay 113 MoveTo 628, 195 Delay 42 MoveTo 628, 196 Delay 25 MoveTo 628, 198 Delay 1 KeyDown "2", 1 Delay 1Delay 48 MoveTo 631, 206 Delay 1 MoveTo 631, 207 Delay 46 MoveTo 637, 219Delay 37 MoveTo 637, 220 Delay 1KeyUp "2", 1 Delay 1 MoveTo 640, 229 Delay 77 MoveTo 647, 243 Delay 46 MoveTo 648, 247 Delay 63 MoveTo 648, 249 Delay 30 MoveTo 648, 250 Delay 77 MoveTo 648, 251 Delay 134 MoveTo 650, 252 Delay 44MoveTo 656, 256 Delay 38 MoveTo 674, 269 Delay 32 MoveTo 704, 295 Delay 27 MoveTo 745, 326 Delay 70 MoveTo 954, 476 Delay 11 MoveTo 978, 490 Delay 2MoveTo 1000, 504 Delay 283 MoveTo 1113, 582 Delay 51 MoveTo 1099, 584 Delay 50 MoveTo 1084, 582'==========以上是按键精灵录制的内容========== End IfGoto XX3. 奶妈7秒叶子Hwnd = Plugin.Window.MousePoint(Rem AACall Plugin.Bkgnd.KeyPress(Hwnd, 49Delay 14000Goto AA4. 奶妈无限群加Hwnd = Plugin.Window.MousePoint(Rem xxCall Plugin.Bkgnd.KeyPress(Hwnd, 49Call Plugin.Bkgnd.LeftClick(Hwnd, 450-dx, 380-dyDelay 1000Goto xx5. 剑半后台挂机，自动回宗派躲验证（怪物血条得露出来才行，其他的按键是后台操作） Hwnd = Plugin.Window.MousePoint(Call Plugin.Window.Size(Hwnd, 800, 500Call Plugin.Window.Move(Hwnd, 0, 140Rem 重置时间Dim t1t1=nowRem XXIfColor 215,206,"1332B1",0 Then Call Plugin.Bkgnd.KeyPress(Hwnd, 49 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 56 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 54 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 56 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 56 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 56 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 56 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 56 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 55 ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68 Call Plugin.Bkgnd.KeyPress(Hwnd, 9Delay 500End IfIfColor 215,206,"1332B1",0 ThenGoto XXElseif datediff("n",t1,now>=35 then（35分钟自动回宗派） Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 57Delay 5000 IfColor 215,206,"1332B1",0 ThenGoto XXElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 57 Delay 80000MoveTo 757, 759Delay 2000LeftClick 1Delay 2000MoveTo 422, 471Delay 2000LeftClick 1Delay 150000MoveTo 399, 700Delay 1000LeftClick 1Delay 70000 MoveTo 542, 620Delay 15000 LeftClick 1Delay 1000Goto 重置时间End IfElseGoto XXEnd IfEnd IfGoto XX6. 奶妈半后台打怪Hwnd = Plugin.Window.MousePoint(Call Plugin.Window.Size(Hwnd, 800, 500 Call Plugin.Window.Move(Hwnd, 480, 0 Rem 重置时间Dim t1t1=nowRem XXIfColor 695,66,"1332B1",0 ThenCall Plugin.Bkgnd.KeyPress(Hwnd, 49 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 54 Call Plugin.Bkgnd.KeyPress(Hwnd, 49 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 49 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 54 Call Plugin.Bkgnd.KeyPress(Hwnd, 49 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 CallPlugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 49 Call Plugin.Bkgnd.KeyPress(Hwnd, 50 Call Plugin.Bkgnd.KeyPress(Hwnd, 51 Call Plugin.Bkgnd.KeyPress(Hwnd, 52 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 Call Plugin.Bkgnd.KeyPress(Hwnd, 55 Call Plugin.Bkgnd.KeyPress(Hwnd, 53 ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68Call Plugin.Bkgnd.KeyPress(Hwnd, 9 Delay 500End IfIfColor 695,66,"1332B1",0 ThenGoto XXElseif datediff("n",t1,now>=35 thenDelay 1011Call Plugin.Bkgnd.KeyPress(Hwnd, 48Delay 5011IfColor 695,66,"1332B1",0 Then Goto XXElseDelay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 48 Delay 80011MoveTo 1236, 621Delay 2011LeftClick 1 Delay 2011 MoveTo 896, 331 Delay 2011 LeftClick 1 Delay 150051 MoveTo 876, 567 Delay 1011 LeftClick 1 Delay 70011 MoveTo 1030, 484 Delay 10011 LeftClick 1 Delay 2000 Goto 重置时间 End If Else End If End If Goto XX。