求VB.NET讀取網(wǎng)頁內(nèi)容寫法

Imports System.Net

成都創(chuàng)新互聯(lián)公司自成立以來，一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、做網(wǎng)站、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個性化軟件開發(fā)等基于互聯(lián)網(wǎng)的全面整合營銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開發(fā)管理經(jīng)驗、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開發(fā)工程師團(tuán)隊及專業(yè)的網(wǎng)站設(shè)計師團(tuán)隊。

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

VB 如何獲取PHP論壇的會員信息里面的發(fā)帖數(shù)呢

?

$sql2="select count(*) as num from t_restore where reId='$info[id]'";

$result2=mysql_query($sql2)or die(mysql_error());

$info2=mysql_fetch_array($result2);

echo $info2[num];

用count函數(shù) t_restore為回復(fù)表

?

VB.NET與PHP通訊問題

與語言沒有關(guān)系, 你需要考慮的是兩個系統(tǒng)直接如何通訊. 選一種通訊協(xié)議(一般用http協(xié)議), 設(shè)計好數(shù)據(jù)結(jié)構(gòu), 可以是xml或json. 假設(shè)選用http協(xié)議傳輸json數(shù)據(jù). 你需要做以下工作:

使用php開發(fā)一個http接口, 根據(jù)參數(shù)查詢數(shù)據(jù)庫, 把結(jié)果轉(zhuǎn)換為json格式后返回. 這是目前最流行的接口格式, 基本上所有語言都可以開發(fā)和請求這樣的接口, 很多開放平臺都是這樣設(shè)計接口的, 例如微信的這個接口,你可以參考一下?網(wǎng)頁鏈接

使用VB.NET請求這個接口, 獲取返回的數(shù)據(jù)(json格式, 一個特殊的字符串), 使用VB.NET對json數(shù)據(jù)進(jìn)行解碼

所以,要完成這個工作,你需要知道http接口開發(fā)和請求, 以及json編碼和解碼的相關(guān)知識和技能, 祝你好運