財產以後像下面使用StreamReader到頁面的源中提取爲一個字符串result
Dim uri As String = "https://www.yourUrl.com"
Dim request As HttpWebRequest = CType(WebRequest.Create(uri), HttpWebRequest)
Dim objRequest As HttpWebRequest = WebRequest.Create(uri)
Dim result As String
objRequest.Method = "GET"
Dim objResponse As HttpWebResponse = objRequest.GetResponse()
Dim sr As StreamReader
sr = New StreamReader(objResponse.GetResponseStream())
result = sr.ReadToEnd()
sr.Close
然後使用正則表達式(regex)到額外需要的屬性。例如像這樣
Dim pattern As String = "(?<=Username id="")\w+"
Dim m0 As MatchCollection = Regex.Matches(result, pattern, RegexOptions.Singleline)
Dim m As Match
Dim k As Integer = 0
dim strUserID as String = ""
For Each m In m0
'extract the values for username id
strUserID = m0[k].Value;
k=k+1
Next
你需要改變pattern
所以它可以拿起您要查找的其他屬性,但是這不應該是很難
是的,我聽說過的HTML敏捷軟件包,但文檔對於如何使用該庫非常有限。 – user1096419 2011-12-13 19:04:33