Penggunaan Winsock

Hai semua!! Saya minta maaf dulu nih, bagi yang merasa artikel ini nggak mutu, udah basi, dsb saya minta maaf.
Saya juga sebenernya juga masih newbies, tapi nggak newbes-newbies amat.

Artikel ini akan membahas koneksi antar komputer di VB 6 mengunakan kontrol Winsock.

Sebelum menggunakan kontrol tersebut, kontrol winsock harus diaktifkan dulu dengan mengklik Project > Components, kemudian menyentang "Microsoft Winsock Control 6.0"

Setelah itu kalian tinggal memasukkan kontrol Winsock tersebut kedalam Form kalian. Jangan khawatir, kontrol Winsock tidak akan tampak di form saat RunTime.

Kemudian, setidaknya ada beberapa properties yang wajib diisi sebelum menggunakan winsock Control:
-LocalPort: itu adalah port yang akan kita gunakan
-RemotePort: itu adalah port yang akan digunakan komputer teman kita
-RemoteHost: itu adalah nomor IP komputer teman kita.

Berikut adalah contoh penggunaan kontrol Winsock dalam program Chat sederhana:

--------->> START HERE <<--------------

Dim Pesan As String
Dim Host As String
Dim Idx As String
Dim ipt As Long
Dim portt As Long

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.Enabled = False
Winsock1.Listen
List1.Clear
Command2.Enabled = False
End Sub
Private Sub Command1_Click()
If Text3.Text = "" Or Text4.Text = "" Then
MsgBox "Ada yang belum di isi tuh!!", 0, "Error!!"
Exit Sub
End If
ipt = Text3.Text
portt = Text4.Text
Winsock1.RemoteHost = ipt
Winsock1.RemotePort = portt
Winsock1.LocalPort = portt
Winsock1.Connect
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Winsock1.Close
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

If List1.Columns < 1 Then Exit Sub
Host = List1.Text
Idx = List1.ListIndex
If Button = 2 Then
PopupMenu mnuPopup
End If
End Sub

Private Sub MnuDisconnect()
Winsock1.Close
Winsock1.Listen
Lisi1.RemoveItem Idx
List1.Refresh
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2.Text = "" Then Exit Sub
Winsock1.SendData Pesan
Pesan = "<" & Winsock1.LocalIP & ">" & Text2.Text
Text1.Text = Text1.Text & Pesan & vbCrLf
End If
End Sub
Private Sub Winsock1_Connect()
ConnectBtn.Enabled = False
DiosconnectBtn.Enabled = True
Text2.Enabled = True
End Sub

Private Sub Winsock1_Close()
List1.Clear
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
List1.AddItem Winsock1.RemoteHost
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Pesan
Text1.Text = Text1.Text & Pesan & vbCrLf
End Sub

Private Sub Winsock1_SendComplete()
MsgBox "Data telah dikirim ke server!", vbInformation, "Sukses!"
End Sub

----------->> CUT HERE <<------------------

Selamat berkarya menggunakan Winsock Control!