按鍵精靈-經常使用腳本命令聚集

//~~~~~~~~~~{[作後臺的準備]}~~~~~~~~~~~

 

//下面,用標題名來找父窗口

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