我想用按键精灵写一个自动打怪和NPC对话
给你一段仙域游戏的找怪子程序作为参考，可后台使用
Sub 找怪(a,b,c,d,e)
Delay 200
Call Plugin。Bkgnd。KeyPress(hwnd,77)
Delay 1000
XY = Plugin。 Bkgnd。FindColorEx(Hwnd, x1+A, y1+B, x1+C,y1+D, "0B17DF", e,0。9)
Delay 50
MArray = Split(XY, "|")
X = Clng(MArray(0)): Y = Clng(MArray(1))
If X=-1 Then
m=0
Call Plugin。 Bkgnd。KeyPress(...全部
给你一段仙域游戏的找怪子程序作为参考，可后台使用
Sub 找怪(a,b,c,d,e)
Delay 200
Call Plugin。Bkgnd。KeyPress(hwnd,77)
Delay 1000
XY = Plugin。
Bkgnd。FindColorEx(Hwnd, x1+A, y1+B, x1+C,y1+D, "0B17DF", e,0。9)
Delay 50
MArray = Split(XY, "|")
X = Clng(MArray(0)): Y = Clng(MArray(1))
If X=-1 Then
m=0
Call Plugin。
Bkgnd。KeyPress(hwnd,27)
Else
Delay 100
Call Plugin。Bkgnd。MoveTo(Hwnd, X, Y)
Call Plugin。
Bkgnd。LeftClick(hwnd,X,Y)
Delay 200
Call Plugin。Bkgnd。KeyPress(hwnd,27)
Delay 500
m=1
End if
End Sub。
收起
