• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[其他] 纯后台键盘、鼠标 [复制链接]

1#
  1. Call Plugin.Msg.ShowScrTXT(500, 200, 1024, 768, "欢迎使用。想学习的朋友可以加群:49511405", "E0997A")
  2. UserVar Var1=DropList{"鼠标点击":"1"|"键盘点击":"2"}=0 "使用模式"
  3. UserVar Var4=DropList{"统计次数":"1"|"不统计":"2"}=0 "统计次数"
  4. UserVar Var2=0 "速度设置"
  5. UserVar Var3=0 "键位设置"
  6. Hwnd = Plugin.Window.MousePoint()
  7. If Var1 = 1 Then
  8. Call 鼠标点击()
  9. Else
  10. Call 键盘点击()
  11. End If
  12. i=1
  13. Sub 鼠标点击()
  14. Delay 500
  15. GetCursorPos x, y
  16. Do
  17. Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)
  18. Delay Var2
  19. Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)
  20. Delay Var2
  21. If Var4 = 1 Then
  22. Call Plugin.Msg.Tips("已点击" & i & "次")
  23. i=i+1
  24. End If
  25. Loop
  26. End Sub

  27. Sub 键盘点击()
  28. Do
  29. Call Plugin.Bkgnd.KeyPress(Hwnd, Var3)
  30. Delay Var2
  31. If Var4 = 1 Then
  32. Call Plugin.Msg.Tips("已按下" & i & "次")
  33. i=i+1
  34. End If
  35. Loop
  36. End Sub
复制代码

    已有2评分我要评分查看所有评分

    当年那在论坛实践幼稚真理的女孩、已逐渐蜕变
    发新话题 回复该主题