vb - Membuat Program FTP

FTP singkatan dari File Transfer Protocol .Protokol File Transfer adalah sebuah sistem untuk mentransfer file antara dua komputer yang terhubung dengan Internet.. Salah satu komputer dikenal sebagai server dan yang lain adalah klien. Program FTP sangat berguna untuk manajemen website. Webmaster dapat memperbarui halaman web dengan meng-upload file lokal ke server web dengan mudah, pada kecepatan jauh lebih cepat daripada web browser. Untuk pengguna PC biasa, program FTP juga dapat digunakan untuk men-download file dari situs FTP yang menawarkan banyak barang yang berguna seperti perangkat lunak gratis, permainan gratis, informasi produk, aplikasi, alat-alat, utilitas, driver, perbaikan dan banyak hal lagi .

Program FTP biasanya terdiri dari sebuah antarmuka yang menunjukkan direktori dari komputer lokal dan remote server. File dapat ditransfer hanya dengan mengklik panah yang relevan. Untuk login ke situs FTP, kita harus kunci dalam nama pengguna dan password, namun untuk domain publik, kita hanya perlu mengetikkan kata anonim sebagai nama pengguna dan Anda dapat meninggalkan password. Nama host FTP mengambil ftp.servername.com bentuk, misalnya, nama host situs FTP Microsoft adalah ftp.microsoft.com. Jika Anda perlu menggunakan program FTP, Anda dapat membeli satu atau Anda dapat men-download beberapa dari program yang tersedia gratis dari Internet. Namun, Anda juga dapat membuat program sendiri FTP Anda dengan Visual Basic. Visual Basic memungkinkan Anda untuk membangun program FTP sepenuhnya fungsional yang mungkin hanya sebagai baik sebagai program FTP komersial. Mesin di belakang itu adalah Microsoft Internet Transfer Control 6.0 di mana Anda harus memasukkan ke dalam formulir Anda sebelum Anda dapat membuat program FTP. Nama dari Internet transfer Inet Kontrol Microsoft 6.0.is dan jika Anda hanya dimasukkan ke dalam satu kontrol, namanya akan Inet1.

Inet1 terdiri dari tiga sifat penting yaitu Inet1.URL yang digunakan untuk mengidentifikasi host FTP, inet1.UserName yang digunakan untuk menerima username dan Inet1.Password yang digunakan untuk menerima password pengguna. Laporan untuk program untuk membaca nama host dari server, username dan password masuk ke textbox1, textbox2 dan Textbox3 oleh pengguna akan ditampilkan di bawah ini:

  1. Inet1.URL=Text1.Text  
  2. Inet1.UserName=Text2.Text  
  3. Inet1.Passoword=Text3.Text  

Setelah user memasukkan informasi di atas, program akan mencoba untuk terhubung ke server menggunakan perintah berikut, di mana Jalankan adalah metode dan DIR adalah perintah FTP yang akan membaca daftar file dari direktori tertentu dari komputer remote dan Anda perlu menggunakan metode getChunk untuk benar-benar mengambil informasi direktori.

Inet1.Execute, "DIR

Setelah menghubungkan ke server, Anda dapat memilih file dari komputer remote untuk men-download dengan menggunakan pernyataan di bawah ini:

Inet1.Execute,, "get" & ​​remotefile & localfile

mana remotefile adalah file dari situs remote dan localfile adalah file dari sistem lokal. Namun, sangat sering Anda perlu memberikan path lengkap dari file lokal, yang Anda dapat melakukannya dengan memodifikasi sintaks di atas dengan sintaks berikut:

Inet1.Execute,, "get" & ​​remotefile & localpath & remotefile

Pernyataan di atas akan memastikan bahwa file remote akan didownload ke lokasi yang ditentukan oleh localpath dan file download akan mengasumsikan nama sama dengan file remote. Sebagai contoh, jika file remote readme.txt dan localpath adalah C: \ temp, sehingga file yang didownload akan disimpan di C: \ temp \ readme.txt.
Dalam rangka untuk memantau status koneksi, Anda dapat menggunakan event StateChanged yang berhubungan dengan Inet1 bersama-sama dengan satu set konstanta negara yang tercantum dalam tabel berikut.
Constant Value Description

icHostResolvingHost

1

Kontrol untuk mencari alamat IP dari komputer host tertentu.

icHostResolved

2

Kontrol berhasil menemukan alamat IP dari komputer host tertentu.

icConnecting

3

Kontrol menghubungkan ke komputer host.

icConnected

4

Kontrol berhasil tersambung ke komputer host.

icRequesting

5

Kontrol mengirim permintaan ke komputer host.

icRequestSent

6

Kontrol berhasil mengirim permintaan.

icReceivingResponse

7

Kontrol tersebut menerima respon dari komputer host.

icResponseReceived

8

Kontrol berhasil menerima respon dari komputer host.

icDisconnecting

9

Kontrol ini memutuskan hubungan dari komputer host.

icDisconnected

10

Kontrol berhasil diputus dari komputer host.

