诛仙免费挂机脚本
1. 诛仙3怎么做到挂机不用精力
挂机不用精力，只能是用脚本挂机，就是所谓的外挂，需要收费的，一经发现会被封号（天下没有免费的午餐).
其实游戏弄精力也很简单，爬多人塔楼送2个10000的精力，配合每天VIP领的5000，还有系统5小时送的10000精力，几乎是可以挂20小时。如果你连任务都不去跑直接24小时挂机，那么就帮不了你了
2. 梦幻诛仙的手游用啥辅助脚本玩着比较好的
梦幻诛仙的手游用鸟人助手呀，这款辅助脚本玩手游是真的好玩，你用过就知道了，我挺喜欢用这款来玩的。
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. 那里买诛仙挂机脚本
当前比较流行的挂机角本就是按键精灵了，免费的！当然了，也有收费的。操作也很简单，楼主可以登陆按键精灵官方网站，到网游类搜索诛仙即可！按照提示下载使用就行了！或网络M我！
5. 求一个诛仙3的挂机脚本
都是卖的啊，
6. 诛仙简单自动打怪脚本，我只要能自动打怪的就行了！！哪位高手给个
诛仙 自动打怪 外挂 按键精灵 脚本代码
实现诛仙里面类似法宝天人和一 自动喝药打怪练级的
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]
7. 哪里可以找到梦幻诛仙手游辅助挂机脚本呀用着顺手吗
我在鸟人助手里面下载的，用起来感觉比较流畅顺手，经常在里面自动挂机刷金币，自动委托等等，而且它们的软件IOS和安卓都可以用，免调分辨率等等。