网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

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

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

'使用VBS例,下载dynwrap.dll,然后拷贝至c:\windows\system32,运行regsvr32 dynwrap.dll进行注册

创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站制作、网站建设、蕲春网络推广、小程序开发、蕲春网络营销、蕲春企业策划、蕲春品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联公司为所有大学生创业者提供蕲春建站搭建服务,24小时服务热线:028-86922220,官方网址:www.cdcxhl.com

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"",""" "您要输入的文本" """)(Close)"

ws.Run(Clipboard) '复制文本

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

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

end if

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

假如Form1有个TextBox1,双击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 版本了

用 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

VB求解:鼠标自动移动到指定文本框后,自动输入某字符!

private

sub

Command1_click()

'点击按钮事件

Dim

x

As

String

'定义变量

Text1.SetFocus

'文本框获得焦点,只要鼠标自动到达文本框

Open

"d:\ab\12.txt"

For

Input

As

#1

'打开文本文件,文本文件的路径和文件名是d:\ab\12.txt,修改为你需要的路径和文件名

Input

#1,

x

'读取文本文件的内容到变量x中

Close

#1

'关闭打开的文本文件

Text1.Text

=

x

'将变量x的值赋值给文本框控件

End

Sub

'事件结束

vb.net 如何操作外部程序?如输入文本..

Dim myexe As Integer

myexe = Shell("xxx.exe")

AppActivate(myexe)

System.Threading.Thread.Sleep(50)

System.Windows.Forms.SendKeys.Send("帐号")

System.Threading.Thread.Sleep(50)

System.Windows.Forms.SendKeys.Send("{tab}")

System.Threading.Thread.Sleep(50)

System.Windows.Forms.SendKeys.Send("密码")

System.Threading.Thread.Sleep(50)

System.Windows.Forms.SendKeys.Send("{Enter}")

有的时候会出现发送不完全,我也正在寻找更好的方法,多多交流。


本文名称:vb.net自动输入文本 怎么用vb实现自动输入
本文网址:http://bjjierui.cn/article/ddceico.html

其他资讯