Script mini downloader

Gw ada yang ngasi script ni, buat downloader sederhana pake VB. Kalo ada yang mo praktekin, silakan, gw belum nyoba, blm sempet.


Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
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 cmdMethod1_Click()
Dim thePath As String
thePath = InputBox("What is the url to download the file?", " File Url", "http://")
thePath = StrConv(thePath, vbUnicode)
DoFileDownload thePath
End Sub

Private Sub cmdMethod2_Click()
Dim retVal As Long
Dim theUrl As String
Dim savePath As String
Dim pathExist As Long
theUrl = InputBox("What is the url you want to download?", " Url Path?", "http://")
If theUrl = "" Then Exit Sub
savePath = InputBox("What is the path and filename to save the url to?", " Path and Filename to save")
If savePath = "" Then Exit Sub
retVal = URLDownloadToFile(0, theUrl, savePath, 0, 0)
If retVal = 0 Then
MsgBox "File was downloaded successfully!", vbExclamation, " Download Successful"
Else: MsgBox "There was a error downloading the file. Make sure that the url is valid and try again!", vbCritical, " Error"
End If
End Sub

Thanks mas black, kpn2 gw coba.

fungsinya apa yah????

Waduh bahasa pemrograman VisualBasic ????
Give up aku

Coba dibuat dulu aja. Fungsinya mungkin mempercepat waktu download

tenanE? ? cr penggunaanx?

blem gw coba hamk. Gw gak punya VB. Sabar ya

Udah lupa aku sm VB dulu waktu semester pertama matkul itu ada sih, cuman udah g kul 3 tahunan jd lupa
Turbo pascal, Borland Delphi / C++ , C.net, J.net dll wuasss gak mudeng maneh gagal otak ku
Tp ntar gw cuba maksimalkan kemampuan otak kananku deh thanks infonya

blm blajar smpe sni
thank infox, wlpn gw jg gk phm

waduh ! akoo uda blajar VB . . . tapii . . . kok gag mudeng ya baca scriptna ?! hehehe . . . lum smpe kali ye .. .


yauda , makasii iah maz wat infona koo cuba na

VB it apalagi ya? :confuse:

pak boz admin dah coba ?
dee uda coba ?

gmn2 ?

sukses g ?