(完整版)按键精灵常用脚本命令汇集

1、/ 做后台的准备 / 下面 ,用标题名来找父窗口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)/( 也

2、可以改指定程序的标题名来得来句柄)/ 下面，将指定程序名的标题名变为变量Hwnd = Plugin.Window.Find("Notepad", 0)/ 改变窗口标题Call Plugin.Window.SetText(Hwnd,"AJJL")/*之后可加第一种父子窗口就OK 了 */ 如果以上都不行，只剩下最后一种方法/ 下面，鼠标指向的程序定为Hwnd 这个变量（不过一定要加标记，否则变为假后台）hwnd=Plugin.Window.MousePoint()Rem starGoto star/ 区域模糊找色/ （XY ，是坐标）（后面的是句柄，左 X

3、，上 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" T

4、hen/ 根据固定 32 位地址的值加红蓝（ HP 少于就。）Val = Plugin.Memory.Read32Bit(Hwnd, &H400000)/ 注意格式：符号&+ 字母H+8位地址/*经常用到的命令*/ 自定义间隔时间UserVar T=60 " 设置间隔时间 "Delay T/ 延时随机数/(Randomize- 初始化随机值)（ rnd-随机） (100-200 毫秒 )RandomizeDelay CInt(Rnd*100)+100/ 百分比加红蓝 变量 /100* （满血的 X 坐标 0 血的 X 坐标） +0 血的 X 坐标， Y 坐标

5、， ”颜色 ”,寻找方式 IfColor lan/100*(257-94)+94,MY,"ffbe00",0 Then/ 前台 定义变量按键UserVar Var1=DropList" 关闭 ":""|"1 键 ":"1"|"2 键 ":"2"|"3 键 ":"3"|"4 键 ":"4"|"5 键":"5"|"6 键 "

6、;:"6"|"7 键 ":"7"|"8 键 ":"8"|"9 键 ":"9"|"0 键 ":"0"=0 " 设置第一种攻击键 "/ 后台 定义变量按键UserVar Var1=DropList" 关闭 ":""|"1 键 ":49|"2 键 ":50|"3 键":51|"4 键 "

7、;:52|"5 键":53|"6 键 ":54|"7 键 ":55|"8 键 ":56|"9 键 ":57|"0键 ":48=0 " 设置第一种攻击键/ 定义变量数值UserVar hong=50 " 设定 HP 少到几 %,自动吃红。 "/ 得出窗口的大小，从而得到坐标（左为L ；右为 R；上为 T；下为 B）/ 根据指定程序定出句柄Hwnd = Plugin.Window.Find("Notepad", 0)/ 得到整个窗

8、口的大小sRect = Plugin.Window.GetClientRect(Hwnd)/ 开始分离坐标值MyArray = Split(sRect, "|")L = Clng(MyArray(0): T = Clng(MyArray(1):R = Clng(MyArray(2): B = Clng(MyArray(3)/ 输入自定义文本UserVar LF=60 " 左范围值 "for i=1 to len(LF)rr=mid(LF,i,1)keypress rr,1Next/ 自动发言UserVar WEZI=" 内容 " &q

9、uot; 说话的内容 "Call Plugin.Window.SendString(Hwnd,WEZI)/ 随机按键/ /( 中文不用换 )For 100call 随机按某键 ()Delay 500NextSub 随机按某键 ()Do按键码= clng(7 * RND + 49)/7 表示有 8 个按键； 49 表示最低那个按码值Call Plugin.Msg.Tips(按键码)Loop While按键码>57 AND按键码 <48/ 设如果按键超出范围不按键，重回出随机值KeyPress 按键码 , 1End sub/ String_Rnd = "123456

10、78"RandomizeRet_Rnd = Int(len(String_Rnd) * Rnd + 1)Key_Rnd = Mid(String_Rnd, Ret_Rnd, 1)TracePrint Key_RndKeyPress Key_Rnd, 1/ / 一次连续按键a = "1234567890ABCDEFHIGKLMNOPQRSTUVWXYZ"CS=8/CS- 按多少次按For CSRandomizeMyValue = Int(8 * Rnd) + 1)/ 根据 a，按顺序只输入到第8 个位KeyPress MID(A, MyValue, 1),1Next

11、/ 随机鼠标点击UserVar XY=0 " 输入方法 : X1,Y1|X2,Y2|X3,Y3|"sXY = Split(XY ,"|")For i = 0 To UBound(sXY)MovX = Split(sXY(i), ",")(0)MovY = Split(sXY(i), ",")(1)MoveTo MovX, MovYNext一定秒数后执行命令tt1=now : tt2 = now/给TT1和TT2拿系统时间(秒 )Rem startIf second(tt2 - tt1) >= 5 Then/T

12、2-T1数大于5 时执行下面tt1=now : tt2=now/清空时间,重新继续Elsett2=now/T1不变时,给T2拿系统时间Goto startEndIf一定分钟后执行命令LQ=now主程序 *if DateDiff("s",LQ,now)>10*60运行子程序LQ=nowendif循环/ 颜色对比Function颜色相似对比While len( 颜色颜色(颜色 A,A)<6A="0"&颜色 B,颜色 A色偏差 )WendWhile len(颜色B)<6颜色B="0"&颜色BWend/上面把

13、两个颜色16 进制码小于6 位的变成6 位数红 A = cint("&h" & mid(颜色 A, 5, 2) :绿 A = cint("&h" & mid(颜色 A, 3, 2) :红 B = cint("&h" & mid(颜色 B, 5, 2) :绿 B = cint("&h" & mid(颜色 B, 3, 2) :/上面是把6 位 16 进制分解成”RGB “（红绿蓝） ，因为按键的颜色格式为“蓝 A = cint("&h" & mid(颜色 A, 1, 2)蓝 B = cint("&h" & mid(颜色 B, 1, 2)BBG