用按键精灵做了一个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
展开
 我来答
秋风奏鸣曲
2011-02-05 · TA获得超过282个赞
知道小有建树答主
回答量:281
采纳率:50%
帮助的人:271万
展开全部
第四行 MyArray=Split(Rect,"|") 这里应该是MyArray=Split(sRect,"|") ,你有sRect没有Rect。其它看不出什么大问题。
ppahah2012
2012-06-09
知道答主
回答量:1
采纳率:0%
帮助的人:1621
展开全部
帮帮忙 看看哪里出错啦 全屏的
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式