 |
 |
|
| 首页 | 外挂资讯 | 外挂分类 | 最近更新 | 推荐外挂 | 热门外挂 | 免费外挂 | 破解外挂 | | 收费外挂 | 用户登陆 | ||||||
|
|
||
 当前位置：TTee.com,专业、权威、品种多、更新快→文章首页→外挂资讯→外挂学院→VB类→VB 从零开始编外挂(五) |
| VB 从零开始编外挂(五)
作者：不详 来源于：TTee.com 外挂网 发布时间：2005-3-22 3:17:30 |
| VB 从零开始编外挂(五) -------------------------------------------------------------------------------------------------------------------------------------------------------- 前边谈了模拟键盘，下面说说模拟鼠标。 -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要VB API函数： mouse_event ←模拟一次鼠标事件 -------------------------------------------------------------------------------------------------------------------------------------------------------- 相关API声明： mouse_event ↓ 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 ) -------------------------------------------------------------------------------------------------------------------------------------------------------- 定义变量： Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 -------------------------------------------------------------------------------------------------------------------------------------------------------- MOUSEEVENTF_LEFTDOWN'鼠标左键按下 MOUSEEVENTF_LEFTUP'鼠标松开 MOUSEEVENTF_RIGHTDOWN '鼠标右键按下 MOUSEEVENTF_RIGHTUP'鼠标右键松开 -------------------------------------------------------------------------------------------------------------------------------------------------------- 代码： 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 ) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 '这里是 鼠标左键按下 和松开两个事件的组合即一次单击 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标右键单击事件 mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 '两次连续的鼠标左键单击事件 构成一次鼠标双击事件 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 -------------------------------------------------------------------------------------------------------------------------------------------------------- |
|
[] [返回上一页] [告诉好友] [发表评论] [打 印] [ 字体：大 中 小 ] |
| 上篇文章：VB 从零开始编外挂(四) 下篇文章：VB 从零开始编外挂(六) |
| ∷相关文章∷ |
| · VB 从零开始编外挂(一) · VB 从零开始编外挂(二) · VB 从零开始编外挂(三) · VB 从零开始编外挂(四) · VB 从零开始编外挂(六) |
| ∷相关软件∷ |
| 关于本站 - 下载声明 - 软件发布 - 下载帮助 - 广告联系 - 友情连接 - 用户注册 | @ 一切精彩外挂尽在TTee外挂网 @ |
| ttee.com 版权所有
Copyright © 2000-2007 TTee.com. All Rights Reserved.桂ICP备05001178号 |
|
