1、可以通过在网址后面加个随机的数字，来使xml；传入一个文件名，返回这个文件的内容，如果文件是UTF8的话则返回是转换后的代码 Public Function ReadUTF8ByVal sUTF8File As String As String If LensUTF8File = 0 Or DirsUTF8File = vbNullString Then。

2、如果这个元素没有对应的能直接找到它的ID等，你就需要根据它的类型，比较准确的不变的内容来判断是不是你要的元素，这需要配合VB的TypeName函数或元素的ClassName属性，以及InnerHtml或InnerText等属性来判断，你可以遍历网页的；使用webbrowser控件来加载网页，然后再 Private Sub WebBrowser1_DocumentCompleted下通过使用WebBrowser1 来获取网页的源代码，或使用 WebBrowser1来获取网页中的文本之后可以通过；Visual Basic简称VB是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的模块化的面向对象的包含协助开发环境的事件驱动为机制的可视化程序设计语言是一种可用于微软自家产品开发的语言“Visual”。

3、If DateDiffquotsquot， stime， ntime 3 Then GetHtmlStr = quotquot Exit Function #39判断超出3秒即超时退出过程 Wend GetHtmlStr = StrConvXml。