Foro de elhacker.net

	Public Sub Reconnect()
	On Error GoTo Error
	If Not WS.State = 7 Then
	WS.CloseSck
	WS.Connect Text1.Text, 6239 'en text1 pongo la ip publica del client
	End If
	Error:
	End Sub

	''''''''''''''''''''''''''''''''''
	
	Private Sub connect_Click()
	On Error Resume Next
	WS.Connect Text1.Text, 6239 
	Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Timer()
	On Error GoTo Error
	If Not WS.State = 7 Then
	Call Reconnect
	End If
	If WS.State = 7 Then
	Label3.Caption = "conectado"
	Else
	Label3.Caption = "desconectado"
	End If
	Error:
	End Sub

	Private Sub WS_DataArrival(ByVal bytesTotal As Long)
	On Error GoTo Error
	Dim datos As String
	WS.GetData datos
	If datos = "prueba" Then
	MsgBox "funciona!!"
	End If
	Error:
	MsgBox "error en transmisión de datos"
	End Sub


*CLIENTE:

	Private Sub Escuchar_Click()
	On Error Resume Next
	WS.LocalPort = Text1.Text 'el puerto es 6239 al igual que el server
	WS.CloseSck
	WS.Listen
	If WS.State = 2 Then
	Label1.Caption = "Escuchando..."
	End If
	End Sub

	Private Sub Send_Click()
	WS.SendData Text2.Text 'envio datos
	End Sub

	Private Sub Exit_Click()
	End
	End Sub

	Private Sub Timer1_Timer()'cada 2 seg
	On Error GoTo Error
	If WS.State = 7 Then
	Label1.Caption = "Conectado"
	Else
	Label1.Caption = "Desconectado"
	End If
	If Label1.Caption = "Desconectado" Then
	WS.CloseSck
	WS.Listen
	End If
	Error:
	End Sub

	Private Sub WS_ConnectionRequest(ByVal requestID As Long)
	On Error GoTo Error
	WS.CloseSck
	WS.Accept requestID 'acepto toda conexion entrante
	Label3.Caption = WS.RemoteHostIP 'me indica a que ip estoy conectado
	Timer1.Enabled = True
	Error:
	End Sub

Dim WithEvents ws As CSocketMaster
Set ws = New CSocketMaster