vb自動填寫網(wǎng)頁表單的問題

能實現(xiàn)這樣的功能，你需要添加webbrowser控件(microsoft

創(chuàng)新互聯(lián)建站是一家專業(yè)提供滄州企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站設(shè)計、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、H5開發(fā)、小程序制作等業(yè)務(wù)。10年已為滄州眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進行中。

internet

controls），然后在窗體上拖一個這個控件，命名為web1，移動到看不見的位置就可以了。按鈕的代碼可以這么寫：

'前面的省略

web1.navigate

"網(wǎng)址"

doevents

while

web1.busy

'等待網(wǎng)頁加載完

doevents

wend

web1.document.getelementbyid("code").value=text1.text

....按照這種方法填寫表單

web1.document.getelementbyid("button").click

'模擬單擊按鈕提交表單

doevents

while

web1.busy

'等待網(wǎng)頁加載完

doevents

wend

text3.text=web1.document.innertext

'顯示結(jié)果

'后面的省略

程序自動點擊網(wǎng)頁按鈕，自動填寫網(wǎng)頁表單。使用VB.NET編程。有哪位VB大俠會。 在線等。

需要引用：Microsoft HTML Object Library

在webbrowser的狀態(tài)為ready的時候，執(zhí)行:

'取得要填寫的表單名稱，并定義為一個html元素變量text

Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表單字段名id")

'給表單元素text賦值

text.InnerHtml = “張三”

'找到提交按鈕

Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按鈕id")

'執(zhí)行點擊動作

btnSubmit.InvokeMember("click")

vb.net webBrowser 自動填寫選擇列表表單

調(diào)用控件的事件呢：WebBrowser1.Document.All.commendStatus.Click

先填寫，再調(diào)用事件

如何用vb實現(xiàn)網(wǎng)頁表單的自動填充并提交

自動打開網(wǎng)頁的BAT：

start

自動填寫表單需要用VB或者VBA來寫。

用自動鍵入數(shù)字和按鈕的方法。

參看下面的貼子：

這個不容易做，本來打算用OLE的，但是發(fā)覺很難實現(xiàn)。我給你個思路：

1、用VB程序自動打開網(wǎng)頁（調(diào)用那個BAT就可以了）；

2、自動按下數(shù)字鍵1；

3、自動按下ENTER鍵

如何VB.net實現(xiàn)瀏覽的網(wǎng)頁自動填單

讓網(wǎng)頁自動填寫表單操作步驟：

打開瀏覽器設(shè)置，點擊打開【Internet選項】

在Internet選項卡上選擇【內(nèi)容】，點擊自動完成下面的【設(shè)置】

在自動完成設(shè)置中勾選希望自動完成功能用于哪些方面，勾選前面的復(fù)選框即可

點擊確定完成

vb.net webbrowser自動填表

試試：

WebBrowser1.Document.GetElementById("staticusernameid").SetAttribute("value", "2342342");

文章題目：包含vb.net網(wǎng)頁填單的詞條
本文路徑：http://aaarwkj.com/article14/doodhde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計、服務(wù)器托管、網(wǎng)站改版、網(wǎng)頁設(shè)計公司、電子商務(wù)、定制開發(fā)

廣告

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