我的初学资料~1
来源:互联网 发布:淘宝中控台教程 编辑:程序博客网 时间:2024/04/29 13:35
点击鼠标后鼠标的定位
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '这个是设置鼠标的位置!
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) '定义鼠标事件
Dim i As Long
'vb模拟鼠标在屏幕的x = 10 : y = 20 的位置上点击一下左键
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5000 '5秒
End Sub
Private Sub Timer1_Timer()
Call SetCursorPos(10, 200) '让鼠标移动到(10,20)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!
i = i + 1
Print "点击屏幕" & i
End Sub
- 我的初学资料~1
- 我的初学git
- 我的初学笔记
- 我的电路初学
- 我的资料
- 我的资料
- 我的资料
- 我上传的资料
- 我的Hibernate资料
- 我以前的资料
- 我的资料一览
- 我分享的资料
- 我的学习资料
- 初学javascript,网上的资料收集一下
- 很有趣的STL初学资料
- 跟我学JBPM4之State、Decision 、Task活动【手动控制流程流转,是一个比较好的初学资料】
- 我初学SH的理解
- 我的Linux初学笔记
- STA 基础知识
- IT技术人员应知行业潜规则
- According to C standard, it only supports output text in MBCS (Multi-Byte Character String)
- (转)NMock --- 从零开始
- 自由职业者如何实现自我激励
- 我的初学资料~1
- oracle 数据类型详解---日期型(叶正盛)
- 版本控制比较
- poj 1394 Railroad
- (一)
- 图像
- .Net基本概念
- To many open files
- Linux下通过shell获取网卡的ip地址和mac地址