说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用 kb_event 函数模拟键盘操作

HTML文档下载 WORD文档下载 PDF文档下载
VB使用 kb_event 函数模拟键盘操作
kb_event函数的使用 
     
下面的函数可以利用kb_event实行一些系统操作


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA

Private Sub DoAction(Index As Integer)
 Dim VK_ACTION As Long

 Select Case Index
  Case 0: '打开资源管理器
   VK_ACTION = &H45
  Case 1: '查找文件
   VK_ACTION = &H46
  Case 2: '最小化所有窗口
   VK_ACTION = &H4D
  Case 3: '运行程序
   VK_ACTION = &H52
  Case 4: '弹出Win菜单
   VK_ACTION = &H5B
  Case 5: '将计算机转入睡眠状态
   VK_ACTION = &H5E
  Case 6: '执行Windows帮助
   VK_ACTION = &H70
 End Select

 Call keybd_event(VK_LWIN, 0, 0, 0)
 Call keybd_event(VK_ACTION, 0, 0, 0)
 Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
华为V3服务器挑战小型机,多路高端市场汹涌 迟到的祝福:Ruby生日快乐!编程快乐! 无缘CEO Stephen Elop将执掌微软硬件业务部门 又一API聚集地 3scale成立API Codex 你应该放弃的八大设计元素 我想问一下.NET 2003 里MFC的问题,困扰好久了,哪位帮忙回答一下,3x sqlxml 3.0是vs2003中带得有的吗,还是需要专门为sqlserver2000去下?或(buy)装? 水晶报表问题:请各位帮帮忙 文件夹EFS加密及文件夹专用两项功能如何启用· 寻找素材图片 关于ActiveForm的问题,急! 关于response.sendredirect的疑问 求某字符在字符串中的位置!用什么函数? 用户名的问题. 求人教版七年级下册英语单词听力mp3 邮箱:a99 外语教学与研究出版社 初一英语下册的全部课文翻译 初一英语下册第4课的翻译 英语翻译不用了 初一英语下册75页3a、3b翻译 八下英语单词,课文MP3格式 发到:dieerxi 求 完整 高中人教版 英语单词的MP3,发送到wy 谁能告诉我哪儿有人教版高二英语单词和课文的mp3? 您好,我想要一份:人教版新目标初中英语单词录音mp 油价4日上涨美元对主要货币汇率4日下跌俄大力保护文化遗产穆沙拉夫获保释有望结束软禁 仍被阻止美对冲基金巨头因内幕交易被罚18亿美深港通能带来多大利好?原总裁骗10亿逃逸? 快鹿再爆“家丑易宝支付受重罚 折射监管加强新趋势别看到“美女荐股师”,就中了圈套山西襄垣警方否认向考生喷辣椒水 系警死亡竞赛血色月修罗异界之最强法师重生之裁决者极品师表桐梓小西湖旅游娄山关旅游息烽集中营旅游遵义会议旧址旅游回龙寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