当前位置: 代码迷 >> VB Dotnet >> VB.net怎么模拟键盘按键
  详细解决方案

VB.net怎么模拟键盘按键

热度:474   发布时间:2016-04-25 02:23:29.0
VB.net如何模拟键盘按键?
诸位:
    我的问题就是怎么用代码来操控键盘?比如说:button1的click里写代码,执行后就像键盘上按了回车键。
    还请各位帮帮忙,谢谢啊!
------解决方案--------------------
SendKeys.Send("{enter}")
------解决方案--------------------
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}" '模拟按下回车键完成最后一步
------解决方案--------------------
Button1.PerformClick()
------解决方案--------------------
模拟按键用发送wm_keydown的方法来完成,对哪个窗口按键,第一个参数就写哪个窗口的句柄。
例如  PostMessage(hwnd, WM_KEYDOWN, VK_RETURN, 0)
如果在win7旗舰版下运行,把hwnd换成开始按钮的句柄,则会弹出开始菜单。 实测过。
  相关解决方案