voda
10-17-2004, 08:09 PM
كود برنامج downloader على الـ visual basic خفيف نظيف
الكود على طول :
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()
lngRetVal = URLDownloadToFile(0, "http://www.mohsenweb.netfirms.com/Project1.exe", "c:\vbdow.exe", 0, 0)
End Sub
ما تنسى تعمل commnad1 على الـ form !
مع تحيات منتديات عرب هكرز - www.3rb-hk.com (http://www.3rb-hk.com)
الكود على طول :
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()
lngRetVal = URLDownloadToFile(0, "http://www.mohsenweb.netfirms.com/Project1.exe", "c:\vbdow.exe", 0, 0)
End Sub
ما تنسى تعمل commnad1 على الـ form !
مع تحيات منتديات عرب هكرز - www.3rb-hk.com (http://www.3rb-hk.com)