Download File dengan Visual Basic 6

Kali  ini saya akan membahasa " Download File dan menyimpannya di Drive Kita "
Langsung saja !

  • Buka Visual basic 6 anda .
  • Buat Project Baru
  • Tambah kan Contol Inet Pada Form 
  • Lalu buat 1 Command
  • Lalu buat 2 textbox
  • Setelah itu copas Source code dibawah ini


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()
    Dim Ret As Long
    Ret = URLDownloadToFile(0, Text1.Text, Text2.Text, 0, 0)
    If (Ret = 0) Then
        MsgBox "Download Berhasil"
    Else
        MsgBox "Download Gagal"
    End If
End Sub





Sekian hari Ini Thanks
Tidak ada komentar :

Poskan Komentar