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()
url = InputBox("请输入网页地址:", "查看源文件", "
http://zhidao.baidu.com/question/44356139.html")
If Len(url) Then
tmp = Environ("TMP") & "\" & Format(Now, "YYMMDDHHMMSS")
URLDownloadToFile 0, url, tmp, 0, 0
Shell "notepad.exe " & tmp, vbNormalFocus
End If
End Sub