设为首页收藏本站

星火云社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2454|回复: 0
收起左侧

[编程开发] VB自动点击电脑指定位置

[复制链接]
发表于 2021-7-7 18:17:01 | 显示全部楼层 |阅读模式
  1. Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  2. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  3. Private Const MOUSEEVENTF_LEFTDOWN = &H2
  4. Private Const MOUSEEVENTF_LEFTUP = &H4

  5. Private Sub Command1_Click()
  6. SetCursorPos 1805, 10 '这里可以改成你的位置
  7. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '鼠标按下
  8. mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '鼠标弹起
  9. End Sub
复制代码


您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

QQ|桌面版|收银台|手机版|小黑屋|站长简介|( 鄂ICP备12009696号  

GMT+8, 2021-12-7 00:58 , Processed in 0.106399 second(s), 27 queries .

Powered by 星火云社区 X3.2!

我们一直在努力前进^_^

快速回复 返回顶部 返回列表