VB使用XMLHTTP读取远程txt,解决了缓存及编码问题。 以下表格中的就是代码,其中关于解决缓存方面网上有说方法是使用 XMLObject.setRequestHeader "If-Modified-Since", "0" 但是测试发现当读取3-4次时会出现bad request的提示,后来查到资料,"0”写成一个很古老的时间就可以正确解决这个问题。 Dim html As String Di
代码: Form:Form1 Option Explicit Private Pools As HttpPool Private Sub Command1_Click() Dim o As MSXML2.XMLHTTP Set o = Pools.GetObject() Dim Handler As MyReadyStateHandler Set Handler
Public Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址. Dim xmlHTTP1 Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.Open "get", Url, True xmlHTTP1.send While xmlHTTP1.Re
Dim xmlHttp As Object Private Function aaa(url As String) Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.Open "GET", url, True xmlHttp.send (Null) While xmlHttp.ReadyState <> 4 DoEvents Wend