❶ 我想做個誅仙腳本
汗~~~
❷ 電腦怎樣誅仙3使用游戲輔助腳本
去多玩下載很多的輔助腳本。有些的不會封號，用腳本都要小心，這東西一但查出來，就會被封號
❸ 怎麼用按鍵精靈寫誅仙3的後台腳本
按鍵精靈無法在誅仙里用，被完美屏蔽了，這個很久以前就不能用了
誅仙剛出釣魚活動時候，是可以用的，後來就因為這個很多人用按鍵精靈搶魚竿，再後來就被屏蔽了
❹ 關於游戲腳本（誅仙）那些腳本都用什麼做的按鍵精靈嗎還是某種編程語言寫的還是兩者結合
就是按鍵精靈 裡面的製作腳本 編寫一些步驟神馬的 掛機的時候結合天人合一 就OK了
❺ 急求私服誅仙3的腳本 以前用的12-24不能用了。
可以用吧，你把窗口放人頭下面點就可以用了
❻ 誅仙3腳本是用買的嗎 我怎麼沒有
基本是買的，不過得看你是想用什麼樣的了，如果是那種什麼卡圖的卡屏的，遇反彈自動停手，遇擊殺招自動保命之類的，就肯定是要花錢的
但是完美也搞了一部分在那個小助手裡面，就是一鍵切裝備，一鍵切陣靈，放技能自動切護符之類的，在那個PGP平台登錄游戲的時候，在多開的旁邊有個小助手，點擊下載就可以了，在游戲裡面按END鍵就可以呼出，然後自己設置
❼ 求誅仙的腳本
這個腳本是青雲群怪用的腳本，想要免費的一般只有工作室有，你也可以去簡單游裡面找，只不過那裡面是要錢的，一般都是
一個星期5元左右
❽ 誅仙簡單自動打怪腳本，我只要能自動打怪的就行了！！哪位高手給個
誅仙 自動打怪 外掛 按鍵精靈 腳本代碼
實現誅仙裡面類似法寶天人和一 自動喝葯打怪練級的
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]