Question

vb sendkeys 标准用法

文库上说sendkeysF5键的代码是：
Dim WshShell,Path,i
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
但是我试了却不行。
我家安装的是visual studio的vb，直接写
sendkeys（“asdfghjkl”）
不管用，求解
用VB6.0也不行。
请不要直接抄资料，谢谢

Answer 1

在VB中，sendkeys可以直接使用。

 

如sendkeys "{F5}"就实现按“F5”的功能。

 

在XP下可以调试通过，但在WINDOWS7下，由于“管理员权限”的问题 经常不能调试，就是把VB6改成“以管理员方式运行”也不一定可以。不过，一般情况下，编译后可以正常使用。

 

VB6中写了一个例子给你，运行结果见图

 

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "ABCD"
SendKeys "{ENTER}"
SendKeys "按键"
SendKeys "{END}"
SendKeys "{BACKSPACE}"
End Sub

按Connand1后

 

各语句均正常实现。

 

在VB2010下可用：

SendKeys.Send("{ENTER}")

Answer 2

VBS：

Dim WshShell,Path,i
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"

VB.NET：
SendKeys.Send("{F5}")

VB6：
SendKeys "{F5}"

注意，在运行此命令前，要先让（或者说确保）目标控件（或窗体）获得输入焦点，比如VB6：
Text1.SetFocus
SendKeys "123456"

追问

Dim WshShell,Path,i
Set WshShell = CreateObject("WScript.Shell")
这两句是什么意思？dim的path和i有什么作用？
还有，visual studio不支持set，怎么改？

追答

visual studio用SendKeys.Send("{F5}")

Answer 3

直接sendkeys ""或者这么写Set WshShell = CreateObject("WScript.Shell")