青云志脚本
A. 怎么用按键精灵写诛仙3的后台脚本
按键精灵无法在诛仙里用，被完美屏蔽了，这个很久以前就不能用了
诛仙刚出钓鱼活动时候，是可以用的，后来就因为这个很多人用按键精灵抢鱼竿，再后来就被屏蔽了
B. 关于游戏脚本（诛仙）那些脚本都用什么做的按键精灵吗还是某种编程语言写的还是两者结合
脚本是C++编写的，
按键精灵WM是不封的，只是会掉线
按键精灵编写的也可以叫做脚本，不过不变态，还不能乱了你的秩序，一乱就要重新开一下
C. 哪个知道诛仙工作室的脚本都是在哪弄的
工作室的脚本有的是会写程序和木马的人自己做的 有的是淘宝买的
你如果需要脚本去淘宝，5173这些平台上面看看有很多~
D. 会用按键精灵做诛仙2青云群怪脚本的教我一下
学会用按键精灵“录制”功能就行了！自己学一下很容易懂！！！开着法宝，设置自动加血，不主动攻击任何怪，不拾取任何东西！！！再用录制功能录制一遍你群一轮怪的鼠标键盘轨迹。脚本循环。跑回你开始录制的地点，按启动就OK了！
E. 诛仙简单自动打怪脚本，我只要能自动打怪的就行了！！哪位高手给个
诛仙 自动打怪 外挂 按键精灵 脚本代码
实现诛仙里面类似法宝天人和一 自动喝药打怪练级的
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]
F. 向用过诛仙青云群怪脚本的前辈请教下~~
..如果是淘宝上花钱买的
..没有病毒..不会被盗号..除了青云
鬼道和天音也有.但是青云的最效率..和天人合一差距很大
相当大..挂是智能的
可以引怪群效率很高...封号的问题...完美当然会不定期查..查到就杯具
不过封号不会永久封..要看你充多少钱了
充1000元宝以上只封10分钟
有10次机会..没冲过钱的没记错应该是6小时..有几次机会就不知道了..
G. 诛仙2的脚本有没有病毒
您好
1，第三方辅助都是带有木马病毒的，建议您千万不要尝试
2，即使您不担心病毒，您使用后，肯定会导致的您游戏数据异常，最后导致被封号。
3，所以您千万不要尝试，您不信的话，可以到腾讯电脑管家官网下载一个电脑管家。
4，使用电脑管家——杀毒——指定位置查杀——选择该脚本的安装位置扫描一下就知道了。
如果还有其他疑问和问题，欢迎再次来电脑管家企业平台进行提问，我们将尽全力为您解答疑难