或者直接先将这个文件下载到本地吧: 'hf="http://www.123.com/1.txt ",LocalPath为本地路径 Private Overloads Sub Save(ByVal hf As String, ByVal LocalPath As String) If File.Exists(LocalPath) Then File.Delete(LocalPath) End If Try My.Computer.Network.DownloadFile(hf, LocalPath) Catch ex As Exception End Try End Sub
Dim XmlHttp As Object Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", "http://www.123.com/test.txt", False XmlHttp.send Msgbox StrConv(XmlHttp.ResponseBody, vbUnicode) Set XmlHttp = Nothing
inet或winsock,和http方式下载网页、文件一样
听说Scripting.FileSystemObject支持远程路径?
很简单 Dim sBuffer As String Dim lSize As Long On Error GoTo t2 Open "\\192.168.1.100\WINWORD.ini" For Input As #1 Line Input #1, sBuffer lSize = InStr(1, sBuffer, "=") text1.text = Val(Mid(sBuffer, lSize + 1)) Close (1)
'hf="http://www.123.com/1.txt ",LocalPath为本地路径
Private Overloads Sub Save(ByVal hf As String, ByVal LocalPath As String)
If File.Exists(LocalPath) Then
File.Delete(LocalPath)
End If
Try
My.Computer.Network.DownloadFile(hf, LocalPath)
Catch ex As Exception
End Try
End Sub
MsgBox WebBrowser1.Document.body.innerText'这个比较简单点 QQ578420913
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", "http://www.123.com/test.txt", False
XmlHttp.send
Msgbox StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
Dim sBuffer As String
Dim lSize As Long
On Error GoTo t2
Open "\\192.168.1.100\WINWORD.ini" For Input As #1
Line Input #1, sBuffer
lSize = InStr(1, sBuffer, "=")
text1.text = Val(Mid(sBuffer, lSize + 1))
Close (1)