Problema con Wincock

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

Problema con Wincock

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Problema con Wincock (Leído 1,599 veces)

shadow.darknesses

Desconectado

Mensajes: 73

Problema con Wincock

« en: 18 Noviembre 2006, 23:06 pm »

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:

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:

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


	En línea

WarGhost

I love basket

Desconectado

Mensajes: 1.070

Re: Problema con Wincock

« Respuesta #1 en: 18 Noviembre 2006, 23:33 pm »

alomejor es porque cierrar el form donde esta el ws.

explicate algo mejor porfa


	En línea

Tienda vaper online

shadow.darknesses

Desconectado

Mensajes: 73

Re: Problema con Wincock

« Respuesta #2 en: 19 Noviembre 2006, 15:38 pm »

asi:
form1

Código:

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:


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]


	En línea

WarGhost

I love basket

Desconectado

Mensajes: 1.070

Re: Problema con Wincock

« Respuesta #3 en: 19 Noviembre 2006, 15:48 pm »

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


	En línea

Tienda vaper online

shadow.darknesses

Desconectado

Mensajes: 73

Re: Problema con Wincock

« Respuesta #4 en: 19 Noviembre 2006, 16:32 pm »

en los 2, es el mismo
lo copie


	En línea

WarGhost

I love basket

Desconectado

Mensajes: 1.070

Re: Problema con Wincock

« Respuesta #5 en: 19 Noviembre 2006, 16:38 pm »

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:

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:

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


« Última modificación: 19 Noviembre 2006, 18:15 pm por WarGhost »	En línea

Tienda vaper online

shadow.darknesses

Desconectado

Mensajes: 73

Re: Problema con Wincock

« Respuesta #6 en: 19 Noviembre 2006, 18:10 pm »

ok vale


	En línea

Páginas: [1]

Ir a: