Autor
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 esteCó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
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
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
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
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
Envio = Text1.Text
If Envio <> "" Then
B.AddItem "Yo: " & Envio
[color=Green]frmPrincipal.sock1.SendData Envio[/color] <AKI
Text1.Text = ""
End If
End Sub
En línea
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.
