关于vb新手问题！按钮连接文件！

来源：百度知道 编辑：UC知道 时间：2024/06/08 09:17:27
是这样的，比喻我有一个下载地址！比如www.123.com/1.exe
代码应该怎么写！
还有一个问题！如果不是绝对路径！比如www.123.com/download.php?real_fn=s1.jpg&md5_time=24085c80b54e1bed81a206841c7f7ef97ef861981031497053&file_ext=jpg

就像以上的代码应该怎么样呢！我就是想单击按钮就把文件下载这样！
谢谢了！

'本功能对任何下载地址都有效
Private Sub Command1_Click()
Dim Url As String, SaveFile As String
Dim Retrieval, GetRemoteData, i As Integer
On Error Resume Next
Url = "www.123.com/1.exe" '你可以在此修改成实际下载地址
SaveFile = App.Path & "\1.exe" '你可以在此修改成实际保存地址
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", Url, False, "", ""
.Send
If .Readystate <> 4 Then Exit Sub
GetRemoteData = .ResponseBody
End With
i = FreeFile
Open SaveFile For Binary As #i
Put #i, , GetRemoteData
Close #i '保存完毕！

Set Retrieval = Nothing
End Sub