QUIZ 3

link tugas ke pak mesran

LISTING CLIENT

Dim IPS As String

Dim User As String

Private Sub Command1_Click()

    WS.SendData "START-" & User & "-denni"

End Sub

Private Sub Command2_Click()

    WS.SendData "STOP-" & User

End Sub

Private Sub Form_Load()

    IPS = "127.0.0.1"

    User = WS.LocalIP

    WS.Connect IPS, 3000

End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)

        WS(index).GetData cData, vbString, bytesTotal

        Call CekData(index)

       

End Sub

Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)

        Load WS(cRequest)

        WS(cRequest).Close

        WS(cRequest).Accept requestID

        cRequest = cRequest + 1 '

End Sub