Problema con Wincock

[shadow.darknesses]

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

[WarGhost]

alomejor es porque cierrar el form donde esta el ws.

explicate algo mejor porfa

[shadow.darknesses]

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]


[WarGhost]

pero aber donde esta el winsock en el form1 o 2 ¿?

[shadow.darknesses]

en los 2, es el mismo
lo copie

[WarGhost]

no hace falta que lo pongas en los dos por ejemplo:

el form1 es el index por llamarlo así que es el form que tiene todo.

vale el form2 es el chat pues lo único que tienes que hacer es:

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
end sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
   Dim datos As String
   Ws.GetData datos
    form2.Text1.Text =  form2.Text1.Text & datos & vbCrLf
End Sub

form2:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
      On Error Resume Next
   Dim enviar As String
   enviar = Text4.Text & " dice: " & Text2.Text & vbCrLf
   form1.Ws.SendData enviar
End Sub



Salu2

[shadow.darknesses]

ok vale