Berikut adlah langkah-langkah untuk membuat Server-Client dengan VB 6.0
1.Buka VB pada PC anda lalu klik standard project
2. Tekan 'CTRL + T' akan muncul gambar dibawah dan checklist pada microsoft winsock control 6.0
3. klik OK lalu buat pada project1 form1 seperti berikut
a. microsoft winsock control 6.0
b. Buat 3 Text Box: text1, text2, dan text3 name nya tidak perlu diganti hanya pada pengaturan
alphabetik, cari text, kemudian pada kolom tulisan text 1 dihapus agar pada textboxnya kosong
c. Buat 3 Command : Command1, Command2, Command3, Ganti name pada
Command1: Connect,
Command2: Open , dan Command 3: Send Message
Contoh hasil tampilan pada project1 form1, disini form1 diubah pada namenya "Winsock Client" kurang lebih sebagai berikut:
4. klik dua kali pada Command1 yang tadi sudah diganti dengan Connect, masukkan Code berikut
Private Sub Command1_Click()
On Error Resume Next (Menghendel software ketika eror agar tetap berjalan)
Winsock1.Connect Text1.Text, 1234
(keterangan Program ini dibuat agar winsock1 dapat terhubung dengan text1.text dan portnya 1234)
End Sub
5. Klik dua kali pada microsoft winsock control kemudia masukkan Code:
Private Sub Winsock1_Connect()
Form1.Caption = "connected!" (Memeberikan keterangan kalo sudah terhubung
dengan server, ketika sudah terhubung akan berubah menjadi "Connected!")
End Sub
6. Klik dua kali pada command2 yang tadi diganti name Open, masukkan Code
Private Sub Command2_Click()
On Error Resume Next
Winsock1.SendData "cmd|" & Text2.Text (Mengirim data CMD ke server)
End Sub
7. Klik dua kali pada Command3/Send message, masukkan Code:
Private Sub Command3_Click()
On Error Resume Next
Winsock1.SendData "message|" & Text3.Text (Mengirimkan pesan ke server)
End Sub
Langkah berikutnya adalah membuat project form baru yaitu dengan cara,
klik file, klik Add Project, kemudian pilih stardard exe, maka akan muncul Project2,Form1 ganti name form2 dengan winsock server. lalu buat
microsoft winsock control 6.0 , contoh tampilannya
1. Klik dua kali pada icon microsoft winsock controller 6.0 yang sudah dibuat lalu masukkan program
kemudian pada pojok kiri ada tulisan
winsock1 dan disebelah kanan ada
eror, ganti winsock1 satu
dengan
form, dengan cara klik tombol panah bawah pada layar. Maka akan muncul seperti berikut,
Masukkan Code berikut :
Private Sub Form_Load()
Winsock1.Close (Menutup sambungan ketika siap menampilkan pesan)
Winsock1.LocalPort = "1234" (menjalankan program pada port 1234)
Winsock1.Listen (memulai untuk listening)
End Sub
2. Masih pada form yang sama lakukan seperti langkah no 1, dengan merubah
form menjadi
Winsock1 dan
pada tombol panah yang satunya dari
eror ganti dengan
Close, Masukkan Code berikut:
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub
3. Ganti
Close dengan
ConnectionRequest, Lalu masukkan Code berikut
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
4. Ubah
ConnectionRequest, dengan
DataArrival, masukkan Code:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim vector() As String
Winsock1.GetData data, vbString
vector() = Split(data, "|")
If vector(0) = "cmd" Then
Shell vector(1)
ElseIf vector(0) = "message" Then
MsgBox vector(1)
End If
End Sub
5. Ubah
DataArrival dengan
Eror, lalu masukkan Code berikut:
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long,
ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay _
As Boolean)
Winsock1.Close
Winsock1.Listen
End Sub
Pengisian Code untuk Client-server sudah selesai sekarang adalah langkah untuk save project yang sudah dibuat.
1. Klik
File
2. Klik
Make project1.exe
Simpan di
Dekstop, Ubah nama file dengan
server Lakukan langkah diatas pada Project2 dan Simpan
dengan nama
Client.
Pada dekstop akan muncul project yang sudah dibuat
Client.exe dan
Server.exe
Untuk menjalankan program buka keduanya kemudian pada text Connect masukkan angka
127.0.0.1, Kemudian klik connect, pada open masukkan
Noteped.exe, lalu klik Open.Tampilannya seperti gambar
program client server sudah bisa dijalankan silahkan masukkan "Hallow" atau pesan apa aja pada kolom pesan kemudian klik Send Message..
Selamat Mencoba... ^_^
