按键精灵
//~~~~~~~~~~{[做后台的准备]}~~~~~~~~~~~
//下面,用标题名来找父窗口
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 star
Goto 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毫秒)
Randomize
Delay CInt(Rnd*100)+100
//百分比加红蓝 {变量/100*（满血的X坐标—0血的X坐标）+0血的X坐标，Y坐标，”颜色”,寻找方式}
IfColor lan/100*(257-94)+94,MY,'ffbe00',0Then
//前台定义变量按键
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,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 ='1234567890ABCDEFHIGKLMNOPQRSTUVWXYZ'
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), ',')(0)
MovY = Split(sXY(i), ',')(1)
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)>10*60
运行子程序
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