CARA MEMBUAT DOWNLOADER DI VISUAL BASIC 6.0

Selamat pagi Sobat TNT. Bertemu lagi dengan saya tentunya si Admin gila haha. Kali ini saya akan berbagi tutorial tentang Visual Basic yaitu CARA MEMBUAT DOWNLOADER. Downloader kali ini fiturnya seperti IDM tetapi tersambungkan ke internet exploler sobat. Okedeh langsung aja ke tutorialny

Bahan :

• Visual Basic 6.0

Komponen :

• 1 FORM
• 1 COMMAND BUTTON
• 1 TEXT BOX

Untuk Tampilan Lihat Gambar dibawah ini :

Setelah di desain sesuai selera anda sendiri, Langkah berikutnya adalah memasukan Source Code Di Form. Code :

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 Long Private Const S_FALSE = &H1 Private Const S_OK = &H0 Public 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 "Url Tidak Valid" End If End Sub

Lihat Gambar :

Mudah bukan Tutorial MEMBUAT DOWNLOADER DI VISUAL BASIC 6.0.
Jika Sobat kurang jelas tanyakan saja denga berkomentar di bawah ini.
Makasih :)