當前位置:首頁 » 網頁前端 » 怎麼寫誅仙腳本
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

怎麼寫誅仙腳本

發布時間: 2023-01-09 20:25:30

❶ 誅仙2中的那個腳本是什麼意思啊!怎麼弄的!有什麼腳本啊

你網路「按鍵精靈」一下,目前不會被封的腳本基本是用這個軟體編寫的。這是一款傻瓜式編寫軟體,稍微懂點程序知識的就會。腳本呢,有很多,網路上面很多假的,是木馬,建議不要使用。如果有興趣,你可以下個按鍵精靈去學學。蠻簡單的。 http://bbs.meyame.com/read-htm-tid-124.html

❷ 怎麼用按鍵精靈寫誅仙3的後台腳本

按鍵精靈無法在誅仙里用,被完美屏蔽了,這個很久以前就不能用了
誅仙剛出釣魚活動時候,是可以用的,後來就因為這個很多人用按鍵精靈搶魚竿,再後來就被屏蔽了

❸ 誅仙腳本怎麼寫

這個問題。。。。還是問專業的編程人員吧!

❹ 誅仙南雨輔助怎麼寫腳本

不能寫。腳本屬於誅仙南雨游戲內用代碼的開掛行為,嚴格意義上來說是破壞游戲的公平性,即使是輔助的位置也不應該開掛的,不要寫腳本。

❺ 會用按鍵精靈做誅仙2青雲群怪腳本的教我一下

學會用按鍵精靈「錄制」功能就行了!自己學一下很容易懂!!!開著法寶,設置自動加血,不主動攻擊任何怪,不拾取任何東西!!!再用錄制功能錄制一遍你群一輪怪的滑鼠鍵盤軌跡。腳本循環。跑回你開始錄制的地點,按啟動就OK了!

❻ 誅仙簡單自動打怪腳本,我只要能自動打怪的就行了!!哪位高手給個

誅仙 自動打怪 外掛 按鍵精靈 腳本代碼

實現誅仙裡面類似法寶天人和一 自動喝葯打怪練級的
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]

❼ 誅仙南雨輔助怎麼寫腳本

不用寫腳本。誅仙南雨輔助是一款專門為喜歡誅仙手游的玩家朋友們打造的手游輔助器,腳本都是編寫好的,打開輔助器即可自動使用,可以自動做任務、刷副本。

❽ 誅仙2青雲群蠻荒凶靈腳本教程誰有 腳本怎樣寫。我有Seraph

首先,腳本是人人可以弄。但是你要有掛。
我用青雲群殺掛,腳本都是自己寫的或者把範本改一下,因為寫腳本的人都是考慮大眾裝備的,不一定適合你用。
至於你要自己重新寫個MH凶靈的腳本,你選個蠻荒的腳本出來,把以前的坐標技能全部刪了,別選錯地圖了,選錯地圖的包袱滿了或者沒葯了可能找不對應NPC。
你先自己手動群幾次,記好大概地點放的什麼技能,然後上飛劍去記錄坐標,輸進腳本,一切OK了。

❾ 關於游戲腳本(誅仙)那些腳本都用什麼做的按鍵精靈嗎還是某種編程語言寫的還是兩者結合

就是按鍵精靈 裡面的製作腳本 編寫一些步驟神馬的 掛機的時候結合天人合一 就OK了

❿ 誅仙2法寶血煉腳本用什麼軟體能製作我想自己做腳本,求...

用多玩誅仙盒子自己製作或者按鍵精靈,再不行去買10RMB一個星期在簡單游裡面有賣,360軟體管家裡面有下載