用按鍵精靈制作的夢幻誅仙腳本如何在游戲窗口中運行？
把鼠標指向可以發送按鍵的窗口，然后啟動腳本即可運行： Plugin hwnd = Window.MouPoint() Rem Loop Plugin Window.SendKeyDown(hwnd,17) Delay 203 Plugin Window.SendKeyDown(hwnd,9) Delay 125 Plugin Window.SendKeyUp(hwnd,17) Delay 63 Plugin Window.SendKeyUp(hwnd,9) Delay 609 Plugin Window.SendKeyDown(hwnd,112) Delay 78 Plugin Window.SendKeyUp(hwnd,112) Goto Loop 如若不要循環，則去掉最后一行"Goto Loop"
求采納
夢幻誅仙求按鍵精靈腳本！高手進
夢幻誅仙自動殺怪腳本
Delay 2000
Delay 2000
UrVar Var=DropList{普通模擬:0|硬件模擬:1|超級模擬:2}=0 設置模擬方式
If var=0
SetSimMode 0
ElIf var=1
SetSimMode 1
El
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
UrVar a=DropList{F1:1|F2:2|F3:3|F4:4|F5:5|F6:6|F7:7|F8:8}=1 人物使用技能
UrVar b=DropList{普通攻擊:1|技能1:2}=1 寵物如何攻擊
UrVar renhong=40 人物加血（%）
UrVar renlan=30 人物加藍（%）
UrVar chonghong=40 寵物加血（%）
UrVar 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
ElIf 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
El
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
ElIf a=2
KeyPress 113,1
ElIf a=3
KeyPress 114,1
ElIf a=4
KeyPress 115,1
ElIf a=5
KeyPress 116,1
ElIf a=6
KeyPress 117,1
ElIf a=7
KeyPress 118,1
ElIf 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 判斷進入戰斗
東西給你了，如果還不懂的話我也沒辦法
