vb.net模拟键入 vba模拟键盘输入

vb模拟按下空格键

用API函数，但是vb.net与vb6的API声明不一样的。代码如下：

Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Const KEYEVENTF_KEYUP = H2

Const VK_SPACE = H20

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

keybd_event(VK_SPACE, 0, 0, 0)

keybd_event(VK_SPACE, 0, KEYEVENTF_KEYUP, 0)

End Sub

如有问题，消息问我。我通常不看回答后的旧贴。

相关问答

Q1: VB.NET模拟键盘的方法

例vb.net模拟键入：SendKeys.Send("4");

特殊键带“｛｝”普通直接“”

Q2: vs2012 vb.net 模拟网页按钮点击

使用webbrowser空间实现很简单

一。 首先在窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument

其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("sa")

最后执行onclick : mydom.onclick

二.还有想要实现点击，直接执行点击的相应函数即可例如：假设想实现点击下面的Inputbox

input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"/

那么直接执行onclick里的函数busSwitchDiv('changeDiv')即可，执行语句如下：

WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"

Q3: VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?

假如Form1有个TextBox1vb.net模拟键入，双击TextBox1填入123

Public Class Form1

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

System.Windows.Forms.SendKeys.Send("123")

End Sub

End Class

看你的VB.NET 版本vb.net模拟键入了

用 My.Computer.Keyboard.SendKeys("123", True) 代替 System.Windows.Forms.SendKeys.Send("123") 也可以

原码vb.net模拟键入：

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

My.Computer.Keyboard.SendKeys("123", True)

End Sub

End Class

vb.net模拟键入的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba模拟键盘输入、vb.net模拟键入的信息别忘了在本站进行查找喔。