怎么实现按键精灵键盘改键
1个回答
展开全部
t
rem start
k = WaitClick()
Delay 600
.
Dim k,按需设置
t = GetLastClick() /加一个k=32769 判断两次按键同样都是按鼠标的左键
KeyPress ;/设置长按时间0，首先都会检测到你的鼠标按下左键的动作，所以只要你一按鼠标左键程序就会直接按T;;在600ms后检测上次按键的状态确认是否是长按
If k =t and k=32769 Then //T.6s，上面这句话只要你的鼠标在没有任何按键操作的情况下;，程序会立即执行你的IF结构key1 = WaitClick()这句检测鼠标动作（这句是废话）
对于你的程序来说
rem start
k = WaitClick()
Delay 600
.
Dim k,按需设置
t = GetLastClick() /加一个k=32769 判断两次按键同样都是按鼠标的左键
KeyPress ;/设置长按时间0，首先都会检测到你的鼠标按下左键的动作，所以只要你一按鼠标左键程序就会直接按T;;在600ms后检测上次按键的状态确认是否是长按
If k =t and k=32769 Then //T.6s，上面这句话只要你的鼠标在没有任何按键操作的情况下;，程序会立即执行你的IF结构key1 = WaitClick()这句检测鼠标动作（这句是废话）
对于你的程序来说
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
