[Amin_Mansouri]

با سورس زیر میتونید یک فایلو دانلود کنید.
خیلی سادست
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

[gachboy]

سلام.ویژال به سه خط زیر گیر میده به نظرتون مشکلش کجاس؟

کد:

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

[Amin_Mansouri]

این سورس نیاز به
dll داره
urlmon.dll
دی ال الو بگیر رجییتر کن مشکلت حله

[Amin_Mansouri]

این سورس نیاز به
dll داره
urlmon.dll
دی ال الو بگیر رجییتر کن مشکلت حله

[Amin_Mansouri]

این سورس نیاز به
dll داره
urlmon.dll
دی ال الو بگیر رجییتر کن مشکلت حله

[gachboy]

سورس دانلودر ساده ای که نیاز به dll و ocx نداشته باشه واسه کیلاگر دارین؟

[alakimalaki]

خب ocx رو بزار تو خود برنامه آموزششم گذاشتیم

[gachboy]

با این کار حجم سرور ساخته شده بالا میره

[Amin_Mansouri]

بدون کامپونت نوشتم اما priv8 هست

این سورس با کامپونت inet هست

  download_http(parsicoders.com.zip (اندازه 2.82 KB / تعداد دانلود: 41)