70級自動打怪腳本
① 求TC自動打怪腳本
這個可以通過顏色值來判斷,如果怪物死亡,顏色值變了,那麼就證明怪物死亡了。
下面這個是循環取怪,判斷怪物死亡,人物加血加藍,寵物加血的代碼的
循環(真)
//模擬tab取怪
大漠.按下(17)
輔助.等待(200)
大漠.按下(9)
輔助.等待(200)
大漠.彈起(9)
輔助.等待(200)
大漠.彈起(17)
輔助.等待(200)
//取怪物顏色
取怪顏色=大漠.區域找色(391,28,408,36,"cd0700-000000",1.0,0,x,y)
//判斷是否取到怪物顏色
循環(取怪顏色)
//按下F1攻擊鍵
大漠.按鍵(112)
輔助.等待(200)
//按下F2攻擊鍵
大漠.按鍵(113)
輔助.等待(200)
//按下F3攻擊鍵
大漠.按鍵(114)
輔助.等待(200)
//按下F4攻擊鍵
大漠.按鍵(115)
輔助.等待(200)
大漠.按鍵(112)
輔助.等待(200)
輔助.等待(200)
大漠.按鍵(112)
輔助.等待(200)
輔助.等待(200)
//打怪過程中,取自己生命值判斷,是否需要給自己加血
生命值=大漠.區域找色(135,28,174,46,"cd0700-000000",1.0,0,x,y)
輔助.等待(200)
//判斷血量是否低於5
如果(!生命值)
//按下F8加血
大漠.按鍵(119)
輔助.等待(200)
如果結束
//打怪過程中,取自己藍值判斷,是否需要給自己加藍
藍值=大漠.區域找色(135,28,174,46,"c1bcff-000000",1.0,0,x,y)
輔助.等待(200)
//判斷藍值是否低於50%
如果(!藍值)
//按下F9加藍
大漠.按鍵(120)
輔助.等待(200)
如果結束
//打怪過程中,取寵物生命值判斷,是否需要給寵物加血
寵物生命值=大漠.區域找色(139,71,178,89,"cd0700-000000",1.0,0,x,y)
輔助.等待(200)
//判斷寵物血量是否低於50%
如果(!寵物生命值)
//滑鼠移動到寵物頭像上面,點擊喂養
大漠.移動(83,99)
輔助.等待(500)
大漠.右鍵單擊()
輔助.等待(500)
大漠.移動(100,109)
輔助.等待(500)
大漠.左鍵單擊()
輔助.等待(500)
如果結束
//再次取怪物血量,判斷怪物是否死亡,如果沒有死亡,繼續循環打怪(這個和上面取怪物顏色坐標不同)
//這里取怪物生命的最低值
取怪顏色=大漠.區域找色(276,26,288,38,"cd0700-000000",1.0,0,x,y)
循環結束
循環結束
② 風雲自動打怪的腳本怎麼做
風雲自動打怪腳本終於搞定
VBS dim r
VBS dim t1
t1=now
Rem start
If DateDiff("s",t1,now)>600
KeyPress 66 1
Delay 500
Rem qd
Delay 500
VBSCall FindPic(721,259,992,468,"qd.bmp",0.9,q1,d1)
If (q1>0)
MoveTo q1+10 d1+10
Delay 500
RightClick 1
Delay 100
MoveTo 515 399
Delay 500
LeftClick 1
Delay 500
Goto qd
Else
Delay 400
KeyPress 66 1
EndIf
t1=now
EndIf
IfColor 181 16 51c26b 2
Else
KeyPress 118 1
EndIf
Delay 50
VBSCall FindPic(50,100,800,700,"222.bmp",0.9,m,n)
If (m>0)
If m<500
MoveTo m+50 n+100
Else
MoveTo m+30 n+100
EndIf
Delay 300
VBSCall FindPic(0,10,900,700,"33.bmp",0.8,o,p)
If (o>0)
KeyPress 112 1
Delay 100
MoveTo 0 0
Delay 1000
Rem 111
VBSCall FindPic(0,10,900,700,"3333.bmp",0.8,o,p)
If (o>0)
Delay 500
r=0
Goto 111
Else
Delay 100
r=r+1
If r>2
r=0
Goto 222
EndIf
Goto 111
EndIf
EndIf
Rem 222
KeyPress 32 1
Delay 100
Else
MoveTo 514 318
Delay 100
RightDown 1
Delay 100
Rem ting
VBSCall FindPic(894,98,961,161,"xiaotu.bmp",0.8,x,y)
If x>0 y>0
MoveTo (x-918)*5+518 (y-118)*5+333
Delay 100
VBSCall FindPic(50,100,800,700,"222.bmp",0.8,x1,y1)
If (x1>0)
Delay 100
MoveTo x1 y1
Delay 200
RightUp 1
Delay 1000
Else
Delay 300
Goto ting
EndIf
EndIf
EndIf
Goto start
如何判斷怪物死亡的方法讓我想了2天;終於有一點訣竅
困擾我的地方是:
無法判斷怪物死亡:
在怪物被選中,但沒有死亡的時候,頭頂上有一個菱形標記,這個標記的顏色和背景色也有重合;
無法用找色;
用找圖的話,打怪傷害的數字偶爾會掩蓋這個圖形;所以會出現當這個菱形被遮擋的時候,怪物沒有死亡,但沒有找到圖形,以為怪物死亡了;
我利用找圖,加了個判斷;如果每隔100毫秒,連續3次都找不到這個圖形,那麼確實是怪物死亡了
③ 求按鍵精靈自動打怪及半手動打怪腳本
1、運行按鍵精靈。在主界面上點選「新建」進入腳本編輯
2、在界面左邊的命令類型里選擇滑鼠命令。常用的就是前2個。假設游戲中人物為中心坐標500，500。我每次選取怪物前需點選角色自己。那麼如圖，滑鼠移動到 那裡可以下拉選擇一個坐標插入命令。（這個坐標可以直接在游戲里截取也可以自己設置。如何在游戲里抓點，後邊會介紹到。）然後滑鼠動作下拉菜單里選擇左鍵單擊==插入命令。
3、如果手動輸入坐標點的話，可以先插入滑鼠移動到x=0 y=0。然後在腳本區直接修改。2種修改方式。一是在源文件中修改，一種是在普通里雙擊命令修改，如圖
4、假設游戲的尋怪快捷鍵為F1。那麼找到鍵盤命令。這里常用的2種命令，一是按鍵，二是按鍵組合。只要把滑鼠點在下圖中空白處，然後在鍵盤上按下需要編輯的鍵，就可以自動記錄了。
5、上一步已經按了自動尋怪了。下一步該進行攻擊了。假設攻擊的快捷鍵是ctrl+1。這就用到按鍵組合的命令了。插入ctrl+1的命令腳本。這里需要注意的是，默認是執行命令腳本時，按下ctrl+1後只彈開ctrl鍵。如圖：
6、我們需要手動輸入彈開1鍵的命令。點選源文件，我們可以看到按下1鍵和彈起ctrl鍵的命令分別是keypress 49，1 和 keyup 17，1 組合一下就得到彈起1鍵的命令為keyup 49，1。這里要注意的是逗號要用半形輸入。
7、一套連貫的攻擊完畢。下邊需要對自動吃葯的腳本進行編輯。在這個命令里我們主要是依靠對顏色的辨別來完成的。在控制命令里選擇需要的點和顏色進行編輯。（點和顏色用抓點功能直接在游戲里抓取）下邊插入的這個命令解讀為若點796，638的顏色為黑色時則如何，否則如何。什麼意思呢？假設游戲人物HP條50%處的點為796，638。那麼如果血掉到50%以下，這個點的顏色就應該是黑的了。這時我就要吃HP葯水了。
8、可以看出，這條命令無法單獨使用。我們需要插入吃葯的腳本命令。先在其他命令中選擇延時100毫秒插入，然後插入游戲中HP葯水的快捷鍵F2。這里說一下延時的用處。延時的設置是因為如果連續運行多條腳本命令時，機器可以能反映不過來而當掉，所以基本每條單獨的命令都會插入適當的延時。
9、若需要設置吃MP葯水，則同上步驟。若需在游戲中喊話，則可在其他命令中選擇文本輸入命令。記著輸入完文本還需設置回車命令將文本發送出去。
10、關於抓點。腳本編輯界面上方直接點選抓點功能，然後切入游戲，將滑鼠放到需要抓的點上，按抓點快捷鍵就可以將滑鼠點的坐標和顏色抓取下來了。
11、腳本編輯完畢，我們還需對腳本的啟動、停止熱鍵，以及對腳本的描述做出修改。熱鍵直接點在右邊編輯窗口需要修改的地方，然後點下滑鼠就可以修改了。熱鍵點完空白地方直接在鍵盤上按一下就可以了。注意腳本循環里一定要選擇循環到按中止鍵為止。
12、OK，全部編輯完畢，保存腳本退出。返回按鍵精靈主界面。現在已經可以看到我們自己製作的腳本了。
以上就是按鍵精靈簡單的游戲腳本製作，要注意的是幾乎所有的網路游戲都可以使用按鍵精靈，但部分帶有比較強的反外掛系統的網游只能使用按鍵精靈的部分功能，比如帶有nProtect或者xTrap反外掛系統的網游，就必須使用按鍵精靈最新版，並且打開神盾自我保護功能，才能使用。
④ 用按鍵精靈怎麼寫自動打怪的腳本
打怪的話還是下個外掛吧，按鍵精靈用的最多的是它的錄制那個功能，重復幾個動作很好用，
⑤ 按鍵精靈自動打怪腳本如何設置
[Script]
Plugin hwnd=Window.Foreground()
Import window.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
dx=s(0)
dy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVar fqg=DropList{防搶怪:0|不防搶怪:1}=0 防搶怪設置
UserVar jb=DropList{不撿包:0|自動撿包:1}=0 是否撿物
UserVar s1=2 門派普攻F1間隔(秒)
UserVar s2=20 單體攻擊F2間隔(秒)
UserVar s3=20 單體攻擊F3間隔(秒)
UserVar s4=25 怒氣攻擊F4間隔(秒)
UserVar s5=80 自定技能F5間隔(秒)
UserVar s6=60 BB技能F6間隔(秒)
UserVar s7=10 狀態技能F7間隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少於%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 藍少於%加藍F9
UserVar bbred=DropList{沒有出戰:0|20%:20|30%:30|50%:50}=2 寵少於%加血F10
UserVar redwait=1 紅葯冷卻時間(秒)
UserVar bluewait=1 藍葯冷卻時間(秒)
UserVar monwait=100 尋怪延時(毫秒)
PutAttachment .\plugin *.dll
Rem 開始
Delay monwait
Gosub 驗證碼
Gosub 找怪
If fqg=0
IfColor dx+369,dy+31,1E252A,2
Goto 開始
EndIf
EndIf
Rem 繼續殺怪
Gosub 判斷血藍狀態
Gosub BB血狀態
Gosub 殺怪
Rem End
EndScript
Sub 驗證碼
Rem 再次報警
VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
If x>0 and y>0
Plugin SimPlayer.ring(19)
//使用了聲音插件，需要自己去官網下載
Delay 2000
EndIf
While x>0
VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
If x>=0 and y>=0
IfColor x+17,y+9-k,FFFFFF,0
KeyPress 27 1
Delay 1000
MoveTo dx+446,dy+315
Delay 1000
LeftClick 1
Goto End
EndIf
Else
Goto 再次報警
EndIf
EndWhile
Return 驗證碼
Sub 判斷血藍狀態
IfColor red/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColor blue/100*120+66+dx dy+37 222222 2
b=b+1
Else
EndIf
Return 判斷血藍狀態
Sub BB血狀態
If bbred>0
IfColor bbred+91+dx dy+69 111111 2
c=c+1
EndIf
EndIf
Return BB血狀態
Sub 找怪
KeyDown 1,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 1,1
Delay 10
Return 找怪
Sub 殺怪
IfColor dx+247,dy+31,0019FF,2
IfColor dx+261,dy+31,0011ff,2
Gosub 技能
Else
KeyPress 12 1
Delay 1000
EndIf
Goto 繼續殺怪
Else
If jb=1
Gosub 撿包
Else
Goto 開始
EndIf
EndIf
Return 殺怪
Sub 怒氣判斷
IfColor qx+126,qy+43,00ffff,2
q=1
EndIf
IfColor qx+188,qy+43,00ffff,2
q=2
EndIf
Return 怒氣判斷
Sub 技能
Goto 開始
If DateDiff("s",t1,now)>=s1
KeyPress 12 1
t1=now
Delay 100
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t2,now)>=s2
Delay 500
KeyPress 113 1
t2=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t3,now)>=s3
Delay 500
KeyPress 114 1
t3=now
Delay 500
EndIf
Else
EndIf
Gosub 怒氣判斷
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t4,now)>=s4 and q>=1
Delay 500
KeyPress 115 1
t4=now:q=q-1
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t5,now)>=s5
Delay 500
KeyPress 116 1
t5=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t6,now)>=s6
KeyPress 117 1
t6=now
Delay 100
EndIf
EndIf
If DateDiff("n",t7,now)>=s7
MoveTo dx+36,dy+35
LeftClick 1
Delay 100
KeyPress 118 1
t7=now
Delay 100
KeyDown 17,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 17,1
Delay 10
EndIf
If DateDiff("s",t8,now)>=redwait and a>=1
KeyPress 119 1
t8=now:a=0
Delay 500
EndIf
If DateDiff("s",t9,now)>=bluewait and b>=1
KeyPress 120 1
t9=now:b=0
Delay 500
EndIf
If DateDiff("s",t10,now)>=1 and c>=1
KeyPress 121 1
t10=now
c=0
Delay 500
EndIf
Return 技能
Sub 撿包
Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
If x0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 開始搜索
v=l
i=m
x1=x0:y1=y0-v
While x1>=n
k1=0:k2=v
For 2
For i
x1=x1+k1:y1=y1+k2
If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2
MoveTo x1,y1
Delay 2
VBSCall shape=GetCursorShape(0)
If shape=d
Delay 50
RightClick 1
Delay 400
Goto 開始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto 開始
Return 撿包
⑥ 求大神幫忙做個wow自動打怪腳本
你下一個按鍵精靈，然後將自己用的技能做個宏，讓按鍵精靈一直按就可以了。很簡單。自動打怪腳本都是需要購買的，而且有時間限制，過期就不能用了。而且很容易被封號。按鍵精靈也有封號的風險，只是相對較低。WOW對掛的打擊非常嚴厲。封號是常有的事。就算只是普通的加速腳本，也有封號的風險。還是手動操作比較好。
⑦ 誅仙簡單自動打怪腳本，我只要能自動打怪的就行了！！哪位高手給個
誅仙 自動打怪 外掛 按鍵精靈 腳本代碼
實現誅仙裡面類似法寶天人和一 自動喝葯打怪練級的
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]
⑧ 魔獸自動打怪腳本安全嗎
安全。魔獸前逗盯自動打怪腳本安全。魔獸世界簡單游掛機腳本（魔獸世界自動打怪輔助工具）是一款流暢慧和度高的安全掛指散機打怪的輔助工具。