últimos mensajes de: shadow.darknesses

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7]

61	Programación / Programación Visual Basic / Re: Problema con Wincock	en: 19 Noviembre 2006, 16:32 pm
en los 2, es el mismo lo copie

Programación / Programación Visual Basic / Re: Problema con Wincock

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]

63	Programación / Programación Visual Basic / 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

64	Programación / Programación Visual Basic / donde descargo visual basic 6	en: 2 Noviembre 2006, 23:27 pm
?¿

Páginas: 1 2 3 4 5 6 [7]