程序自動(dòng)點(diǎn)擊網(wǎng)頁(yè)按鈕，自動(dòng)填寫(xiě)網(wǎng)頁(yè)表單。使用VB.NET編程。有哪位VB大俠會(huì)。 在線等。

需要引用：Microsoft HTML Object Library

創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計(jì)制作、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿(mǎn)足客戶(hù)于互聯(lián)網(wǎng)時(shí)代的來(lái)鳳網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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

'取得要填寫(xiě)的表單名稱(chēng)，并定義為一個(gè)html元素變量text

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

'給表單元素text賦值

text.InnerHtml = “張三”

'找到提交按鈕

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

'執(zhí)行點(diǎn)擊動(dòng)作

btnSubmit.InvokeMember("click")

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

讓網(wǎng)頁(yè)自動(dòng)填寫(xiě)表單操作步驟：

打開(kāi)瀏覽器設(shè)置，點(diǎn)擊打開(kāi)【Internet選項(xiàng)】

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

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

點(diǎn)擊確定完成

vb.net 自動(dòng)填表及讀取數(shù)據(jù)及提交問(wèn)題

填寫(xiě)數(shù)據(jù)恐怕要用Webbrowser控件

讀取網(wǎng)頁(yè)上的數(shù)據(jù)最好使用正則表達(dá)式

詳細(xì)的請(qǐng)Hi我.

VB.NET 如何獲取網(wǎng)頁(yè)中的數(shù)據(jù)

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)

On Error Resume Next

Dim Str_WebContent As String = "請(qǐng)輸入查找網(wǎng)站地址."

Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設(shè)置用于對(duì)向 Internet 資源的請(qǐng)求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。（可有可無(wú)）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因?yàn)榫W(wǎng)址中間有"/"符號(hào)）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉(zhuǎn)換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來(lái)新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '

End Function