vb.net自動(dòng)輸入文本 怎么用vb實(shí)現(xiàn)自動(dòng)輸入

如何編程實(shí)現(xiàn)在另一程序窗口的文本框自動(dòng)輸入文本并自動(dòng)跳到另一個(gè)文本框或者按鈕

'使用VBS例，下載dynwrap.dll,然后拷貝至c:\windows\system32，運(yùn)行regsvr32 dynwrap.dll進(jìn)行注冊(cè)

創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站制作、網(wǎng)站建設(shè)、蘄春網(wǎng)絡(luò)推廣、小程序開發(fā)、蘄春網(wǎng)絡(luò)營(yíng)銷、蘄春企業(yè)策劃、蘄春品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供蘄春建站搭建服務(wù)，24小時(shí)服務(wù)熱線：028-86922220，官方網(wǎng)址：muchs.cn

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) '復(fù)制文本

ws.sendkeys "{tab}" '發(fā)送tab鍵移動(dòng)焦點(diǎn)

ws.sendkeys "^v" '發(fā)送粘貼,確保剪切板有內(nèi)容

end if

VB.NET 向指定(網(wǎng)頁或軟件)的輸入框內(nèi)輸入字符,如何實(shí)現(xiàn)?

假如Form1有個(gè)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求解：鼠標(biāo)自動(dòng)移動(dòng)到指定文本框后，自動(dòng)輸入某字符！

private

sub

Command1_click()

'點(diǎn)擊按鈕事件

Dim

x

As

String

'定義變量

Text1.SetFocus

'文本框獲得焦點(diǎn)，只要鼠標(biāo)自動(dòng)到達(dá)文本框

Open

"d:\ab\12.txt"

For

Input

As

#1

'打開文本文件，文本文件的路徑和文件名是d:\ab\12.txt，修改為你需要的路徑和文件名

Input

#1,

x

'讀取文本文件的內(nèi)容到變量x中

Close

#1

'關(guān)閉打開的文本文件

Text1.Text

=

x

'將變量x的值賦值給文本框控件

End

Sub

'事件結(jié)束

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

Dim myexe As Integer

myexe = Shell("xxx.exe")

AppActivate(myexe)

System.Threading.Thread.Sleep(50)

System.Windows.Forms.SendKeys.Send("帳號(hào)")

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}")

有的時(shí)候會(huì)出現(xiàn)發(fā)送不完全，我也正在尋找更好的方法，多多交流。

標(biāo)題名稱：vb.net自動(dòng)輸入文本 怎么用vb實(shí)現(xiàn)自動(dòng)輸入
文章網(wǎng)址：http://muchs.cn/article20/ddceico.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、響應(yīng)式網(wǎng)站、網(wǎng)站營(yíng)銷、用戶體驗(yàn)、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)