TITIK TERANG

Setelah  3 minggu kami berjuang mengerjakan project ini dan selalu berganti-ganti tampilang dan coding akhirnya kami mendapat titik terang. Tepatnya tadi pagi kami mendapat sebuah coding yang dapat digunakan sesusai goal yang kami harapkan. Inilah hasilnya,
1. Tampilan awal client:

dan ini adalah coding-nya:

Private Sub Command1_Click(index As Integer)

If Winsock1.State = sckConnected Then
  data = "login," & Text1.Text & "," & Text2.Text
  Winsock1.SendData data
End If
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = Text3.Text
.RemotePort = 70
.Connect
End With
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State Then Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim ar() As String
Dim proto() As String
Dim ar2() As String

Call Winsock1.GetData(data)
proto = Split(data, ";")
ar = Split(proto(0), ",")
ar2 = Split(proto(1), ",")

If ar(0) = "login" And ar(1) = "ok" Then

  MsgBox "Monggo " & Text1.Text, vbOKOnly, ""
  Form4.Show
  Form1.Hide
  Form4.List2.AddItem ar2(0)
  Form4.List2.AddItem ar2(1)
  Form4.List2.AddItem ar2(2)
  Form4.List2.AddItem ar2(3)
  Form4.List2.AddItem ar2(4)
  Form4.List2.AddItem ar2(5)
  Form4.List2.AddItem ar2(6)
  Form4.List2.AddItem ar2(7)
  Form4.List2.AddItem ar2(8)
  Form4.List2.AddItem ar2(9)
  Form4.List2.AddItem ar2(10)
Else
  MsgBox "Nama atau Password kamu salah"
  'Winsock1.Close
  Text1.SetFocus

End If
End Sub

Nah sekarang kita akan ke form selanjutnya, beginilah bentuknya:
2. Tampilan form chatting

dan inilah coding-nya:


Private Sub Command2_Click()
Dim intResponse As Integer

intResponse = MsgBox("Are you sure you want to quit?", _
vbYesNo + vbQuestion, _
"Quit")

If intResponse = vbYes Then
End
End If
End Sub

Private Sub List2_Click()
Text1.SetFocus
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Form1.Winsock1.State Then Form1.Winsock1.Close
Form1.Winsock1.Accept requestID
End Sub

Private Sub Command1_Click()
If Winsock1.State = sckConnected Then
    i = Text1.Text
    Winsock1.SendData "chat," & Form1.Text1.Text & "," & Form4.List2 & "," & i
End If
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = Form1.Text3.Text
.RemotePort = 80
.Connect
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim i As String

Form1.Winsock1.GetData data, vbString
List2.AddItem data

Winsock1.GetData i, vbString
List1.AddItem i

End Sub

Alhamdulillah yah.....hehehe, oke job selanjutnya adalah: privat chat!!
semangka!! eh,, semangat!!!