Mensajes

en los 2, es el mismo
lo copie

asi:
form1

Código [Seleccionar] Expandir


Private Sub Command1_Click()
On Error Resume Next
   Ws.RemoteHost = Text3.Text
   Ws.Connect
Private Sub Command2_Click()
form2.show
[b]esto esta con winsock[/b]

form2

Código [Seleccionar] Expandir



Private Sub Form_Load()
Ws.Connect
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
   Dim datos As String
   Ws.GetData datos
   Text1.Text = Text1.Text & datos & vbCrLf
End Sub
Private Sub Command2_Click()
      On Error Resume Next
   Dim enviar As String
   enviar = Text4.Text & " dice: " & Text2.Text & vbCrLf
   Ws.SendData enviar
End Sub
[b]copie el mismo winsock de arriba[/b]


perdon no lo are mas
, me podrian contestar esta duda, ya ice como un supermini troyano, pero asi
el  form1, donde salen opciones, ej: teclas presionadas, xat, y todo, entonces el form2 es el xat, y asi sigue, pero cuando cambio de form se pierde la conexcion?¿, le coloke esto, pero tampoko

Código [Seleccionar] Expandir

Winsock1.Connect, esa es una duda xfa
y lo otro era que cuando le coloke un label para ver el estado, no me funca no me sale

Código [Seleccionar] Expandir


Private Sub Command1_Click()
   On Error Resume Next
   Ws.RemoteHost = Text3.Text
   Ws.Connect
   Timer1.Interval = 2000
   End Sub
Private Sub Timer1_Timer()
If Not Ws.State = 7 Then
Label3 = "Desconectado"
Else
End If
If Ws.State = 7 Then
Label3 = "Conectado"
Else
End If
End Sub

y esto no me funca,
ayuda pliss

?¿