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

//~~~~~~~~~~{[做后台的准备]}~~~~~~~~~~~

//下面,用标题名来找父窗口

Hwnd = Plugin.Window.Find(0, \"无标题 - 记事本\")

//下面,根据父窗口来找子窗口(找对了标题名才有效)

HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, 0)

//下面,用程序名来找父窗口

Hwnd = Plugin.Window.Find(\"Notepad\

//下面,根据父窗口来找子窗口（找对了类名才有效）

Hwnd = Plugin.Window.FindEx(Hwnd, 0, \"Edit\

//~~~(也可以改指定程序的标题名来得来句柄)~~~

//下面，将指定程序名的标题名变为变量

Hwnd = Plugin.Window.Find(\"Notepad\

//改变窗口标题

Call Plugin.Window.SetText(Hwnd,\"AJJL\")

//*********》之后可加第一种父子窗口就OK了《*********

//~~~如果以上都不行，只剩下最后一种方法~~~~

//下面，鼠标指向的程序定为Hwnd这个变量（不过一定要加标记，否则变为假后台）

hwnd=Plugin.Window.MousePoint()

Rem star

Goto star

//区域模糊找色

//（XY，是坐标）（后面的是句柄，左X，上Y，右X，下Y，16位颜色，找的方式，相似度）

XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, \"FFFFFF\

//将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毫秒)

Randomize

Delay CInt(Rnd*100)+100

//百分比加红蓝 {变量/100*（满血的X坐标—0血的X坐标）+0血的X坐标，Y坐标，”颜色”,寻找方式}

IfColor lan/100*(257-94)+94,MY,\"ffbe00\

//前台 定义变量按键

UserVar Var1=DropList{\"关闭\":\"\"|\"1键\":\"1\"|\"2键\":\"2\"|\"3键\":\"3\"|\"4键\":\"4\"|\"5键\":\"5\"|\"6键\":\"6\"|\"7键\":\"7\"|\"8键\":\"8\"|\"9键\":\"9\"|\"0键\":\"0\设置第一种攻击键\"

//后台 定义变量按键

UserVar Var1=DropList{\"关闭\":\"\"|\"1键\":49|\"2键\":50|\"3键\":51|\"4键\":52|\"5键\":53|\"6键\":|\"7键\":55|\"8键\":56|\"9键\":57|\"0键\":48}=0 \"设置第一种攻击键

//定义变量数值

UserVar hong=50 \"设定HP少到几%,自动吃红。\"

//得出窗口的大小，从而得到坐标（左为L；右为R；上为T；下为B）

// 根据指定程序定出句柄

Hwnd = Plugin.Window.Find(\"Notepad\

//得到整个窗口的大小

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,1

Next

//自动发言

UserVar WEZI=\"内容\" \"说话的内容\"

Call Plugin.Window.SendString(Hwnd,WEZI)

//随机按键

//①

//(中文不用换)

For 100

call 随机按某键()

Delay 500

Next

Sub 随机按某键()

Do

按键码 = clng(7 * RND + 49)

//7表示有8个按键；49表示最低那个按码值

Call Plugin.Msg.Tips( 按键码 )

Loop While 按键码 >57 AND 按键码<48

//设如果按键超出范围不按键，重回出随机值

KeyPress 按键码, 1

End sub

//②

String_Rnd = \"12345678\"

Randomize

Ret_Rnd = Int(len(String_Rnd) * Rnd + 1)

Key_Rnd = Mid(String_Rnd, Ret_Rnd, 1)

TracePrint Key_Rnd

KeyPress Key_Rnd, 1

//③

//一次连续按键

a = \"12345670ABCDEFHIGKLMNOPQRSTUVWXYZ\"

CS=8

//CS---按多少次按

For CS

Randomize

MyValue = Int((8 * Rnd) + 1)

//根据a，按顺序只输入到第8个位

KeyPress MID(A, MyValue, 1),1

Next

//随机鼠标点击

UserVar XY=0 \"输入方法: X1,Y1|X2,Y2|X3,Y3|……\"

sXY = Split(XY,\"|\")

For i = 0 To UBound(sXY)

MovX = Split(sXY(i), \

MovY = Split(sXY(i), \

MoveTo MovX, MovY

Next

①一定秒数后执行命令

tt1=now : tt2 = now //给TT1和TT2拿系统时间(秒)

Rem start

If second(tt2 - tt1) >= 5 Then //T2-T1数大于5时执行下面

tt1=now : tt2=now //清空时间,重新继续

Else

tt2=now //T1不变时,给T2拿系统时间

Goto start

EndIf

②一定分钟后执行命令

LQ=now

主程序****

if DateDiff(\"s\

运行子程序

LQ=now

endif

循环

//颜色对比

Function 颜色相似对比(颜色A, 颜色B, 色偏差)

While len(颜色A) < 6

颜色A = \"0\" & 颜色A

Wend

While len(颜色B) < 6

颜色B = \"0\" & 颜色B

Wend

//上面把两个颜色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&\" \"&红B

If (abs(红B-红A)<色偏差) and (abs(绿B-绿A)<色偏差) and (abs(蓝B-蓝A)<色偏差) then

颜色相似对比 = true

Else

颜色相似对比 = false

End If

End Function