魔域挂机脚本（希望这个例子给大家一些帮助，应该可以在其他游戏中实现同样的功能）
可在指定坐标，指定范围挂机（如：30或50......），绝不乱跑，并可在无怪时自动跑动找怪（绝不跑出范围）
目前设定：只在XP时寻怪

优化版本在7楼


//VBSCall a=Inputbox("请输入你要挂机的纵坐标")
//让用户写入挂机的纵坐标
//VBSCall b=Inputbox("请输入你要挂机的横坐标")
//让用户写入挂机的横坐标
//VBSCall n=Inputbox("请输入你要挂机的范围")
//让用户写入挂机的范围
//VBSCall Call MessageBox("你的挂机坐标是 "&a&","&b&" 范围是"&n&" 按[确定]开始设置XP图标位置。")
//显示用户所写的坐标信息，让用户再次确定~
VBSCall Call GetScreenResolution(ScreenX,ScreenY)
VBS dim x,y,a,b,a1,b1,a2,b2,n
VBS dim ScreenX,ScreenY
VBS dim XunGuai1,XunGuai2
VBS dim JianWu1,JianWu2
VBS a=300
//用户写入挂机的纵坐标
VBS b=306
//用户写入挂机的横坐标
VBS n=35
//用户写入挂机的范围
VBS a1=a+n
VBS b1=b+n
VBS a2=a-n
VBS b2=b-n
//申明变量
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////★以下为记录XP技能图标的位置★////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
MessageBox "请把鼠标移到XP的图标，然后按F5"
Rem 记录XP图标位置
VBS dim F5
VBS F5=""
VBS dim XP1,XP2
GetLastKey F5
If F5=116
VBSCall GetCursorPos(XP1,XP2)
Else
Goto 记录XP图标位置
EndIf

Goto 程序开始
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////★以下为读取游戏坐标的内存地址★////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Sub 读取游戏坐标内存地址中的纵坐标保存到x
VBSCall ReadMemory( &H0060CAD4,1,x)
//读取游戏坐标内存地址中的纵坐标保存到x
Return 读取游戏坐标内存地址中的纵坐标保存到x
Sub 读取游戏坐标内存地址中的纵坐标保存到y
VBSCall ReadMemory( &H0060CAD8,1,y)
//读取游戏坐标内存地址中的横坐标保存到y
Return 读取游戏坐标内存地址中的纵坐标保存到y
Rem 程序开始
VBSCall ReadMemory( &H0060CAD4,1,x)
//读取游戏坐标内存地址中的纵坐标保存到x
VBSCall ReadMemory( &H0060CAD8,1,y)
//读取游戏坐标内存地址中的横坐标保存到y
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////★以下为XP技能检测★////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Rem 检测XP技能是否已满
IfColor 877 708 080C08 1
MoveTo XP1 XP2
Delay 1000
LeftDown 1
LeftUp 1
Gosub 检测坐标并跑动寻怪
Gosub 检测坐标并返回起始点
Goto 检测XP技能是否已满
Else
Goto 检测XP技能是否已满
EndIf
/////////////////////////////////////////////////////////////////
///////////////★以下为打怪★//////////////////
/////////////////////////////////////////////////////////////////
Sub 打怪
Rem XP攻击打怪
VBSCall FindColorEx(226,144,951,574,"0004B5",1,0.8,XunGuai1,XunGuai2)
If XunGuai1>=0 and XunGuai2>=0
       MoveTo XunGuai1+5 XunGuai2+20
       LeftClick 1
       Delay 200
       RightClick 1
       Delay 300
       Goto XP攻击打怪
