Hola necesito ayuda estoy atascado !!!

(1/2) > >>

ジ:
 :-[ Hola , tengo un problema y es que en mi trojan le ise un chat , pero solo envia desde el cliente al chat del servidor ( frmChat) y el winsock lo tengo en el frmPrincipal ( todo esto en el server ) el winsock lo llame sock1 , y resulta que me da un error en tiempo de ejecucion , no se porque no consigue enviar desde el server al cliente , mientras que de cliente a server si envia , el codigo es este

Código:

Private Sub Command1_Click()
 Dim Envio As String
 Envio = Text1.Text
 If Envio <> "" Then
  B.AddItem "Yo: " & Envio
  sock1.SendData Envio
  Text1.Text = ""
 End If
End Sub

eso en el Chatfrm del cliente en un command1

siguiente :
Código:

Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
 Dim Envio As String
 sock1.GetData Envio, vbString
 B.AddItem "Server: " & Envio
End Sub

eso en el data arrival del Chatfrm del Cliente

----El Servidor----

frmChat del servidor:

en un command

Código:

Private Sub Command1_Click()
 Envio = Text1.Text
 If Envio <> "" Then
  B.AddItem "Yo: " & Envio
  frmPrincipal.sock1.SendData Envio
  Text1.Text = ""
 End If
End Sub


aora en el data arrival del frmPrincipal del servidor
donde tengo el objeto winsock ( sock1)

Código:

Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim Envio As String
sock1.GetData Envio, vbString
If sock1.State = 7 Then
 frmChat.B.AddItem "Cliente: " & Envio
End If
Select Case Envio
Case "hi"
frmChat.Show
Case "bye"
frmChat.Visible = False
End Select
End Sub

Y donde me marca el error al debugearlo es :

Código:

Private Sub Command1_Click()
 Envio = Text1.Text
 If Envio <> "" Then
  B.AddItem "Yo: " & Envio
   [color=Green]frmPrincipal.sock1.SendData Envio[/color] <AKI
  Text1.Text = ""
 End If
End Sub

ジ:
el error  en ingles dice esto : wrong protocol or connection state for the request transaction or request

Slasher-K:
Eso es problema de la conexión, es probable que hayas intentado abrir una conexión con el método Open que todavía no está cerrada usando el método Close del WinSock.

Saludos.

ジ:
Slasher Keeper , como puedo mirar lo que tú dices ??? no entiendo bien tu respuesta , yo no he abierto ninguna conexion con "open" y cerrarla ..pues ..lo que ago es conectar primero el cliente , luego abro el form del chat ( del cliente) ,conecto el chat , luego activo el chat ( para que me muestre el form a la pc infectada) , luego ya puedo chatear , pero...pasa ese  problema , no se que puede ser , sera lo que tú dices !!

byebye:
veamos no verificas si aun se esta  enviando algo, y mandas otra vez datos cuando la primera trasferencia aun no a terminado, eso puede ser una razon, otra es lo que te dice slasher.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente