魔兽世界战场挂机脚本V2.0稳定版（脚本公布）
这次要公布这个脚本，是因为CWOW对挂机已经有严厉的惩罚了，所以并不会带来太大的负面影响，相反，我更望这个脚本可以为大家提供一些思路。
脚本由于是我个人使用我就把一些坐标点给固定了，会改的朋友可以自己改一下
魔兽世界战场挂机脚本V2.0稳定版
【功能说明】
可以用于战歌和盆地排队挂机（大战场只需要改动相应坐标，脚本里会提示）。
各大主城直接排队，避免野外排队被杀或其他外在因素造成无法挂机；
战场内防止暂离退出战场，减少操作以节约资源；
可以自定义关闭游戏时间提高挂机效率
你要做的只是靠近想挂的战场然后启动脚本就可以了。
【游戏需求】
1024*768，窗口模式，最大化（玩魔兽的都知道怎么设置）
游戏内按键设置V键为打开友好目标血条
以下为脚本：
[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]
这次要公布这个脚本，是因为CWOW对挂机已经有严厉的惩罚了，所以并不会带来太大的负面影响，相反，我更望这个脚本可以为大家提供一些思路。
脚本由于是我个人使用我就把一些坐标点给固定了，会改的朋友可以自己改一下
魔兽世界战场挂机脚本V2.0稳定版
【功能说明】
可以用于战歌和盆地排队挂机（大战场只需要改动相应坐标，脚本里会提示）。
各大主城直接排队，避免野外排队被杀或其他外在因素造成无法挂机；
战场内防止暂离退出战场，减少操作以节约资源；
可以自定义关闭游戏时间提高挂机效率
你要做的只是靠近想挂的战场然后启动脚本就可以了。
【游戏需求】
1024*768，窗口模式，最大化（玩魔兽的都知道怎么设置）
游戏内按键设置V键为打开友好目标血条
以下为脚本：
[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]
