Cara Membuat Client Dan Server Chat Dengan Visual Basic 6.0

Kembali lagi dengan saya programer zonacyber-team mau sedikit sharing tentang Cara membuat Client dan Server, yang akan saya sharing ini masih sangat mendasar, pada tutorial kali ini saya hanya menggunakan komponen WinSock sebagai penghubung program yang akan kita buat pada antar jaringan dengan bermodalkan host/ip dan port sebagai jalur.

oke lanjut, buka program VB6 anda dan buat baru

buat lah 4 Textbox pada Form1, dan beri nama/rename seperti di bawah ini :

Text1 -> txtHost

Text2 -> txtPort

Text3 -> txtStatus

Text4 -> txtSend

buat lagi 2 Commandbutton, beri nama seperti di bawah ini :

Command1 -> cmdConnect

Command2 -> cmdSend

Hingga akan tampak seperti gambar di bawah ini

Lanjut, Klik kanan pada Form1 Klik View Code dan masukan coding di bawah ini:

Option Explicit
Private Sub cmdConnect_Click()
    bhottu.RemoteHost = txtHost.Text
    bhottu.RemotePort = txtPort.Text
    bhottu.Connect
End Sub
Private Sub cmdSend_Click()
    bhottu.SendData txtSend.Text
End Sub
Private Sub Form_Load()
    Form2.Show
 
    txtStatus.Text = ""
End Sub
Private Sub bhottu_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
 
    bhottu.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf
End Sub

Buat 1 Form lagi, jadi nanti akan ada 2 Form sebagai Client dan Server

Tambahkan 3 Textbox lagi, rename menjadi seperti ini

Text1 -> txtPort

Text2 -> txtStatus

Text3 -> txtSend

Tambahkan lagi 2 CommandButton, rename menjadi

Command1 -> cmdListen

Command2 -> cmdSend

Hingga akan tampak seperti gambar di bawah ini

Klik kanan pada Form2 Klik View Code dan masukan coding di bawah ini:

Option Explicit
Private Sub Form_Load()
    txtStatus.Text = ""
End Sub
Private Sub cmdListen_Click()
    bhottu.LocalPort = txtPort.Text
    bhottu.Listen
End Sub
Private Sub bhottu_ConnectionRequest(ByVal requestID As Long)
    If bhottu.State <> sckClosed Then
        bhottu.Close
    End If
 
    bhottu.Accept requestID
 
    txtStatus.Text = txtStatus.Text & _
        "Accepted connection from: " & _
        bhottu.RemoteHostIP & vbCrLf
End Sub
Private Sub cmdSend_Click()
    bhottu.SendData txtSend.Text
End Sub
Private Sub bhottu_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
 
    bhottu.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf
End Sub

Step akhir masukan Komponen Winsock pada masing" form, Form1 dan Form2..

cara menampilkan WinSock, tekan aja CTRL+T, ceklist Microsoft Winsock Control 6 dan Apply..

selesai, kalo anda niat mengembangkan code ini agar lebih menarik jangan lupa sharing juga ya sama saya..