能實現(xiàn)這樣的功能,你需要添加webbrowser控件(microsoft
創(chuàng)新互聯(lián)建站是一家專業(yè)提供滄州企業(yè)網(wǎng)站建設,專注與成都網(wǎng)站設計、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設、H5開發(fā)、小程序制作等業(yè)務。10年已為滄州眾多企業(yè)、政府機構等服務。創(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
'顯示結果
'后面的省略
需要引用: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")
調用控件的事件呢:WebBrowser1.Document.All.commendStatus.Click
先填寫,再調用事件
自動打開網(wǎng)頁的BAT:
start
自動填寫表單需要用VB或者VBA來寫。
用自動鍵入數(shù)字和按鈕的方法。
參看下面的貼子:
這個不容易做,本來打算用OLE的,但是發(fā)覺很難實現(xiàn)。我給你個思路:
1、用VB程序自動打開網(wǎng)頁(調用那個BAT就可以了);
2、自動按下數(shù)字鍵1;
3、自動按下ENTER鍵
讓網(wǎng)頁自動填寫表單操作步驟:
打開瀏覽器設置,點擊打開【Internet選項】
在Internet選項卡上選擇【內(nèi)容】,點擊自動完成下面的【設置】
在自動完成設置中勾選希望自動完成功能用于哪些方面,勾選前面的復選框即可
點擊確定完成
試試:
WebBrowser1.Document.GetElementById("staticusernameid").SetAttribute("value", "2342342");
文章題目:包含vb.net網(wǎng)頁填單的詞條
本文路徑:http://www.chinadenli.net/article14/doodhde.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設計、服務器托管、網(wǎng)站改版、網(wǎng)頁設計公司、電子商務、定制開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)