腳本如下:
[Script]
[color=red][General]
Description=魔獸世界戰場掛機腳本V2.0
BeginHotkey=110
beginHotkeyMod=2
RunOnce=0
Enable=1
[Repeat]
Type=1
Number=261152
[Comment]
Content=[/color]
[color=red][Script]
Rem 選擇模式
VBS i=0
VBSCall Call PopBox("請選擇是否需要到特定時間關閉遊戲",0,"請選擇模式",68,ms)
If ms=6
VBSCall hh=InputBox("請輸入關閉遊戲小時(0-23)必須輸入否則請停止腳本")
hh=int(hh)
VBSCall mm=InputBox("請輸入關閉遊戲分鐘(0-59)必須輸入否則請停止腳本")
mm=int(mm)
ElseIf ms=7
VBS hh=25
VBS mm=61
Goto 開始
EndIf
Rem 開始
VBS t=time
VBS h=Hour(t)
VBS m=Minute(t)
If ms=6
If h=hh and m=mm
Gosub 關遊戲
VBS lvt=time
VBSCall MessageBox("遊戲於" & lvt & "被自動關閉。期間***刷了" & i & "場")
EndScript
EndIf
EndIf
Rem 戰場腳本
Gosub 進入戰場
Gosub 離開戰場
If jrx=-1 and lkx=-1
Gosub 戰場檢測
EndIf
Gosub 跳
Goto 開始
Sub 進入戰場
VBSCall Call FindPic(0,0,1023,767,"wowpic\進入戰場.bmp",0.9,jrx,jry)
If jrx>=0 and jry>=0
MoveTo jrx jry
Gosub 鼠標單擊
Delay 1000
EndIf
Return
Sub 離開戰場
VBSCall Call FindPic(0,0,1023,767,"wowpic\離開戰場.bmp",0.9,lkx,lky)
If lkx>=0 and lky>=0
VBS i=i+1
MoveTo lkx lky
Gosub 鼠標單擊
Delay 1000
EndIf
Return
Sub 跳
Delay 3000
KeyPress 32 1
Delay 2000
Return
Sub 關遊戲
KeyDown 18 1
Delay 1000
KeyDown 115 1
Delay 500
KeyUp 115 1
Delay 1000
KeyUp 18 1
Delay 3000
Return 關遊戲
Sub 鼠標單擊
MoveR 5 5
Delay 500
LeftClick 1
Return
Sub 戰場檢測
VBSCall Call FindPic(0,0,1023,767,"wowpic\戰場圖標.bmp",0.9,tbx,tby)
If tbx>=0 and tby>=0
MoveTo tbx+5 tby+5
Delay 500
LeftClick 1
Gosub 離開戰場
Else
Gosub 尋找npc
EndIf
Return
Sub 尋找npc
MoveTo 0 0
KeyPressH 86 1
Delay 1000
VBSCall FindPic(0,0,1023,767,"wowpic\npc2.bmp",0.8,npcx,npcy)
If npcx>=0 and npcy>=0
MoveTo npcx-50 npcy+1
RightClick 1
Delay 4000
Gosub 與npc對話
EndIf
Return
Sub 與npc對話
VBSCall FindPic(334,129,348,141,"wowpic\我想去戰場.bmp",0.8,dhx,dhy)
If dhx>=0 and dhy>=0
MoveTo 110 258
[color=blue]//上面這個坐標就是戰歌“我想去戰場”的坐標點,想去大戰場只需要更改這個就可以了
[/color] LeftClick 1
Delay 4000
VBSCall FindPic(0,0,1023,767,"wowpic\加入戰鬥.bmp",0.7,jrzdx,jrzdy)
If jrzdx>=0 and jrzdy>=0
MoveTo jrzdx jrzdy
LeftClick 1
Delay 4000
Else
MoveTo 79 285
[color=blue]//上面這個坐標就是盆地“我想去戰場”的坐標點
[/color] LeftClick 1
Delay 4000
EndIf
VBSCall FindPic(0,0,1023,767,"wowpic\加入戰鬥.bmp",0.7,jrzdx,jrzdy)
If jrzdx>=0 and jrzdy>=0
MoveTo jrzdx jrzdy
LeftClick 1
Delay 4000
EndIf
KeyPressH 27 1
Goto 開始
Else
KeyPressH 27 1
Delay 1000
Gosub 再次尋找
EndIf
Return
Sub 再次尋找
MoveTo 0 0
VBS y=npcy+9
VBSCall FindPic(0,y,1023,767,"wowpic\npc2.bmp",0.8,npcx,npcy)
If npcx>=0 and npcy>=0
MoveTo npcx-50 npcy+1
RightClick 1
Delay 4000
Gosub 與npc對話
EndIf
Return [/color]