梦幻诛仙自动打怪脚本 谁发个可以用的来 梦幻诛仙自动打怪脚本编写，有的发我343808708@qq....

\u8bdb\u4ed9\u7b80\u5355\u81ea\u52a8\u6253\u602a\u811a\u672c\uff0c\u6211\u53ea\u8981\u80fd\u81ea\u52a8\u6253\u602a\u7684\u5c31\u884c\u4e86\uff01\uff01\u54ea\u4f4d\u9ad8\u624b\u7ed9\u4e2a\uff1f

\u8bdb\u4ed9 \u81ea\u52a8\u6253\u602a \u5916\u6302 \u6309\u952e\u7cbe\u7075 \u811a\u672c\u4ee3\u7801

\u5b9e\u73b0\u8bdb\u4ed9\u91cc\u9762\u7c7b\u4f3c\u6cd5\u5b9d\u5929\u4eba\u548c\u4e00 \u81ea\u52a8\u559d\u836f\u6253\u602a\u7ec3\u7ea7\u7684
F4 \u5927\u7ea2 f5 \u5927\u84dd f6 \u62e3\u4e1c\u897f \u8bbe\u7f6e\u597d\u540e
\u7b80\u5355\u4ee3\u7801\u5982\u4e0b :
[General]
Description=\u81ea\u52a8\u7ec3\u7ea7
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=\u8bdb\u4ed9\u81ea\u52a8\u6253\u602a
BeginHotkey= 122
BeginHotkeyMod= 0
EndHotKey= 123
EndHotKeyMod= 0
RunOnce= 0
Enable= 1
Type= 1
Number= 1
ScriptFormat= 0
[Comment]
\u8bdb\u4ed9


[InitVar]
UserVar=\u57fa\u5740|VarName=Var19|Type=String|Value=8ec0f4
UserVar=\u7cbe\u7075\u5de5\u4f5c\u65b9\u5f0f|VarName=Var30|Type=DownList|Value= 0|Enum=\u6302\u673a;\u8f85\u52a9
UserVar=\u62fe\u7269\u65f6\u95f4(\u6beb\u79d2)|VarName=Var32|Type=Long|Value= 500
UserVar=\u7ea2\u74f6|VarName=Var6|Type=DownList|Value= 8|Enum=\u81ea\u5b9a\u4e49
UserVar=\u52a0\u7ea2\u767e\u5206\u6bd4(1-100)|VarName=Var13|Type=Long|Value= 60
UserVar=\u84dd\u74f6|VarName=Var7|Type=DownList|Value= 9|Enum=\u81ea\u5b9a\u4e49
UserVar=\u52a0\u84dd\u767e\u5206\u6bd4(1-100)|VarName=Var14|Type=Long|Value= 30
UserVar=\u8fd0\u6c14|VarName=Var9|Type=DownList|Value= 7|Enum=\u81ea\u5b9a\u4e49
UserVar=\u662f\u5426\u8fd0\u6c14\u56de\u8840\uff0c1=\u662f\uff0c0=\u5426|VarName=Var12|Type=DownList|Value= 0|Enum=\u5426;\u662f
UserVar=\u62fe\u53d6|VarName=Var8|Type=DownList|Value= 10|Enum=\u81ea\u5b9a\u4e49
UserVar=\u666e\u901a\u653b\u51fb|VarName=Var1|Type=DownList|Value= 0|Enum=\u81ea\u5b9a\u4e49
UserVar=\u6280\u80fd\u4e00|VarName=Var2|Type=DownList|Value= 17|Enum=\u81ea\u5b9a\u4e49
UserVar=\u6280\u80fd\u4e8c|VarName=Var3|Type=DownList|Value= 17|Enum=\u81ea\u5b9a\u4e49
UserVar=\u6280\u80fd\u4e09|VarName=Var50|Type=DownList|Value= 17|Enum=\u81ea\u5b9a\u4e49
UserVar=\u8f85\u52a9\u4e00|VarName=Var11|Type=DownList|Value= 17|Enum=\u81ea\u5b9a\u4e49
UserVar=\u8f85\u52a9\u4e00\u65bd\u653e\u95f4\u9694(\u6beb\u79d2)|VarName=Var24|Type=Long|Value= 1800000
UserVar=\u8f85\u52a9\u4e8c|VarName=Var4|Type=DownList|Value= 16|Enum=\u81ea\u5b9a\u4e49
UserVar=\u8f85\u52a9\u4e8c\u65bd\u653e\u95f4\u9694(\u6beb\u79d2)|VarName=Var25|Type=Long|Value= 1800000
UserVar=\u8f85\u52a9\u4e09|VarName=Var5|Type=DownList|Value= 17|Enum=\u81ea\u5b9a\u4e49
UserVar=\u8f85\u52a9\u4e09\u65bd\u653e\u95f4\u9694(\u6beb\u79d2)|VarName=Var26|Type=Long|Value= 1800000

