您给的不能执行
Dim a,b,x,y,坐标x,坐标y
x = 318//NPC X坐标固定坐标
y = 198//NPC y坐标固定坐标
坐标x = "316"//人物坐标x 字符串类型
坐标y = "194"//人物坐标y 字符串类型
do
Call 识别坐标
If x > Cint(坐标x) Then
a = "左"
ElseIf x = Cint(坐标x) Then
a = ""
Else
a = "右"
End If
If y > Cint(坐标y) Then
b = "上"
ElseIf y = Cint(坐标y) Then
b = ""
Else
b = "下"
End If
delay 1000NPC方向 = a&b
loop
识别坐标代码:
Sub 识别坐标
坐标x = 0
坐标y = 0
ux = 63
uy = 579
For 15
code = ""
y = uy
For 8
x = ux
For 5
Getcolor = Plugin.BGCP2_02.GetPixelColor(hwnd, x, y)
If Getcolor = 13172735 Then
i = "1"
Else
i = "0"
End If
code = code & i
x = x + 1
Next
y = y + 1
Next
NO0 = "0111010001100011000110001100011000101110"
NO1 = "0010001100001000010000100001000010001110"
NO2 = "0111010001100010001000100010001000011111"
NO3 = "0111010001000010011000001000011000101110"
NO4 = "0001000110010100101010010011110001000011"
NO5 = "1111110000100001111000001000011000101110"
NO6 = "0111010010100001111010001100011000101110"
NO7 = "1111110010000100010000100001000010000100"
NO8 = "0111010001100010111010001100011000101110"
NO9 = "0111010001100011000101111000010100101110"
NO10 = "0000000000000000000000000000000000001000"
If Code = NO0 Then
num = "0"
ElseIf Code = NO1 Then
num = "1"
ElseIf Code = NO2 Then
num = "2"
ElseIf Code = NO3 Then
num = "3"
ElseIf Code = NO4 Then
num = "4"
ElseIf Code = NO5 Then
num = "5"
ElseIf Code = NO6 Then
num = "6"
ElseIf Code = NO7 Then
num = "7"
ElseIf Code = NO8 Then
num = "8"
ElseIf Code = NO9 Then
num = "9"
ElseIf Code = NO10 Then
num = "|"
Else
num = ""
End If
ux = ux + 6
group = group & num
Next
a = group
b = Split(a, "|")
坐标x = b(0)
坐标y = b(1)
End Sub
把那段代码单独单独放到一个脚本里的话 可以执行 是不是 识别坐标哪里的问题