Bebas Bicara

Bebas Bicara Bebas Mengutarakan Isi Pikiran Anda
 
IndeksIndeks  PortalPortal  FAQFAQ  PencarianPencarian  PendaftaranPendaftaran  AnggotaAnggota  GroupGroup  LoginLogin  

Share | 
 

 Script mini downloader

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Black_box
VIP Member
VIP Member
avatar

Jumlah posting : 149
Lokasi : NOYB
Registration date : 02.02.08

PostSubyek: Script mini downloader   Mon Feb 18, 2008 9:22 pm

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
Kembali Ke Atas Go down
Lihat profil user
Admin
Administrator
Administrator
avatar

Jumlah posting : 358
Lokasi : Madiun - Malang
Registration date : 25.01.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 5:46 am

Thanks mas black, kpn2 gw coba.

_________________
Alhamdulillah
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.road2us.com
Rizz
VIP Member
VIP Member
avatar

Jumlah posting : 183
Lokasi : Hidden
Registration date : 26.01.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 4:10 pm

fungsinya apa yah????
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.je.ro
Hang_
Moderator
Moderator
avatar

Jumlah posting : 487
Age : 23
Lokasi : Northbridge Chipset
Registration date : 08.02.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 4:19 pm

Waduh bahasa pemrograman VisualBasic ????
Give up aku Sad

_________________
Ketika perjalananan hidup
mulai terasa melelahkan...
Kembali Ke Atas Go down
Lihat profil user http://www.gupala.com
Admin
Administrator
Administrator
avatar

Jumlah posting : 358
Lokasi : Madiun - Malang
Registration date : 25.01.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 6:13 pm

Coba dibuat dulu aja. Fungsinya mungkin mempercepat waktu download

_________________
Alhamdulillah
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.road2us.com
Rizz
VIP Member
VIP Member
avatar

Jumlah posting : 183
Lokasi : Hidden
Registration date : 26.01.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 6:24 pm

tenanE? ? cr penggunaanx?
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.je.ro
Admin
Administrator
Administrator
avatar

Jumlah posting : 358
Lokasi : Madiun - Malang
Registration date : 25.01.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 6:33 pm

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

_________________
Alhamdulillah
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.road2us.com
Hang_
Moderator
Moderator
avatar

Jumlah posting : 487
Age : 23
Lokasi : Northbridge Chipset
Registration date : 08.02.08

PostSubyek: Re: Script mini downloader   Tue Feb 19, 2008 7:10 pm

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

_________________
Ketika perjalananan hidup
mulai terasa melelahkan...
Kembali Ke Atas Go down
Lihat profil user http://www.gupala.com
Rizz
VIP Member
VIP Member
avatar

Jumlah posting : 183
Lokasi : Hidden
Registration date : 26.01.08

PostSubyek: Re: Script mini downloader   Wed Feb 20, 2008 6:00 am

blm blajar smpe sni Sad
thank infox, wlpn gw jg gk phm Laughing
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.je.ro
dee_a_jenk
Senior
Senior
avatar

Jumlah posting : 478
Age : 24
Lokasi : nederlands . surabaia . medhioen (NOW)
Registration date : 16.02.08

PostSubyek: Re: Script mini downloader   Wed Feb 20, 2008 1:36 pm

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


yauda , makasii iah maz wat infona Very Happy koo cuba na Razz Razz
Kembali Ke Atas Go down
Lihat profil user http://profiles.friendster.com/amsodeelicious
Rizz
VIP Member
VIP Member
avatar

Jumlah posting : 183
Lokasi : Hidden
Registration date : 26.01.08

PostSubyek: Re: Script mini downloader   Wed Feb 20, 2008 5:24 pm

VB it apalagi ya? :confuse:
Kembali Ke Atas Go down
Lihat profil user http://bebasbicara.je.ro
wild_an
Moderator
Moderator
avatar

Jumlah posting : 460
Age : 27
Lokasi : madiun town square
Registration date : 18.03.08

PostSubyek: Re: Script mini downloader   Fri Mar 28, 2008 11:59 am

pak boz admin dah coba ?
dee uda coba ?

gmn2 ?

sukses g ?

_________________
Kembali Ke Atas Go down
Lihat profil user http://www.friendster.com/wildanciel
Sponsored content




PostSubyek: Re: Script mini downloader   

Kembali Ke Atas Go down
 
Script mini downloader
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» BRAND NEW! Mini Trail 110CC - HARGA TERJANGKAU
» mini h1 double angel eyes projector hid
» [WTS] Foglamp/spotlight mini Cree 5watt white
» WTS : Mini Bike
» wts minimoto,mini trail,mini atv

Permissions in this forum:Anda tidak dapat menjawab topik
Bebas Bicara :: Hobby :: Computer :: Programmer Forum-
Navigasi: