网站 › 『编程语言讨论求助区』 › 按键精灵，如何实现按住一个键，单击鼠标

lgwcg 发表于 2024-6-13 19:43

按键精灵，如何实现按住一个键，单击鼠标

请教一个问题，如何实现按住shift键，然后不断单击鼠标左键，用在魔兽塔防游戏里建造同一个兵种，感谢感谢！

唯爱卿颜 发表于 2024-6-13 20:08

KeyDown "Shift", 1
For 10
LeftClick 1
Delay 100
Next
KeyUp "Shift", 1
这样？

lgwcg 发表于 2024-6-13 20:22

唯爱卿颜 发表于 2024-6-13 20:08
KeyDown "Shift", 1
For 10
LeftClick 1


感谢感谢，我试试

lgwcg 发表于 2024-6-13 20:56

唯爱卿颜 发表于 2024-6-13 20:08
KeyDown "Shift", 1
For 10
LeftClick 1


刚才按你的思路改了改，还真能实现，再次感谢！！

lsy832 发表于 2024-6-13 20:57

shift键按下不要弹起

um.haha 发表于 2024-6-13 21:58

唯爱卿颜 发表于 2024-6-13 20:08
KeyDown "Shift", 1
For 10
LeftClick 1


看不懂，但是看着很厉害

hhl100 发表于 2024-6-14 06:22

按下后，设置按住并延迟一会
shift键按下不弹起

xbang 发表于 2024-6-14 08:24

本帖最后由 xbang 于 2024-6-14 08:27 编辑

开启脚本后。按一下shift 开始点击。按一下alt停止。测试无问题。

Dim 线程ID
do

kk = GetLastKey
If kk = 16 Then
线程ID=BeginThread(鼠标点击)

ElseIf kk = 18 Then
StopThread 线程ID
Delay 800
End If
loop
       Sub 鼠标点击()
Do
      LeftClick 1
      Delay 100
      Loop

End Sub

chz123 发表于 2024-6-14 10:31

谢谢了，谢谢

查看完整版本: 按键精灵，如何实现按住一个键，单击鼠标