vb.net自动输入文本 怎么用vba实现自动输入

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") 也可以

原码：

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

相关问答

Q1: 如何编程实现在另一程序窗口的文本框自动输入文本并自动跳到另一个文本框或者按钮

'使用VBS例vb.net自动输入文本，下载dynwrap.dll,然后拷贝至c:\windows\system32vb.net自动输入文本，运行regsvr32 dynwrap.dll进行注册

Set ws=CreateObject("WSCript.shell")

Set Wrap1 = CreateObject("DynamicWrapper")

Wrap1.Register "USER32.DLL", "FindWindow","I=ss","f=s", "R=l"

Wrap1.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"

hWin = Wrap1.FindWindow(vbNullString, CStr("窗口名称"))

if hWin 0 then

Clipboard = "MsHta vbscript:ClipBoardData.setData(""Text"",""" "您要输入vb.net自动输入文本的文本" """)(Close)"

ws.Run(Clipboard) '复制文本

ws.sendkeys "{tab}" '发送tab键移动焦点

ws.sendkeys "^v" '发送粘贴,确保剪切板有内容

end if

Q2: 用vb 向网页的文本框中自动填充内容

首先建一个新工程vb.net自动输入文本，并添加部件microsoft Internet Control(即webBrowser控件),然后添加两个时钟控件，一个命令按钮。

在网页上按右键，查看源文件，找到两个文本框的名称（如：T1,T2)

在模块顶部定义一个全局变量 number，用来计数

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) ’延时函数，毫秒

Private Sub Command1_Click()

WebBrowser1.Navigate "" '要打开的网址

Timer1.Enabled = True '激活时钟控件

number=0

End Sub

Private Sub Timer1_Timer() '时钟事件

If WebBrowser1.Busy Then ‘如果网页未完全打开

Exit Sub

Else '''''已经完全打开了

Timer1.Enabled = False

number=number+1

WebBrowser1.Document.form1.T1.Value = number ‘其中form1和T1需要看网页的源码中的具体名称。

WebBrowser1.Document.form1.T2.Value = "vb.net自动输入文本你需要输入的内容"

WebBrowser1.Document.All.tags("input")(1).Click ’其中1是第几个输入按钮，vb.net自动输入文本你可以逐渐增大来试试到第几个是提交按钮，然后提交。

Timer2.Enabled = True '激活第二个时钟

Sleep 1000 ‘延时一秒

end if

End sub

Private Sub Timer2_Timer()

If WebBrowser1.Busy Then

Exit Sub

Else

Timer2.Enabled = False

'这里是上一页提交后打开的第二页，可以处理你的事务

WebBrowser1.Navigate "" '再打开上一页继续

sleep 500

timer1.enabled=true

end if

End Sub

如此循环，直到满足你的条件，剩下的你自己根据需要添加代码和出错处理。

关于vb.net自动输入文本和怎么用vba实现自动输入的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。