[VBSScriptCode]
[Main]
Dim HPSetup
Dim MPSetup
Dim fzjnSetup1
Dim fzjnSetup2
Dim fzjnSetup3
Dim hxSetup
Dim hpTime 'HP\u836f\u7684\u5ef6\u8fdf
Dim mpTime 'MP\u836f\u7684\u5ef6\u8fdf
Dim fzjn1 '\u8f85\u52a9\u6280\u80fd\u5ef6\u8fdf
Dim fzjn2 '\u8f85\u52a9\u6280\u80fd\u5ef6\u8fdf
Dim fzjn3 '\u8f85\u52a9\u6280\u80fd\u5ef6\u8fdf
Dim nowTime '\u5f53\u524d\u65f6\u95f4
Dim i
Dim NewLoop '\u65b0\u5faa\u73af
Dim chucktime '\u6254\u4e1c\u897f\u518d\u62e3\u4e1c\u897f\u7684\u95f4\u9694\u65f6\u95f4
Dim guaicode '\u602a\u7684\u4ee3\u7801
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 '\u4f7f\u7528\u8f85\u52a9\u6280\u80fd
If gxfs="\u6302\u673a" Then
Call FindObject '\u627e\u602a
js=0
'----------------\u6253\u602a----------------
CTK = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)0 And GetTime - CTK < 180000
'-------------\u5148\u780d\u602a\u4e00\u4e0b-------------
If js=0 Then
HApp.SendKeyPress hwnd,Var1 '\u7b2c\u4e00\u6280\u80fd\u6309\u952e\uff0c\u6211\u7684\u662f\u6309\u952e
Delay 400
js=1
End If
'------------------------------------
'--------------\u65bd\u653e\u6280\u80fd1-------------
HApp.SendKeyPress hwnd,Var2 '\u7b2c\u4e00\u6280\u80fd\u6309\u952e\uff0c\u6211\u7684\u662f\u6309\u952e
Delay 400
'------------------------------------
'--------------\u65bd\u653e\u6280\u80fd2-------------
HApp.SendKeyPress hwnd,Var3 '\u7b2c\u4e8c\u6280\u80fd\u6309\u952e\uff0c\u6211\u7684\u662f\u6309\u952e
Delay 400
'------------------------------------
'--------------\u65bd\u653e\u6280\u80fd3-------------
HApp.SendKeyPress hwnd,Var50 '\u7b2c\u4e09\u6280\u80fd\u6309\u952e\uff0c\u6211\u7684\u662f\u6309\u952e
Delay 200
Call SupplyHP '\u8865\u8840
Call SupplyMP '\u8865\u84dd
Delay 200
'------------------------------------
Loop
gwid1=gwid2
'-----------------------------------
Delay 200
Call CullArticle '\u62e3\u4e1c\u897f
End If
If gxfs="\u8f85\u52a9" Then
Call SupplyHP '\u8865\u8840
Call SupplyMP '\u8865\u84dd
End If
If newloop=0 Then
Call RenewVitality '\u8fd0\u6c14\u56de\u590d
End If
Delay 200
Loop
End Sub
Sub GetSetup() '\u8bbe\u7f6e\u53d8\u91cf\u521d\u59cb\u503c
HPSetup = Var13 '\u52a0\u7ea2\u8bbe\u7f6e\uff0c\u5355\u4f4d\u4e3a\u767e\u5206\u6bd4\uff0c\u4f46\u8bf7\u4e0d\u8981\u8bbe\u7f6e\u4e3a22\u81f368\u4e4b\u95f4\uff0c\u8be5\u533a\u57df\u88ab\u6709\u53ef\u80fd\u88ab\u6587\u5b57\u906e\u6321\uff0c\u65e0\u6cd5\u53d6\u8840\u6761\u989c\u8272
MPSetup = Var14 '\u52a0\u84dd\u8bbe\u7f6e\uff0c\u5355\u4f4d\u4e3a\u767e\u5206\u6bd4\uff0c\u4f46\u8bf7\u4e0d\u8981\u8bbe\u7f6e\u4e3a22\u81f368\u4e4b\u95f4\uff0c\u8be5\u533a\u57df\u88ab\u6709\u53ef\u80fd\u88ab\u6587\u5b57\u906e\u6321\uff0c\u65e0\u6cd5\u53d6\u84dd\u6761\u989c\u8272
fzjnSetup1 = Var24 '\u8f85\u52a9\u6280\u80fd\u65bd\u653e\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u6beb\u79d2\uff0c1\u79d2=1000\u6beb\u79d2
fzjnSetup2 = Var25 '\u8f85\u52a9\u6280\u80fd\u65bd\u653e\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u6beb\u79d2\uff0c1\u79d2=1000\u6beb\u79d2
fzjnSetup3 = Var26 '\u8f85\u52a9\u6280\u80fd\u65bd\u653e\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u6beb\u79d2\uff0c1\u79d2=1000\u6beb\u79d2
hxSetup = Var12 '\u662f\u5426\u8fd0\u6c14\u56de\u8840\uff0c1=\u662f\uff0c0=\u5426
gxfs=Var30
End Sub
Sub UseAssistSkill() '\u4f7f\u7528\u8f85\u52a9\u6280\u80fd
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() '\u627e\u602a
CTime = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)=0 And gwid1=gwid2
HApp.SendKeyPress hwnd,"Tab" '\u627e\u602a
Delay 300
gwid2=HMEM.ReadMEMEX(hwnd,bug,3)
Loop
End Sub
Sub SupplyHP() '\u8865\u8840
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() '\u8865\u84dd
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() '\u62e3\u4e1c\u897f
CTB = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)=0 And GetTime - CTB < Var32 '\u75281000MS\u62e3\u4e1c\u897f
HApp.sendKeyPress hwnd,Var8
Delay 100
Loop
End Sub
Sub RenewVitality() '\u8fd0\u6c14\u56de\u590d
If hxSetup="\u662f" Then
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
If dxue1<(mxue1*70/100)-1 Then
HApp.SendKeyPress hwnd,Var9 '\u6c14\u529f\u56de\u8840\uff0c\u6211\u7684\u662f\u6309\u952e
Do While dxue1<(mxue1*90/100)-1
Delay 500
'\u5047\u5982\u56de\u590d\u8fc7\u7a0b\u4e2d\u88ab\u653b\u51fb\u5219\u4e2d\u65ad\u56de\u8840
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) '\u6700\u5927\u5316xue\u503c
mlan1 = HMEM.ReadMEMEX(hwnd,mlan,3) '\u6700\u5927\u5316lan\u503c
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]

\u81ea\u52a8\u5bfb\u8def\u662f\u53d1\u672c

快捷键ALT+Y，开打点自动就可以了。

快捷键ALT+Y

AIT+Y