用按键精灵做了一个3D游戏的简单脚本,不知道什么原因 就是不好使。有懂的 帮看下 谢谢。
Hwnd=Plugin.Window.Find(0,"神雕")sRect=Plugin.Window.GetClientRect(Hwnd)DimMyArrayMyArr...
Hwnd = Plugin.Window.Find(0, "神雕")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
ux=CLng(MyArray(0))
uy=CLng(MyArray(1))
Rem daguai
IfColor 216+ux,48+uy,"0435AA",0 Then
KeyPress "Tab", 1
Delay 200
KeyPress "1", 1
Delay 3000
KeyPress "Z", 1
Else
KeyPress "8", 1
Delay 5000
Goto daguai
End If 展开
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
ux=CLng(MyArray(0))
uy=CLng(MyArray(1))
Rem daguai
IfColor 216+ux,48+uy,"0435AA",0 Then
KeyPress "Tab", 1
Delay 200
KeyPress "1", 1
Delay 3000
KeyPress "Z", 1
Else
KeyPress "8", 1
Delay 5000
Goto daguai
End If 展开
展开全部
帮帮忙 看看哪里出错啦 全屏的
Hwnd = Plugin.Window.Find(0, 剑啸九州)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MrArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem mmnn
KeyPress "Tab", 1
IfColor 895,71,"417A8",0 Then
Delay 1000
KeyPress "2", 3
Delay 1000
KeyPress "3", 1
Else
KeyPress "Tab", 1
Goto mmnn
End If
Hwnd = Plugin.Window.Find(0, 剑啸九州)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MrArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem mmnn
KeyPress "Tab", 1
IfColor 895,71,"417A8",0 Then
Delay 1000
KeyPress "2", 3
Delay 1000
KeyPress "3", 1
Else
KeyPress "Tab", 1
Goto mmnn
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |