按键精灵 常用脚本命令汇集

//~~~~~~~~~~{[做后台的准备]}~~~~~~~~~~~//下面,用标题名来找父窗口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少于就。

）Val = Plugin.Memory.Read32Bit(Hwnd, &H400000) //注意格式：符号&+字母H+8位地址If clng(val)<=clng(HP)//*********》经常用到的命令《***********//自定义间隔时间UserVar T=60 "设置间隔时间"Delay T//延时随机数//(Randomize---初始化随机值)（rnd--随机）(100-200毫秒)RandomizeDelay CInt(Rnd*100)+100//百分比加红蓝{变量/100*（满血的X坐标—0血的X坐标）+0血的X坐标，Y坐标，”颜色”,寻找方式}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"|"7键":"7"|"8键":"8"|"9键":"9"|"0键":"0"}=0 "设置第一种攻击键"//后台定义变量按键UserVar Var1=DropList{"关闭":""|"1键":49|"2键":50|"3键":51|"4键":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)//得到整个窗口的大小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="内容" "说话的内容"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 = "12345678"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//随机鼠标点击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 //T2-T1数大于5时执行下面tt1=now : tt2=now //清空时间,重新继续Elsett2=now //T1不变时,给T2拿系统时间Goto startEndIf②一定分钟后执行命令LQ=now主程序****if DateDiff("s",LQ,now)>10*60运行子程序LQ=nowendif循环//颜色对比Function 颜色相似对比(颜色A, 颜色B, 色偏差)While len(颜色A) < 6颜色A = "0" & 颜色AWendWhile len(颜色B) < 6颜色B = "0" & 颜色BWend//上面把两个颜色16进制码小于6位的变成6位数红A = cint("&h" & mid(颜色A, 5, 2)) : 绿A = cint("&h" & mid(颜色A, 3, 2)) : 蓝A = cint("&h" & mid(颜色A, 1, 2)) 红B = cint("&h" & mid(颜色B, 5, 2)) : 绿B = cint("&h" & mid(颜色B, 3, 2)) : 蓝B = cint("&h" & mid(颜色B, 1, 2)) //上面是把6位16进制分解成”RGB“（红绿蓝），因为按键的颜色格式为“BBGGRR“（蓝绿红），所以红色是后两位蓝色是前两位中间两位是绿色//MsgBox 红A&" "&红BIf (abs(红B-红A)<色偏差) and (abs(绿B-绿A)<色偏差) and (abs(蓝B-蓝A)<色偏差) then 颜色相似对比= trueElse颜色相似对比= falseEnd IfEnd Function。