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

[littlechang]

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

[online]

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