09-03-2012، 10:58 AM
با سورس زیر میتونید یک فایلو دانلود کنید.
خیلی سادست
Simple File Downloader
کد:
خیلی سادست
Simple File Downloader
کد:
کد:
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As _
String, ByVal dwReserved As Long) As LongPrivate Const S_FALSE = &H1
Private Const S_OK = &H0Public Function IsGoodURL(ByVal sURL As String) As Boolean
sURL = StrConv(sURL, vbUnicode)
IsGoodURL = (IsValidURL(ByVal 0&, sURL, 0) = S_OK)
End Function
Private Sub Command1_Click()
If IsGoodURL(Text1.Text) Then
DoFileDownload StrConv(Text1.Text, vbUnicode)
Else
MsgBox "BAD Url"
End If
End Sub