按键精灵调用子程序问题
Hwnd=Plugin.Window.Find(0,"LineageII")CallPlugin.Window.Size(Hwnd,1024,768)sRect=Plug...
Hwnd = Plugin.Window.Find(0, "Lineage II")
Call Plugin.Window.Size(Hwnd, 1024, 768)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim T2
T2=Split(sRect,"|")
Ux=Clng(T2(0))
Uy = Clng(T2(1))
Rem 重新选怪
//TAB选怪程序
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
IfColor 589,58,"14176F",1 Then
Delay 800
//调用攻击子程序
Call 攻击()
Delay 800
Else
Goto 重新选怪
End If
//攻击血量比较子程序
Sub 攻击()
IfColor 439,28,"191D32",0 Then
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 800
End If
End Sub
以上程序语法通过。。。调试出现 第14行类型不匹配:"VF4CFDE82DODOD6C44D6A65757378756D". 脚本停止执行 额。。。 展开
Call Plugin.Window.Size(Hwnd, 1024, 768)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim T2
T2=Split(sRect,"|")
Ux=Clng(T2(0))
Uy = Clng(T2(1))
Rem 重新选怪
//TAB选怪程序
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
IfColor 589,58,"14176F",1 Then
Delay 800
//调用攻击子程序
Call 攻击()
Delay 800
Else
Goto 重新选怪
End If
//攻击血量比较子程序
Sub 攻击()
IfColor 439,28,"191D32",0 Then
Delay 800
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 800
End If
End Sub
以上程序语法通过。。。调试出现 第14行类型不匹配:"VF4CFDE82DODOD6C44D6A65757378756D". 脚本停止执行 额。。。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询