調(diào)用控件的事件呢:WebBrowser1.Document.All.commendStatus.Click
成都創(chuàng)新互聯(lián)不只是一家網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司;我們對(duì)營(yíng)銷、技術(shù)、服務(wù)都有自己獨(dú)特見解,公司采取“創(chuàng)意+綜合+營(yíng)銷”一體化的方式為您提供更專業(yè)的服務(wù)!我們經(jīng)歷的每一步也許不一定是最完美的,但每一步都有值得深思的意義。我們珍視每一份信任,關(guān)注我們的成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作質(zhì)量和服務(wù)品質(zhì),在得到用戶滿意的同時(shí),也能得到同行業(yè)的專業(yè)認(rèn)可,能夠?yàn)樾袠I(yè)創(chuàng)新發(fā)展助力。未來將繼續(xù)專注于技術(shù)創(chuàng)新,服務(wù)升級(jí),滿足企業(yè)一站式營(yíng)銷型網(wǎng)站建設(shè)需求,讓再小的品牌網(wǎng)站制作也能產(chǎn)生價(jià)值!
先填寫,再調(diào)用事件
需要引用:Microsoft HTML Object Library
在webbrowser的狀態(tài)為ready的時(shí)候,執(zhí)行:
'取得要填寫的表單名稱,并定義為一個(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")
填寫數(shù)據(jù)恐怕要用Webbrowser控件
讀取網(wǎng)頁(yè)上的數(shù)據(jù)最好使用正則表達(dá)式
詳細(xì)的請(qǐng)Hi我.
讓網(wǎng)頁(yè)自動(dòng)填寫表單操作步驟:
打開瀏覽器設(shè)置,點(diǎn)擊打開【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)填寫 vba自動(dòng)填充代碼
網(wǎng)頁(yè)路徑:http://muchs.cn/article34/dospose.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信小程序、虛擬主機(jī)、網(wǎng)站策劃、搜索引擎優(yōu)化、建站公司、定制網(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)
猜你還喜歡下面的內(nèi)容