按鍵精靈-常用腳本命令匯集
//~~~~~~~~~~{[做後臺的準備]}~~~~~~~~~~~
//下面,用標題名來找父窗口
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",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,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
按鍵精靈-常用腳本命令匯集