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

---

Klik Like/share jika anda menyukai tulisan Share