1. 求按鍵精靈自動打怪及半手動打怪腳本
1、運行按鍵精靈。在主界面上點選「新建」進入腳本編輯
2、在界面左邊的命令類型里選擇滑鼠命令。常用的就是前2個。假設游戲中人物為中心坐標500，500。我每次選取怪物前需點選角色自己。那麼如圖，滑鼠移動到 那裡可以下拉選擇一個坐標插入命令。（這個坐標可以直接在游戲里截取也可以自己設置。如何在游戲里抓點，後邊會介紹到。）然後滑鼠動作下拉菜單里選擇左鍵單擊==插入命令。
3、如果手動輸入坐標點的話，可以先插入滑鼠移動到x=0 y=0。然後在腳本區直接修改。2種修改方式。一是在源文件中修改，一種是在普通里雙擊命令修改，如圖
4、假設游戲的尋怪快捷鍵為F1。那麼找到鍵盤命令。這里常用的2種命令，一是按鍵，二是按鍵組合。只要把滑鼠點在下圖中空白處，然後在鍵盤上按下需要編輯的鍵，就可以自動記錄了。
5、上一步已經按了自動尋怪了。下一步該進行攻擊了。假設攻擊的快捷鍵是ctrl+1。這就用到按鍵組合的命令了。插入ctrl+1的命令腳本。這里需要注意的是，默認是執行命令腳本時，按下ctrl+1後只彈開ctrl鍵。如圖：
6、我們需要手動輸入彈開1鍵的命令。點選源文件，我們可以看到按下1鍵和彈起ctrl鍵的命令分別是keypress 49，1 和 keyup 17，1 組合一下就得到彈起1鍵的命令為keyup 49，1。這里要注意的是逗號要用半形輸入。
7、一套連貫的攻擊完畢。下邊需要對自動吃葯的腳本進行編輯。在這個命令里我們主要是依靠對顏色的辨別來完成的。在控制命令里選擇需要的點和顏色進行編輯。（點和顏色用抓點功能直接在游戲里抓取）下邊插入的這個命令解讀為若點796，638的顏色為黑色時則如何，否則如何。什麼意思呢？假設游戲人物HP條50%處的點為796，638。那麼如果血掉到50%以下，這個點的顏色就應該是黑的了。這時我就要吃HP葯水了。
8、可以看出，這條命令無法單獨使用。我們需要插入吃葯的腳本命令。先在其他命令中選擇延時100毫秒插入，然後插入游戲中HP葯水的快捷鍵F2。這里說一下延時的用處。延時的設置是因為如果連續運行多條腳本命令時，機器可以能反映不過來而當掉，所以基本每條單獨的命令都會插入適當的延時。
9、若需要設置吃MP葯水，則同上步驟。若需在游戲中喊話，則可在其他命令中選擇文本輸入命令。記著輸入完文本還需設置回車命令將文本發送出去。
10、關於抓點。腳本編輯界面上方直接點選抓點功能，然後切入游戲，將滑鼠放到需要抓的點上，按抓點快捷鍵就可以將滑鼠點的坐標和顏色抓取下來了。
11、腳本編輯完畢，我們還需對腳本的啟動、停止熱鍵，以及對腳本的描述做出修改。熱鍵直接點在右邊編輯窗口需要修改的地方，然後點下滑鼠就可以修改了。熱鍵點完空白地方直接在鍵盤上按一下就可以了。注意腳本循環里一定要選擇循環到按中止鍵為止。
12、OK，全部編輯完畢，保存腳本退出。返回按鍵精靈主界面。現在已經可以看到我們自己製作的腳本了。
以上就是按鍵精靈簡單的游戲腳本製作，要注意的是幾乎所有的網路游戲都可以使用按鍵精靈，但部分帶有比較強的反外掛系統的網游只能使用按鍵精靈的部分功能，比如帶有nProtect或者xTrap反外掛系統的網游，就必須使用按鍵精靈最新版，並且打開神盾自我保護功能，才能使用。
2. 會用按鍵精靈做誅仙2青雲群怪腳本的教我一下
學會用按鍵精靈「錄制」功能就行了！自己學一下很容易懂！！渣爛雹！開如帆著法寶，設置自動加血，不主動攻擊任何怪，不拾取任何東西！！！再用錄制功能錄制一遍你群一輪怪的滑鼠鍵盤軌跡。腳本循環。跑回你開始錄制的地點，按啟動歷咐就OK了！
3. 夢幻誅仙求按鍵精靈腳本！高手進
夢幻誅仙自動殺怪腳本
Delay 2000
Delay 2000
UserVar Var=DropList{普通模擬:0|硬體模擬:1|超級模擬:2}=0 設置模擬方式
If var=0
SetSimMode 0
ElseIf var=1
SetSimMode 1
Else
SetSimMode 2
EndIf
//下面這句在屏幕區域范圍內查找多點顏色,返回左上角第2點顏色位置坐標
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "73F4FF", "1|0|C7FBFF,2|0|1AB7E3,3|0|1AB7E3,4|0|1AB7E3,5|0|1AB7E3,6|0|23D2F0,0|1|16B3E3,6|1|16B3E3,0|2|12ADE3,6|2|15BBEA,0|3|17DBFF,6|3|14CDF7,0|4|8DEBFF,6|4|0CBBF0,0|5|16D1FF,6|5|059FE3,0|6|029BE3,1|6|029BE3,2|6|029BE3,3|6|04CAFF,4|6|029BE3,5|6|029BE3,6|6|029BE3", 1)
//下面這句用於分割字元串
MyArray = Split(XY, "|")
//下面這句將字元串轉換成數值
m = Clng(MyArray(0)): n = Clng(MyArray(1))
If m<0
msgbox "腳本出錯了，請檢查解析度設置和桌面色度設置，腳本已停止！",16
EndScript
EndIf
UserVar a=DropList{F1:1|F2:2|F3:3|F4:4|F5:5|F6:6|F7:7|F8:8}=1 人物使用技能
UserVar b=DropList{普通攻擊:1|技能1:2}=1 寵物如何攻擊
UserVar renhong=40 人物加血（%）
UserVar renlan=30 人物加藍（%）
UserVar chonghong=40 寵物加血（%）
UserVar chonglan=30 寵物加藍（%）
Rem 開始
While 1
Gosub 判斷進入戰斗
EndWhile
Sub 精確找怪
MoveTo m+255,n-445
Delay 100
VBSCall var=GetCursorShape(0)
If var=1227848726
Delay 500
LeftClick 1
Goto 找怪結束
EndIf
MoveTo m+174,n-426
Delay 100
VBSCall var=GetCursorShape(0)
If var=1227848726
Delay 500
LeftClick 1
Goto 找怪結束
EndIf
MoveTo m+97,n-382
Delay 100
VBSCall var=GetCursorShape(0)
If var=1227848726
Delay 500
LeftClick 1
Goto 找怪結束
EndIf
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
Rem 找怪結束
Return 精確找怪
Sub 寵物操作
If b=1
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
ElseIf b=2
//技能1
VBSCall FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
If intx>0
Delay 300
MoveTo intx,inty
LeftClick 1
Delay 300
VBSCall FindPic(0,0,1024,768,"Attachment:\球.bmp",0.9,intX,intY)
If intx>0
MoveTo intx+23,inty+41
Delay 300
LeftClick 1
Gosub 精確找怪
EndIf
Else
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
EndIf
EndIf
//下面這句在屏幕區域范圍內查找多點顏色,返回左上角第2點顏色位置坐標
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
//下面這句用於分割字元串
MyArray = Split(XY, "|")
//下面這句將字元串轉換成數值
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x>0
Goto 開始
EndIf
Return 寵物操作
Sub 加雪藍
//人物加血
Delay 100
IfColor renhong*0.62+716+m n-572 311E73 2
MoveTo renhong*0.62+716+m,n-572
Delay 500
RightClick 1
EndIf
//人物加藍
Delay 100
IfColor renlan*0.62+716+m n-560 604714 2
MoveTo renlan*0.62+716+m,n-560
Delay 500
RightClick 1
EndIf
//寵物加血
Delay 100
IfColor chonghong*0.53+571+m n-572 604714 2
MoveTo chonghong*0.53+571+m,n-572
Delay 500
RightClick 1
EndIf
//寵物加藍
Delay 100
IfColor chonglan*0.53+572+m n-560 604717 2
MoveTo chonglan*0.53+572+m,n-560
Delay 500
RightClick 1
EndIf
Return 加雪蘭
Sub 驗證
VBSCall FindPic(m-12,n-568,m+787,n+13,"Attachment:\確.bmp",0.9,intX,intY)
If intx>0
While 1
Beep
Delay 1000
VBSCall FindPic(m-12,n-568,m+787,n+13,"Attachment:\確.bmp",0.9,intX,intY)
If intx<0
Goto 跳出驗證
EndIf
EndWhile
EndIf
Rem 跳出驗證
Return 驗證
Sub 人物按鍵
Delay 100
If a=1
KeyPress 112,1
ElseIf a=2
KeyPress 113,1
ElseIf a=3
KeyPress 114,1
ElseIf a=4
KeyPress 115,1
ElseIf a=5
KeyPress 116,1
ElseIf a=6
KeyPress 117,1
ElseIf a=7
KeyPress 118,1
ElseIf a=8
KeyPress 119,1
EndIf
Return 人物按鍵
Sub 判斷進入戰斗
VBSCall FindPic(m+8, n-564, m+32, n-546,"Attachment:\x.bmp",0.9,X,Y)
If x>0
//殺怪
While 1
Delay 500
//人物操作 判斷是否出現法字
//下面這句在屏幕區域范圍內查找多點顏色,返回左上角第2點顏色位置坐標
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "F6E5A1", "1|0|E5C683,0|1|FFEDAC,1|1|EFD292,-4|2|E1B679,-3|2|FFE6A9,-2|2|FFE6A9,-1|2|FFE6A9,0|2|FFE6A9,1|2|FFE6A9,2|2|FFE6A9,3|2|FFE6A9,4|2|FFE6A9,5|2|E0B377,-4|3|D39B61,-3|3|EFC68C,-2|3|EFC68C,-1|3|EFC68C,0|3|FFDFA6,1|3|FDDBA2,2|3|EFC68C,3|3|EFC68C,4|3|EFC68C,5|3|D49D62,0|4|FFD8A3,1|4|EFC08A,0|5|FFD19F,1|5|EFBA87,-4|6|EEB383,-3|6|EFB484,-2|6|EFB484,-1|6|EFB484,0|6|FFCA9C,1|6|FDC699,2|6|EFB484,3|6|EFB484,4|6|EFB484,5|6|EBAF7F,-4|7|FFC299,-3|7|FFC399,-2|7|FFC399,-1|7|FFC399,0|7|FFC399,1|7|FFC399,2|7|FFC399,3|7|FFC399,4|7|FFC399,5|7|FABD93,-2|8|C2713F,-1|8|FFBB96,0|8|C77847,-3|9|B15B26,-2|9|FDB290,-1|9|FAAF8C,2|9|F2A681,3|9|F9AD8A,-4|10|A0470E,-3|10|F6A484,1|10|973F00,2|10|D07B4F,3|10|FFAD90,4|10|E5926D,-4|11|DE8561,-3|11|FFA68D,3|11|FBA288,4|11|FFA68D,5|11|BB6131,-4|12|FF9F89,-3|12|FF9F89,-2|12|F3947A,-1|12|F4957B,0|12|FC9C86,1|12|FF9F89,2|12|FF9F89,3|12|FF9F89,4|12|FF9F89,5|12|F09175,-4|13|E48063,-3|13|FD9683,-2|13|FD9784,-1|13|F9937E,0|13|F18B74,1|13|E58165,2|13|D67452,3|13|C26338,4|13|F08B73,5|13|FF9886,5|14|D46E4D", 1)
//下面這句用於分割字元串
MyArray = Split(XY, "|")
//下面這句將字元串轉換成數值
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
Gosub 驗證
If x>0
Gosub 人物按鍵
Gosub 精確找怪
Delay 1000
Gosub 寵物操作
EndIf
//下面這句在屏幕區域范圍內查找多點顏色,返回左上角第2點顏色位置坐標
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
//下面這句用於分割字元串
MyArray = Split(XY, "|")
//下面這句將字元串轉換成數值
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
//判斷是否結束戰斗
If x>0
Gosub 加雪藍
Delay 300
Goto 開始
EndIf
EndWhile
EndIf
Return 判斷進入戰斗
東西給你了，如果還不懂的話我也沒辦法
4. 求按鍵精靈3D游戲自動打怪腳本製作教程。。。。
首先，3D當2D處理=不準動滑鼠滑輪
然後，根據血條判斷怪物存在，找怪通常是TAB鍵：在野外按下TAB鍵，當屏幕出現怪物血條按下攻擊快捷鍵打怪，其間血條消失則重新判斷另外一隻怪重復動作即可
總結：要結合判斷依據才行。建議用顏色判斷
5. 請問按鍵精靈在網路游戲中是如何使用的..例如自動打怪的
按鍵精靈
最簡單的用法就是：打開按鍵精靈，選擇左上角的」增加」，那是做一個新腳本時用的．
進入腳本
編輯器
後，先看你的頂上，選一個腳本名字（這個名字就會成為腳本在
硬碟
上的文件名），選好啟動熱鍵和中止熱鍵．
然後你看到左邊有一個」滑鼠動作」了嗎？在這個裡面有一個滑鼠動作的選擇，你把它選到」右鍵按下」，後面的」執行次數」不要動它，再按一下後面的」插入」，好現在這一行命令就進入你的程序了！
最後就是按右上角的保存腳本，再退出來就完成啦！現在你一按你自己設定的啟動熱鍵，按鍵精靈就會自動幫你按下右鍵了，多方便呀！把你貼在滑鼠右鍵上的膠帶撕下來吧！你的滑鼠會哭泣的！
其它更復雜一點的腳本的製作方法呢？請看一下
精靈
中有幾個示範腳本。你已經學會了做腳本的基本方法，再學下去就不難啦！
6. 如何使用按鍵精靈快速製作自動打怪腳本
打開按鍵精靈的新建選項，選擇鍵盤命令，輸入以下數值，按插入鍵。
7. 誅仙簡單自動打怪腳本，我只要能自動打怪的就行了！！哪位高手給個
誅仙 自動打怪 外掛 按鍵精靈 腳本代碼
實現誅仙裡面類似法寶天人和一 自動喝葯打怪練級的
F4 大紅 f5 大藍 f6 揀東西 設置好後
簡單代碼如下 :
[General]
Description=自動練級
BeginHotkey=122
BeginHotkeyMod=0
RunOnce=0
Enable=1
[Repeat]
Type=1
Number=9699696
[Script]
KeyPress 9 1
Delay 1000
KeyPress 49 1
Delay 1000
KeyPress 49 1
Delay 10000
KeyPress 115 1
KeyPress 116 1
KeyPress 117 1
ScriptOption]
Description=誅仙自動打怪
BeginHotkey= 122
BeginHotkeyMod= 0
EndHotKey= 123
EndHotKeyMod= 0
RunOnce= 0
Enable= 1
Type= 1
Number= 1
ScriptFormat= 0
[Comment]
誅仙
[InitVar]
UserVar=基址|VarName=Var19|Type=String|Value=8ec0f4
UserVar=精靈工作方式|VarName=Var30|Type=DownList|Value= 0|Enum=掛機;輔助
UserVar=拾物時間(毫秒)|VarName=Var32|Type=Long|Value= 500
UserVar=紅瓶|VarName=Var6|Type=DownList|Value= 8|Enum=自定義
UserVar=加紅百分比(1-100)|VarName=Var13|Type=Long|Value= 60
UserVar=藍瓶|VarName=Var7|Type=DownList|Value= 9|Enum=自定義
UserVar=加藍百分比(1-100)|VarName=Var14|Type=Long|Value= 30
UserVar=運氣|VarName=Var9|Type=DownList|Value= 7|Enum=自定義
UserVar=是否運氣回血，1=是，0=否|VarName=Var12|Type=DownList|Value= 0|Enum=否;是
UserVar=拾取|VarName=Var8|Type=DownList|Value= 10|Enum=自定義
UserVar=普通攻擊|VarName=Var1|Type=DownList|Value= 0|Enum=自定義
UserVar=技能一|VarName=Var2|Type=DownList|Value= 17|Enum=自定義
UserVar=技能二|VarName=Var3|Type=DownList|Value= 17|Enum=自定義
UserVar=技能三|VarName=Var50|Type=DownList|Value= 17|Enum=自定義
UserVar=輔助一|VarName=Var11|Type=DownList|Value= 17|Enum=自定義
UserVar=輔助一施放間隔(毫秒)|VarName=Var24|Type=Long|Value= 1800000
UserVar=輔助二|VarName=Var4|Type=DownList|Value= 16|Enum=自定義
UserVar=輔助二施放間隔(毫秒)|VarName=Var25|Type=Long|Value= 1800000
UserVar=輔助三|VarName=Var5|Type=DownList|Value= 17|Enum=自定義
UserVar=輔助三施放間隔(毫秒)|VarName=Var26|Type=Long|Value= 1800000
[VBSScriptCode]
[Main]
Dim HPSetup
Dim MPSetup
Dim fzjnSetup1
Dim fzjnSetup2
Dim fzjnSetup3
Dim hxSetup
Dim hpTime 'HP葯的延遲
Dim mpTime 'MP葯的延遲
Dim fzjn1 '輔助技能延遲
Dim fzjn2 '輔助技能延遲
Dim fzjn3 '輔助技能延遲
Dim nowTime '當前時間
Dim i
Dim NewLoop '新循環
Dim chucktime '扔東西再揀東西的間隔時間
Dim guaicode '怪的代碼
Dim gxfs
Dim neicun,base_3,base_2,base_1,base_0,base
Dim dxue,dlan,mxue,mlan,bug,tmph
Dim hwnd,CTime,CTK,CTB,JTime,Bug_CDX,Bug_CDY,CDX_Ptr,CDY_Ptr,CDX_Base,CDY_Base
Dim mxue1,mlan1,dxue1,dlan1,gwid1,gwid2
Sub Main()
Call GetSetup
chucktime=0
hptime=GetTime
mptime=GetTime
fzjn1=GetTime-fzjnSetup1
fzjn2=GetTime-fzjnSetup2
fzjn3=GetTime-fzjnSetup3
newloop=0
hwnd=HWindow.getForeground
Call SetupMEM
gwid1=HMEM.ReadMEMEX(hwnd,bug,3)
gwid2=gwid1
Do While 1=1
Call UseAssistSkill '使用輔助技能
If gxfs="掛機" Then
Call FindObject '找怪
js=0
'----------------打怪----------------
CTK = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)<>0 And GetTime - CTK < 180000
'-------------先砍怪一下-------------
If js=0 Then
HApp.SendKeyPress hwnd,Var1 '第一技能按鍵，我的是按鍵<1>
Delay 400
js=1
End If
'------------------------------------
'--------------施放技能1-------------
HApp.SendKeyPress hwnd,Var2 '第一技能按鍵，我的是按鍵<F4>
Delay 400
'------------------------------------
'--------------施放技能2-------------
HApp.SendKeyPress hwnd,Var3 '第二技能按鍵，我的是按鍵<F5>
Delay 400
'------------------------------------
'--------------施放技能3-------------
HApp.SendKeyPress hwnd,Var50 '第三技能按鍵，我的是按鍵<F6>
Delay 200
Call SupplyHP '補血
Call SupplyMP '補藍
Delay 200
'------------------------------------
Loop
gwid1=gwid2
'-----------------------------------
Delay 200
Call CullArticle '揀東西
End If
If gxfs="輔助" Then
Call SupplyHP '補血
Call SupplyMP '補藍
End If
If newloop=0 Then
Call RenewVitality '運氣回復
End If
Delay 200
Loop
End Sub
Sub GetSetup() '設置變數初始值
HPSetup = Var13 '加紅設置，單位為百分比，但請不要設置為22至68之間，該區域被有可能被文字遮擋，無法取血條顏色
MPSetup = Var14 '加藍設置，單位為百分比，但請不要設置為22至68之間，該區域被有可能被文字遮擋，無法取藍條顏色
fzjnSetup1 = Var24 '輔助技能施放間隔，單位為毫秒，1秒=1000毫秒
fzjnSetup2 = Var25 '輔助技能施放間隔，單位為毫秒，1秒=1000毫秒
fzjnSetup3 = Var26 '輔助技能施放間隔，單位為毫秒，1秒=1000毫秒
hxSetup = Var12 '是否運氣回血，1=是，0=否
gxfs=Var30
End Sub
Sub UseAssistSkill() '使用輔助技能
nowtime=GetTime
If nowtime-fzjn1>fzjnSetup1 Then
For j=1 To 2
HApp.SendKeyPress hwnd,Var11 '
Delay 300
Next
fzjn1=GetTime
End If
nowtime=GetTime
If nowtime-fzjn2>fzjnSetup2 Then
For j=1 To 2
HApp.SendKeyPress hwnd,Var4 '
Delay 300
Next
fzjn2=GetTime
End If
nowtime=GetTime
If nowtime-fzjn3>fzjnSetup3 Then
For j=1 To 2
HApp.SendKeyPress hwnd,Var5 '
Delay 300
Next
fzjn3=GetTime
End If
End Sub
Sub FindObject() '找怪
CTime = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)=0 And gwid1=gwid2
HApp.SendKeyPress hwnd,"Tab" '找怪
Delay 300
gwid2=HMEM.ReadMEMEX(hwnd,bug,3)
Loop
End Sub
Sub SupplyHP() '補血
nowtime=GetTime
If nowtime-hptime>3000 Then
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
If dxue1<(mxue1*HPSetup/100)-1 Then
hptime=GetTime
HApp.SendKeyPress hwnd,Var6 '
Delay 100
End If
End If
End Sub
Sub SupplyMP() '補藍
nowtime=GetTime
If nowtime-mptime>3000 Then
dlan1 = HMEM.ReadMEMEX(hwnd,dlan,3)
If dlan1<(mlan1*MPSetup/100)-1 Then
mptime=GetTime
HApp.SendKeyPress hwnd,Var7 '
Delay 100
End If
End If
End Sub
Sub CullArticle() '揀東西
CTB = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)=0 And GetTime - CTB < Var32 '用1000MS揀東西
HApp.sendKeyPress hwnd,Var8
Delay 100
Loop
End Sub
Sub RenewVitality() '運氣回復
If hxSetup="是" Then
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
If dxue1<(mxue1*70/100)-1 Then
HApp.SendKeyPress hwnd,Var9 '氣功回血，我的是按鍵<0>
Do While dxue1<(mxue1*90/100)-1
Delay 500
'假如回復過程中被攻擊則中斷回血
If HMEM.ReadMEMEX(hwnd,bug,3)<>0 Then
newloop=1
Exit Do
End If
'------------------------------
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
Loop
End If
End If
End Sub
Sub SetupMEM()
Dim memstr
memstr=Var19
memstr = CLng("&h" & memstr)
memstr = gethex(hex(memstr))
base = HMEM.ReadMEMEX(Hwnd,memstr,3)
base = base + 40
base = gethex(hex(base))
base = HMEM.ReadMEMEX(Hwnd,base,3)
base = base + 596
dxue = gethex(hex(base))
dlan = gethex(hex(base + 4))
mxue = gethex(hex(base + 24))
mlan = gethex(hex(base + 28))
bug = gethex(hex(base + 1376))
mxue1 = HMEM.ReadMEMEX(hwnd,mxue,3) '最大化xue值
mlan1 = HMEM.ReadMEMEX(hwnd,mlan,3) '最大化lan值
End Sub
Function gethex(hexstr)
Dim tempstr
tempstr=string(8-len(hexstr),"0")
gethex="&H"& tempstr & hexstr
End Function
[MainEnd]
[VBSLib]
\MyLib\Default.Txt
[EndVBSLib]
[PublicVar]
[EndPublicVar]
8. 按鍵精靈自動打怪腳本如何設置
[Script]
Plugin hwnd=Window.Foreground()
Import window.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
dx=s(0)
dy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVar fqg=DropList{防搶怪:0|不防搶怪:1}=0 防搶怪設置
UserVar jb=DropList{不撿包:0|自動撿包:1}=0 是否撿物
UserVar s1=2 門派普攻F1間隔(秒)
UserVar s2=20 單體攻擊F2間隔(秒)
UserVar s3=20 單體攻擊F3間隔(秒)
UserVar s4=25 怒氣攻擊F4間隔(秒)
UserVar s5=80 自定技能F5間隔(秒)
UserVar s6=60 BB技能F6間隔(秒)
UserVar s7=10 狀態技能F7間隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少於%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 藍少於%加藍F9
UserVar bbred=DropList{沒有出戰:0|20%:20|30%:30|50%:50}=2 寵少於%加血F10
UserVar redwait=1 紅葯冷卻時間(秒)
UserVar bluewait=1 藍葯冷卻時間(秒)
UserVar monwait=100 尋怪延時(毫秒)
PutAttachment .\plugin *.dll
Rem 開始
Delay monwait
Gosub 驗證碼
Gosub 找怪
If fqg=0
IfColor dx+369,dy+31,1E252A,2
Goto 開始
EndIf
EndIf
Rem 繼續殺怪
Gosub 判斷血藍狀態
Gosub BB血狀態
Gosub 殺怪
Rem End
EndScript
Sub 驗證碼
Rem 再次報警
VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
If x>0 and y>0
Plugin SimPlayer.ring(19)
//使用了聲音插件，需要自己去官網下載
Delay 2000
EndIf
While x>0
VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
If x>=0 and y>=0
IfColor x+17,y+9-k,FFFFFF,0
KeyPress 27 1
Delay 1000
MoveTo dx+446,dy+315
Delay 1000
LeftClick 1
Goto End
EndIf
Else
Goto 再次報警
EndIf
EndWhile
Return 驗證碼
Sub 判斷血藍狀態
IfColor red/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColor blue/100*120+66+dx dy+37 222222 2
b=b+1
Else
EndIf
Return 判斷血藍狀態
Sub BB血狀態
If bbred>0
IfColor bbred+91+dx dy+69 111111 2
c=c+1
EndIf
EndIf
Return BB血狀態
Sub 找怪
KeyDown 1,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 1,1
Delay 10
Return 找怪
Sub 殺怪
IfColor dx+247,dy+31,0019FF,2
IfColor dx+261,dy+31,0011ff,2
Gosub 技能
Else
KeyPress 12 1
Delay 1000
EndIf
Goto 繼續殺怪
Else
If jb=1
Gosub 撿包
Else
Goto 開始
EndIf
EndIf
Return 殺怪
Sub 怒氣判斷
IfColor qx+126,qy+43,00ffff,2
q=1
EndIf
IfColor qx+188,qy+43,00ffff,2
q=2
EndIf
Return 怒氣判斷
Sub 技能
Goto 開始
If DateDiff("s",t1,now)>=s1
KeyPress 12 1
t1=now
Delay 100
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t2,now)>=s2
Delay 500
KeyPress 113 1
t2=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t3,now)>=s3
Delay 500
KeyPress 114 1
t3=now
Delay 500
EndIf
Else
EndIf
Gosub 怒氣判斷
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t4,now)>=s4 and q>=1
Delay 500
KeyPress 115 1
t4=now:q=q-1
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t5,now)>=s5
Delay 500
KeyPress 116 1
t5=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t6,now)>=s6
KeyPress 117 1
t6=now
Delay 100
EndIf
EndIf
If DateDiff("n",t7,now)>=s7
MoveTo dx+36,dy+35
LeftClick 1
Delay 100
KeyPress 118 1
t7=now
Delay 100
KeyDown 17,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 17,1
Delay 10
EndIf
If DateDiff("s",t8,now)>=redwait and a>=1
KeyPress 119 1
t8=now:a=0
Delay 500
EndIf
If DateDiff("s",t9,now)>=bluewait and b>=1
KeyPress 120 1
t9=now:b=0
Delay 500
EndIf
If DateDiff("s",t10,now)>=1 and c>=1
KeyPress 121 1
t10=now
c=0
Delay 500
EndIf
Return 技能
Sub 撿包
Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
If x0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 開始搜索
v=l
i=m
x1=x0:y1=y0-v
While x1>=n
k1=0:k2=v
For 2
For i
x1=x1+k1:y1=y1+k2
If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2
MoveTo x1,y1
Delay 2
VBSCall shape=GetCursorShape(0)
If shape=d
Delay 50
RightClick 1
Delay 400
Goto 開始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto 開始
Return 撿包