如何通过vb打开http上的文本文件

Question

如题，如何通过vb打开http上的文本文件，下载到本地再打开也可以，但要用vb自动完成。当然是一定可以下载的，不存在权限等问题。

Answer 1

Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long
   
Private Sub Command1_Click()   Dim sourceUrl As String
   Dim targetFile As String
   
   sourceUrl = "ftp://用户名:密码@xxxx.com/kk.txt"
   targetFile = "c:\WINDOWS\Desktop\kk.txt"
   URLDownloadToFile 0&, sourceUrl, targetFile, 0&, 0
End Sub