按键精灵，魔兽世界自动寻路实现脚本及思路
注：仅供个人学习和娱乐
软件
umi截图插件，excel，按键精灵，神梦dll
神梦dll：https://files.cnblogs.com/files/wxp100/%E7%A5%9E%E6%A2%A6dll.zip?t=1721007482&download=true
umi：https://github.com/hiroi-sora/Umi-OCR
思路
先移动一段距离通过计算斜率，做方向对比，换算成角度，判断最终转向
脚本
Function 对接umiocr(图片路径)
Dim URL,JsonData,json,username,password,base64
URL = "http://192.168.1.40:1224/api/ocr"
Import "SmHTTP.dll"
Set SmHTTP = CreateObject("SMWH.SmHTTP")
base64=Plugin.SMWH.Base64_File(图片路径)
JsonData = SmHTTP.JsonData( _
"base64",base64 , _
"Content-Type", "application/json" _
)
json = SmHTTP.HTTP_POST(URL, JsonData)
//TracePrint json
If SmHTTP.GetStatus() = 200 Then
If SmHTTP.GetJSON(json, "code")=100 Then
Dim 文本左上x, 文本左上y, 文本右上x, 文本右上y, 识别的文本
文本左上x=SmHTTP.GetJSON(json, "data[0]['box'][0][0]")
文本左上y=SmHTTP.GetJSON(json, "data[0]['box'][0][1]")
文本右上x=SmHTTP.GetJSON(json, "data[0]['box'][2][0]")
文本右上y=SmHTTP.GetJSON(json, "data[0]['box'][2][1]")
识别的文本 = SmHTTP.GetJSON(json, "data[0]['text']")
//对接umiocr="识别的文本：" & 识别的文本 & "，文本范围：" & 文本左上x & "," & 文本左上y & "," & 文本右上x & "," & 文本右上y
对接umiocr= 识别的文本
Else
对接umiocr=-1
End If
Else
对接umiocr=-1
End If
End Function
Function 判断方向(x1,y1,x2,y2)
Dim pi
pi = 3.14159265359
If x2 <> x1 Then
斜率 = (y2 - y1) / (x2 - x1)
End If
a = Atn(斜率) / pi * 180
//TracePrint x1&" "&y1&" "&x2&" "&y2
If y2 - y1 < 0 Then
If x2 - x1 > 0 Then
// 此时目的地在角色的东北方
a = a + 270
ElseIf x2 - x1 < 0 Then
// 此时目的地在角色的西北方
a = a + 90
ElseIf x2 - x1 = 0 Then
// 此时目的地在角色的上方
a = 180
End If
ElseIf y2 - y1 > 0 Then
If x2 - x1 > 0 Then
// 此时目的地在角色的东南方
a = a + 270
ElseIf x2 - x1 < 0 Then
// 此时目的地在角色的西南方
a = a + 90
ElseIf x2 - x1 = 0 Then
// 此时目的地在角色的下方
a = 0
End If
ElseIf y2 - y1 = 0 Then
If x2 - x1 > 0 Then
// 此时目的地在角色的右方
a = 270
ElseIf x2 - x1 < 0 Then
// 此时目的地在角色的左方
a= 90
End If
End If
判断方向=a
End Function
//转一圈2秒，转一度需要2000/360
旋转一度用时 =2000/360
Sub 调整人物角度(目标方向, 移动方向)
角度 = abs(目标方向 - 移动方向)
If 角度 > 10 Then
If 目标方向>移动方向 Then
KeyDown "Right", 1
Delay 角度 * 旋转一度用时
KeyUp "Right", 1
Else
KeyDown "left", 1
Delay 角度 * 旋转一度用时
KeyUp "left", 1
End If
End If
End sub
//获取所有目的坐标数据
Call Plugin.Office.OpenXls("C:\Users\wxp\Desktop\test1.xlsx")
Dim line
line=1
Do
data = Plugin.Office.ReadXls(1, line, 1)
If data <>"" Then
line = line + 1
Else
Exit Do
End If
Loop
ReDim array_x(line-2), array_y(line-2)
For i=0 to line-2
array_x(i) = Plugin.Office.ReadXls(1, i+1, 1)
array_y(i) = Plugin.Office.ReadXls(1, i+1, 2)
Next
Call Plugin.Office.CloseXls()
//移动坐标x_x，m_y 初始坐标i_x，i_y 目标坐标t_x，t_y
Dim m_x, m_y, i_x, i_y, t_x, t_y, count
count = 0
t_x=array_x(count)
t_y=array_y(count)
//获取初始坐标
Call Plugin.Pic.PrintScreen(9, 27, 108, 53, "D:\按键精灵\temp\jt.bmp")
坐标 = 对接umiocr("D:\按键精灵\temp\jt.bmp")
i_x=left(坐标,4)
i_y=right(坐标,4)
//初始距离
Dim d
//判断移动后距离
d=Sqr((i_x-t_x)*(i_x-t_x)+(i_y-t_y)*(i_y-t_y))
Do
If (d > 0.25) Then
dim 目标方向
目标方向 = 判断方向(t_x,t_y,i_x,i_y)
KeyDown "up", 1
Delay 1200
KeyUp "up", 1
Call Plugin.Pic.PrintScreen(9, 27, 108, 53, "D:\按键精灵\temp\jt.bmp")
坐标 = 对接umiocr("D:\按键精灵\temp\jt.bmp")
m_x = left(坐标, 4)
m_y = right(坐标, 4)
d=Sqr((m_x-t_x)*(m_x-t_x)+(m_y-t_y)*(m_y-t_y))
dim 移动方向
移动方向 = 判断方向(m_x,m_y,i_x,i_y)
//TracePrint "目标方向:" & 目标方向 & "移动方向:" & 移动方向
call 调整人物角度 (目标方向,移动方向)
i_x = m_x
i_y = m_y
ElseIf (d < 0.25)
TracePrint "距离："&d&"目标移动到位"
If count < line-2 Then
count=count+1
t_x = array_x(count)
t_y = array_y(count)
i_x = m_x
i_y = m_y
d=Sqr((i_x-t_x)*(i_x-t_x)+(i_y-t_y)*(i_y-t_y))
TracePrint "移动坐标次数:" & count
Else
Exit Do
End If
End If
loop
ps：
坐标截图：“D:\按键精灵\temp\jt.bmp”
坐标移动位置记录：“C:\Users\wxp\Desktop\test1.xlsx“