1、可以通過在網(wǎng)址后面加個(gè)隨機(jī)的數(shù)字，來使xml；傳入一個(gè)文件名，返回這個(gè)文件的內(nèi)容，如果文件是UTF8的話則返回是轉(zhuǎn)換后的代碼 Public Function ReadUTF8ByVal sUTF8File As String As String If LensUTF8File = 0 Or DirsUTF8File = vbNullString Then。

2、如果這個(gè)元素沒有對應(yīng)的能直接找到它的ID等，你就需要根據(jù)它的類型，比較準(zhǔn)確的不變的內(nèi)容來判斷是不是你要的元素，這需要配合VB的TypeName函數(shù)或元素的ClassName屬性，以及InnerHtml或InnerText等屬性來判斷，你可以遍歷網(wǎng)頁的；使用webbrowser控件來加載網(wǎng)頁，然后再 Private Sub WebBrowser1_DocumentCompleted下通過使用WebBrowser1 來獲取網(wǎng)頁的源代碼，或使用 WebBrowser1來獲取網(wǎng)頁中的文本之后可以通過；Visual Basic簡稱VB是Microsoft公司開發(fā)的一種通用的基于對象的程序設(shè)計(jì)語言，為結(jié)構(gòu)化的模塊化的面向?qū)ο蟮陌瑓f(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)為機(jī)制的可視化程序設(shè)計(jì)語言是一種可用于微軟自家產(chǎn)品開發(fā)的語言“Visual”。

3、If DateDiffquotsquot， stime， ntime 3 Then GetHtmlStr = quotquot Exit Function #39判斷超出3秒即超時(shí)退出過程 Wend GetHtmlStr = StrConvXml。