icError

11

Terjadi kesalahan dalam mengkomunikasikan dengan komputer host.

icResponseCompleted

12

Permintaan telah selesai dan semua data telah diterima.
Dalam event StateChanged, Anda menggunakan Select Case ... End Select pernyataan untuk memberitahu pengguna mengenai berbagai negara sambungan. Prosedur ini ditunjukkan di bawah ini:
  1. Private Sub Inet1_StateChanged(ByVal State As Integer)  
  2.   
  3. Select Case State  
  4.   
  5. Case icError  
  6.   
  7. MsgBox Inet1.ResponseInfo, , "File failed to transfer"  
  8.   
  9. Case icResolvingHost  
  10.   
  11. Label6.Caption = "Resolving Host"  
  12.   
  13. Case icHostResolved  
  14.   
  15. Label6.Caption = "Host Resolved"  
  16.   
  17. Case icConnecting  
  18.   
  19. Label6.Caption = "Connecting Host"  
  20.   
  21. Case icConnected  
  22.   
  23. Label6.Caption = "Host connected"  
  24.   
  25. Case icReceivingResponse  
  26.   
  27. Label6.Caption = "Receiving Response"  
  28.   
  29. Case icResponseReceived  
  30.   
  31. Label6.Caption = "Got Response"  
  32.   
  33. Case icResponseCompleted  
  34.   
  35. Dim data1 As String  
  36.   
  37. Dim data2 As String  
  38.   
  39. MsgBox "Download Completed"        
  40.   
  41. End Select  
  42.   
  43. End Sub  
Program FTP yang saya telah menciptakan berisi formulir dan kotak dialog. Kotak dialog dapat ditambahkan dengan mengklik pada item Proyek pada menu bar dan kemudian memilih item Formulir Tambahkan pada daftar drop-down. Anda dapat memilih kotak dialog normal atau kotak dialog login. Fungsi dari kotak dialog untuk menerima alamat FTP, username dan password dan kemudian untuk menghubungkan ke server. Setelah berhasil login, kotak dialog akan disembunyikan dan form utama akan disajikan bagi pengguna untuk menelusuri direktori remote dan untuk memilih file tertentu untuk men-download.

Penampakan nya dialog login sbb:
Gbr1

Program untuk dialog login:
  1. Option Explicit  
  2.   
  3.    
  4.   
  5. Private Sub OKButton_Click()  
  6.   
  7. Inet1.URL = Text1.Text  
  8.   
  9. Inet1.UserName = Text2.Text  
  10.   
  11. Inet1.Password = Text3.Text  
  12.   
  13. Inet1.Execute , "DIR"  
  14.   
  15. Form1.Show  
  16.   
  17. Dialog.Hide  
  18.   
  19. End Sub  
  20.   
  21.    
  22.   
  23. Private Sub Inet1_StateChanged(ByVal State As Integer)  
  24.   
  25. Select Case State  
  26.   
  27. Case icError  
  28.   
  29. MsgBox Inet1.ResponseInfo, , "File failed to transfer"  
  30.   
  31. Case icResolvingHost  
  32.   
  33. Label6.Caption = "Resolving Host"  
  34.   
  35. Case icHostResolved  
  36.   
  37. Label6.Caption = "Host Resolved"  
  38.   
  39. Case icConnecting  
  40.   
  41. Label6.Caption = "Connecting Host"  
  42.   
  43. Case icConnected  
  44.   
  45. Label6.Caption = "Host connected"  
  46.   
  47. Case icReceivingResponse  
  48.   
  49. Label6.Caption = "Receiving Response"  
  50.   
  51. Case icResponseReceived  
  52.   
  53. Label6.Caption = "Got Response"  
  54.   
  55. Case icResponseCompleted  
  56.   
  57. Dim data As String  
  58.   
  59. Dim data1 As String  
  60.   
  61.    
  62.   
  63. MsgBox "Transfer Completed"  
  64.   
  65.  Do         
  66.   
  67.             data1 = Inet1.GetChunk(1024, icString)  
  68.   
  69.             data = data & data1  
  70.   
  71.                      
  72.   
  73.             Loop While Len(data1) <> 0  
  74.   
  75.             Form1.Text6.Text = data  
  76.   
  77. End Select  
  78.   
  79. End Sub  
  80.   
  81. Private Sub CancelButton_Click()  
  82.   
  83. Text1.Text = ""  
  84.   
  85. Text2.Text = ""  
  86.   
  87. Text3.Text = ""  
  88.   
  89. End Sub  
  90. retrive
Pernyataan itu data1 = Inet1.GetChunk (1024, icString) adalah dengan menggunakan metode getChunk untuk mengambil informasi dari direktori remote dan kemudian menampilkan file dari direktori dalam Textbox6.

Setelah log in, bentuk utama akan ditampilkan seperti yang ditunjukkan pada Gambar berikut
Gbr2


Like This
Klik Like/share jika anda menyukai tulisan Share

source http://vbsource-code.blogspot.com/2011/12/13607593456934.html