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