VB.net如何模拟键盘按键?

fatkids 2013-12-21 11:03:47
诸位:
我的问题就是怎么用代码来操控键盘?比如说:button1的click里写代码,执行后就像键盘上按了回车键。
还请各位帮帮忙,谢谢啊!
...全文
1395 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
w12wangbo 2013-12-23
  • 打赏
  • 举报
回复
模拟按键用发送wm_keydown的方法来完成,对哪个窗口按键,第一个参数就写哪个窗口的句柄。 例如 PostMessage(hwnd, WM_KEYDOWN, VK_RETURN, 0) 如果在win7旗舰版下运行,把hwnd换成开始按钮的句柄,则会弹出开始菜单。 实测过。
兔子-顾问 2013-12-22
  • 打赏
  • 举报
回复
Button1.PerformClick()
SQLite-ODBC 2013-12-21
  • 打赏
  • 举报
回复
Set objShell = CreateObject("Wscript.Shell") strCommandLine = "ttpsetup.exe" '启动安装程序 objShell.Run(strCommandLine) set WshShell = CreateObject("WScript.Shell") WScript.Sleep 3000 '延时3秒 WshShell.SendKeys "s" '模拟按下 S 键开始安装 WScript.Sleep 300 '延时0.3秒 WshShell.SendKeys "a" '模拟按下 A 键同意协议 WScript.Sleep 300 WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步 WScript.Sleep 300 WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步 WScript.Sleep 300 WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步 WScript.Sleep 2000 WshShell.SendKeys "{TAB}" '模拟按下 Tab 键选择安装项目 WScript.Sleep 300 WshShell.SendKeys "{TAB}" WScript.Sleep 300 WshShell.SendKeys " " '模拟按下空格键去除安装百度超级搜霸一行前的√号 WScript.Sleep 300 WshShell.SendKeys "{ENTER}" '模拟按下回车键完成最后一步
devmiao 2013-12-21
  • 打赏
  • 举报
回复
SendKeys.Send("{enter}")

16,555

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