关于按键精灵,目的:实现按键盘几下后让鼠标移动并点击到一个特的位置。

举例说明一下:按下ASDF后鼠标自动点到一个特定的地方,再按下FDSA后鼠标再点到另一个特定的地方,嗯,每次按的字母不相同。如此循环下去。小伙伴们帮帮忙吧。
非常感谢两位小伙伴的帮助,但不是我想要的答案啊。这个难道是不能实现的么。嗯,我的想法是,按ABCD或按qwer或是OIUY都让鼠标移动一次,每次按下都不是特定的键,是随机的。高手们请继续帮忙,分不够的话还可以加,,

按一下,(按键),和按下是不一样的,我这里认为你是按一下
我根据你例子写代码,代码如下:
Dim Key(4)
While True
For i = 1 To 4
Key(i) = WaitKey()
Next

If Key(1) = 65 And Key(2) = 83 And Key(3) = 68 And Key(4) = 70 Then
MoveTo x1,y1 //坐标自己定
End If

//其他情况自己定
Wend追问

哥,你这个好像不对,我每次要按不同的键啊,
不是只按ABCD,,

追答

字母不同,你判断的时候,改变ASCII就可以了,我是按照你举例的ASFD写的,在While True和 Wend 之间,你自己根据需要写其他情况,我程序上提示你,其他情况自己定,真是怀疑,你有没有看懂我程序架构。

追问

非常对不起,是我没表达清楚,是随机按四个键,不是一定要按某四个键,期待你的回答。

追答

你还是没表达清楚,所谓随机按下四个键,就是在键盘上任意按下四个键,按键还是四个,只不过,这四个是什么键是不清楚,你究竟需要按多少个键?

温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-10-12
已经修改了。不知道你按键后鼠标移动到哪些特定点,用每次右下移100像素为例。
x=100 :y=100
Do
For 4
WaitKey
Next
MoveTo x, y
x = x + 100
y = y + 100
Loop
第2个回答  2013-10-10
这个高端,共同期待合理科学的答案

激活脚本通常是按某个键,或者组合键,而你所说的这些键。貌似设置成自定义组合键才行,而按键目前貌似不支持你的这些键
相似回答