:-[ 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
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 :
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
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)
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 :
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
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 !!
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.
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.