用VB打開網(wǎng)頁(yè)有多種方法:

創(chuàng)新互聯(lián)建站網(wǎng)站設(shè)計(jì),為客戶量身定制各類網(wǎng)站建設(shè)業(yè)務(wù),包括企業(yè)型、電子商務(wù)型、響應(yīng)式網(wǎng)站開發(fā)、行業(yè)門戶型等各類網(wǎng)站,實(shí)戰(zhàn)經(jīng)驗(yàn)豐富,成功案例眾多。以客戶利益為出發(fā)點(diǎn),創(chuàng)新互聯(lián)建站網(wǎng)站制作為客戶規(guī)劃、按需網(wǎng)站設(shè)計(jì)符合企業(yè)需求、帶有營(yíng)銷價(jià)值的網(wǎng)絡(luò)建站方案認(rèn)真對(duì)待每一個(gè)客戶,我們不用口頭的語言來吹擂我們的優(yōu)秀,千余家的成功案例見證著我們的成長(zhǎng)。
方法1)可用Shell函數(shù)執(zhí)行一個(gè)可執(zhí)行文件explorer.exe來打開網(wǎng)頁(yè)。
Shell 函數(shù),
執(zhí)行一個(gè)可執(zhí)行文件,返回一個(gè) Variant
(Double),如果成功的話,代表這個(gè)程序的任務(wù) ID,若不成功,則會(huì)返回 0。
Private Sub Command2_Click()
Shell "explorer.exe "
End Sub
方法2)使用WebBrowser直接建立瀏覽器。
在 Visual Basic 里還可以向工程中增加其它類型的 Internet 功能,包括:
Visual Basic 應(yīng)用程序的 Internet 擴(kuò)展。可以使用一些特殊控件,它們提供了和Internet 有關(guān)的功能。這些控件包括
Internet Transfer 控件、 WebBrowser 控件,以及 WinSock 控件。
Private Sub Command1_Click()
WebBrowser1.Navigate ""
End Sub
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress為你上面的網(wǎng)頁(yè)地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString
'sr。readtoend讀取網(wǎng)頁(yè)流到末尾,即使用正則表達(dá)式從網(wǎng)頁(yè)流中提取“回答采納率”,賦值給Label1.Text ‘沒有則為空
sr.Dispose() '關(guān)閉流
End Sub'要提取什么東西用正則表達(dá)式最好
End Class
你說的操作是像人一樣用鼠標(biāo)點(diǎn)擊網(wǎng)頁(yè)?
直接應(yīng)該是不行的,可以考慮先抓包分析數(shù)據(jù)包,在模擬瀏覽器發(fā)送請(qǐng)求獲取數(shù)據(jù),然后進(jìn)行相應(yīng)處理
不想用點(diǎn)擊,直接執(zhí)行,那么你肯定就不能用onclick事件了。
在網(wǎng)頁(yè)中JS函數(shù)自動(dòng)執(zhí)行常用三種方法
在HTML中的Head區(qū)域中,有如下函數(shù):
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函數(shù)的代碼,請(qǐng)自行修改先!
alert("函數(shù)自動(dòng)執(zhí)行哦!");
}
/SCRIPT
下面,我們就針對(duì)上面的函數(shù),讓其在網(wǎng)頁(yè)載入的時(shí)候自動(dòng)運(yùn)行!
①第一種方法
將如上代碼改為:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函數(shù)的代碼,請(qǐng)自行修改先!
alert("函數(shù)自動(dòng)執(zhí)行哦!");
}
window.onload=MyAutoRun();
//僅需要加這一句
/SCRIPT
②第二種方法
修改網(wǎng)頁(yè)的Body為:
body onLoad="MyAutoRun();"
或者改為:
body onLoad="javascript:MyAutoRun();"
③第三種方法
使用JS定時(shí)器來間斷性的執(zhí)行函數(shù):
setTimeout("MyAutoRun()",1000); //隔1000毫秒就執(zhí)行一次MyAutoRun()函數(shù)
實(shí)現(xiàn)方法,將最上面的那JS函數(shù),改為:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函數(shù)的代碼,請(qǐng)自行修改先!
alert("函數(shù)自動(dòng)執(zhí)行哦!");
}
setTimeout("MyAutoRun()",1000);
//這樣就行拉
/SCRIPT
使用webbrowser控件來加載網(wǎng)頁(yè),然后再 Private Sub WebBrowser1_DocumentCompleted下通過使用WebBrowser1.Document.Body.InnerHtml 來獲取網(wǎng)頁(yè)的源代碼,或使用 WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁(yè)中的文本。之后可以通過字符串控制指令或者正則表達(dá)式來精確獲取到你所需的數(shù)據(jù)。
當(dāng)前文章:vb.net操作網(wǎng)頁(yè)方法 VB打開網(wǎng)頁(yè)
當(dāng)前URL:http://chinadenli.net/article44/hjosee.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、小程序開發(fā)、商城網(wǎng)站、App設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站設(shè)計(jì)
聲明:本網(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)