jawaban quis

soal quisini link nya pak

Dim IPS As String

Dim User As String



Private Sub Command1_Click()

WS.SendData “START-” & User & “lia”

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