+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سورس کد یک دانلودر ساده (ویژوال بیسیک) (/showthread.php?tid=2740)
سورس کد یک دانلودر ساده (ویژوال بیسیک) - Amin_Mansouri - 09-03-2012
با سورس زیر میتونید یک فایلو دانلود کنید.
خیلی سادست
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 SubRE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - gachboy - 10-21-2012
سلام.ویژال به سه خط زیر گیر میده به نظرتون مشکلش کجاس؟
کد:
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 BooleanRE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - Amin_Mansouri - 10-21-2012
این سورس نیاز به
dll داره
urlmon.dll
دی ال الو بگیر رجییتر کن مشکلت حله
RE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - Amin_Mansouri - 10-21-2012
این سورس نیاز به
dll داره
urlmon.dll
دی ال الو بگیر رجییتر کن مشکلت حله
RE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - Amin_Mansouri - 10-21-2012
این سورس نیاز به
dll داره
urlmon.dll
دی ال الو بگیر رجییتر کن مشکلت حله
RE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - gachboy - 10-21-2012
سورس دانلودر ساده ای که نیاز به dll و ocx نداشته باشه واسه کیلاگر دارین؟
RE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - alakimalaki - 10-22-2012
خب ocx رو بزار تو خود برنامه آموزششم گذاشتیم
RE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - gachboy - 10-22-2012
با این کار حجم سرور ساخته شده بالا میره
RE: سورس کد یک دانلودر ساده (ویژوال بیسیک) - Amin_Mansouri - 10-22-2012
بدون کامپونت نوشتم اما priv8 هست
این سورس با کامپونت inet هست
download_http(parsicoders.com.zip (اندازه 2.82 KB / تعداد دانلود: 41)