Imprimir Página - Hola necesito ayuda estoy atascado !!!

Título: Hola necesito ayuda estoy atascado !!!
Publicado por: ジ en 14 Mayo 2005, 21:17 pm

:-[ 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

Título: Re: Hola necesito ayuda estoy atascado !!!
Publicado por: ジ en 14 Mayo 2005, 21:26 pm

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

Título: Re: Hola necesito ayuda estoy atascado !!!
Publicado por: Slasher-K en 15 Mayo 2005, 01:40 am

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.

Título: Re: Hola necesito ayuda estoy atascado !!!
Publicado por: ジ en 15 Mayo 2005, 01:58 am

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 !!

Título: Re: Hola necesito ayuda estoy atascado !!!
Publicado por: byebye en 15 Mayo 2005, 04:32 am

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.

Título: Re: Hola necesito ayuda estoy atascado !!!
Publicado por: ジ en 15 Mayo 2005, 15:13 pm

Ya funciona....pero fue al quitar el modulo modSocketMaster y el CSocketMaster se los agrege para que no dependa el servidor del mswinscok.ocx y al quitarselo este modulo y esta clase , anda perfectamente no se si ustedes sabrian en que puede interferir este modulo y esta clase , ya que era el fallo derivado de haberselas añadido al proyecto :( espero que alguien me pudieses ayudar pues me interesa que no dependa del mswinsock.ocx y quiero agregarselas al proyecto otra vez pero sabiendo como hacerlo pues ya que me hacia interferencias con el troyano ; en este caso con el Chat del trojan , y estoy totalmente seguro pues fue quitarlas del proyecto y me funciona perfectamente el chat :) , bueno salu2.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ジ en 14 Mayo 2005, 21:17 pm