这个程式的下载功能一直出错请大大们帮忙



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_Clic ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

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()
Shell "cmd.exe"
End Sub
Private Sub Command2_Click()
Shell "Command.com"
End Sub

Private Sub Command3_Click()
Shell "regedit.exe"
End Sub

Private Sub Command4_Click()
If Text2 = "" Or Text1 = "" Then
MsgBox "请输入位置"
Else
URldownloadToFile 0, Text1, Text2, 0, 0

MsgBox "下载成功"
End If
End Sub

Private Sub Command5_Click()
If Text2 = "" Then
MsgBox "输入档案储存位置"
Exit Sub
End If
Shell Text2.Text, vbNormalFocus

End Sub

Private Sub Command6_Click()
MsgBox "此工具由制作者授权使用于User"
End Sub
需要很多误键