那里买诛仙挂机脚本(诛仙脚本免费版)

当前比较流行的挂机角本就是按键精灵了，免费的！当然了，也有收费的。操作也很简单，楼主可以登陆按键精灵官方网站，到网游类搜索诛仙即可！按照提示下载使用就行了！或百度M我！

诛仙简单自动打怪脚本，我只要能自动打怪的就行了！！哪位高手给个？

诛仙 自动打怪 外挂 按键精灵 脚本代码

实现诛仙里面类似法宝天人和一 自动喝药打怪练级的

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-fzjn1fzjnSetup1 Then

For j=1 To 2

HApp.SendKeyPress hwnd,Var11 '

Delay 300

Next

fzjn1=GetTime

End If

nowtime=GetTime

If nowtime-fzjn2fzjnSetup2 Then

For j=1 To 2

HApp.SendKeyPress hwnd,Var4 '

Delay 300

Next

fzjn2=GetTime

End If

nowtime=GetTime

If nowtime-fzjn3fzjnSetup3 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-hptime3000 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-mptime3000 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]

梦幻诛仙手游辅助什么好用

叉叉、烧饼、八门神器，虫夆 窝 且力 手这几个辅助比较常见，不过相对而言虫夆 窝 且力 手好用一点

诛仙私服雪琪宝宝无限群的脚本谁有 给个呀，不要经典一百

上网直接搜傲世诛仙：打开页面，在右边有个辅助工具下载。点下就可以了,运行私服诛仙。

然后直接打开辅助工具就好了，里面有BB的设置，你看下的，比一百好用多了。

《诛仙》是由北京完美时空网络技术有限公司根据萧鼎所著同名仙侠小说改编开发的角色扮演类网络游戏，后又发行了《诛仙2》，系列最新作品为《诛仙3》。游戏背景在小说《诛仙》为基础上进行了一些改进，添加了一些新的元素。

自太古以来，人类眼见周遭世界，诸般奇异之事，电闪雷鸣，狂风暴雨，又有天灾人祸，伤亡无数，哀鸿遍野，决非人力所能为之。遂以为九天之上，有诸般神灵，九幽之下，亦是阴魂归处，阎罗殿堂。于是神仙之说，盛行于世。无数人类子民，诚心叩拜，向着自己臆想创造出的各种神明顶礼膜拜，祈福诉苦，香火鼎盛。

从古至今，凡人无不有一死。但世人皆恶死爱生，更有地府阎罗之说，平添了几分苦惧，在此之下，遂有长生不死之说。

相比与其他生灵物种，人类或在体质上处于劣势，但万物灵长，却是绝无虚言。在追求长生的原动力下，一代代聪明才智之士，前赴后继，投入毕生精力，苦苦钻研。