EndIf
Return 打怪
///////////////////////////////////////////////////
//////////////////////////////////////////////////
//////////////////////////////////////////////////
//检物品
//////////////////////////★以下是为自己所在位置的坐标检测★//////////////////////////
//////////////////////////★如果偏离坐标，就自动返回挂机点★//////////////////////////
//////////////////////////★打怪后返回的游戏坐标偏差不大于5★/////////////////////////
Sub 检测坐标并返回起始点
Rem 检测坐标并返回起始点1
Gosub 读取游戏坐标内存地址中的纵坐标保存到x
If x-a>5
       VBSCall Call SetCursorPos(ScreenX/2-100,ScreenY/2-50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2-200,ScreenY/2-100)
       LeftClick 1
       Delay 500
       Goto 检测坐标并返回起始点1
Else
       Goto 检测坐标并返回起始点2
EndIf
//////////////////////////
Rem 检测坐标并返回起始点2
Gosub 读取游戏坐标内存地址中的纵坐标保存到y
If y-b>5
       VBSCall Call SetCursorPos(ScreenX/2+100,ScreenY/2-50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2+200,ScreenY/2-100)
       LeftClick 1
       Delay 500
       Goto 检测坐标并返回起始点2
Else
       Goto 检测坐标并返回起始点3
EndIf
//////////////////////////
//////////////////////////
Rem 检测坐标并返回起始点3
Gosub 读取游戏坐标内存地址中的纵坐标保存到x
If a-x>5
       VBSCall Call SetCursorPos(ScreenX/2+100,ScreenY/2+50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2+200,ScreenY/2+100)
       LeftClick 1
       Delay 500
       Goto 检测坐标并返回起始点3
Else
       Goto 检测坐标并返回起始点4
EndIf
//////////////////////////
Rem 检测坐标并返回起始点4
Gosub 读取游戏坐标内存地址中的纵坐标保存到y
If b-y>5
       VBSCall Call SetCursorPos(ScreenX/2-100,ScreenY/2+50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2-200,ScreenY/2+100)
       LeftClick 1
       Delay 500
       Goto 检测坐标并返回起始点4
EndIf
Return 检测坐标并返回起始点
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////★以下为自动跑动寻找怪★////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Sub 检测坐标并跑动寻怪
Rem 检测坐标并跑动寻怪1
Gosub 读取游戏坐标内存地址中的纵坐标保存到x
If x-a2>5
       VBSCall Call SetCursorPos(ScreenX/2-100,ScreenY/2-50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2-200,ScreenY/2-100)
       LeftClick 1
       Delay 500
       Gosub 打怪
       Goto 检测坐标并跑动寻怪1
Else
       Goto 检测坐标并跑动寻怪2
EndIf
//////////////////////////
Rem 检测坐标并跑动寻怪2
Gosub 读取游戏坐标内存地址中的纵坐标保存到y
If y-b2>5
       VBSCall Call SetCursorPos(ScreenX/2+100,ScreenY/2-50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2+200,ScreenY/2-100)
       LeftClick 1
       Delay 500
       Gosub 打怪
       Goto 检测坐标并跑动寻怪2
Else
       Goto 检测坐标并跑动寻怪3
EndIf
//////////////////////////
//////////////////////////
Rem 检测坐标并跑动寻怪3
Gosub 读取游戏坐标内存地址中的纵坐标保存到x
If a1-x>5
       VBSCall Call SetCursorPos(ScreenX/2+100,ScreenY/2+50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2+200,ScreenY/2+100)
       LeftClick 1
       Delay 500
       Gosub 打怪
       Goto 检测坐标并跑动寻怪3
Else
       Goto 检测坐标并跑动寻怪4
EndIf
//////////////////////////
Rem 检测坐标并跑动寻怪4
Gosub 读取游戏坐标内存地址中的纵坐标保存到y
If b1-y>5
       VBSCall Call SetCursorPos(ScreenX/2-100,ScreenY/2+50)
       LeftClick 1
       Delay 50
       VBSCall Call SetCursorPos(ScreenX/2-200,ScreenY/2+100)
       LeftClick 1
       Delay 500
       Gosub 打怪
       Goto 检测坐标并跑动寻怪4
EndIf
Return 检测坐标并跑动寻怪


> >