Second Day "Cara Membuat Jaringan Server-Client Pada VB 6.0"

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... ^_^