请教有关VB获取网络TXT文本的问题

Question

本帖最后由 yunsnow 于 2014-06-24 12:27:11 编辑

Answer 1

简单讲：首先不允许IIS此目录的文件浏览，然后开发push接口来获取这个txt。

Answer 2

Private Sub CommandButton1_Click()
    On Error Resume Next
    Cells.Clear
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://www.17500.cn/getData/ssq.TXT", False
        .send
        ss = .responseText
        tt = Split(.responseText, vbLf)
        For i = 0 To UBound(tt) - 1
            Range("a" & i + 1 & ":ac" & i + 1) = Split(tt(i), " ")
        Next i
    End With
End Sub

Answer 3

我使用服务器的加密目录进行了加密，但是在返回这个文本的值时　需要windows身份验证，请问这个部分还如何做？好像不关POST方面

Answer 4

很简单，服务器端判断下useragent，你自己下载传一个独特的useragent