Скопировать себя!!!

[zona09]

Надо чтоб твоя програма при открытие скопировалать в другую папку!!! Как ето сделать??? Я пробовал через FileCopy, но потом копия проги не работала, трабл в том что надо себя скопировать но она получается в данный момент открыта!!! Подскажите!!!!!

[xolod]

Опять плохие и вредоностные программы пишем, it's

[Tatyanka]

И зачем это тебе?

[Ramzes]

Если это вирус то ничего больного для компа этот кодер сдеалть не может, если он не знает как самого себя копировать.

Но все равно я помогать НЕ БУДУ, потому что вирусы писать НЕ ХОРОШО

[Faust]

Как вариант... Пишешь вспомогательный EXE-шник, который копирует твою программу по нужному адресу. Потом зарываешь этот EXE в какой-нибудь неприметный DAT, откуда прога и вырезает его при необходимости, передает ему в командной строке нужные параметры (к примеру, путь, куда нужно скопировать прогу), и выгружается. После этого файл делает свое черное дело и запускает твою основную прогу (неплохо было бы восстановить состояние), которая "в благодарность за все" удаляет его, чтоб не смущал взор юзера.
ЗЫ. Надеюсь, что это будут юзать в мирных целях...

[zona09]

Как вариант... Пишешь вспомогательный EXE-шник, который копирует твою программу по нужному адресу. Потом зарываешь этот EXE в какой-нибудь неприметный DAT, откуда прога и вырезает его при необходимости, передает ему в командной строке нужные параметры (к примеру, путь, куда нужно скопировать прогу), и выгружается. После этого файл делает свое черное дело и запускает твою основную прогу (неплохо было бы восстановить состояние), которая "в благодарность за все" удаляет его, чтоб не смущал взор юзера.
ЗЫ. Надеюсь, что это будут юзать в мирных целях...

Да.ето я знаю, мне надо другой путь, потому что -программа моя- будет много весить если туда всунуть ище файл.!

[EvilCoder]

zona09 - МОЛОДЕЦ!!!! Так держать....
вот ссылка: http://bbs.vbstreets.ru/viewtopic.php?t ... highlight=
Если, что не поймешь... помогу... спрашивай!

[zona09]

2 EvilCoder Я там ничего рабочого не нашол.! Наведи пожалуйста здесь код!!!

[Faust]

Да.ето я знаю, мне надо другой путь, потому что -программа моя- будет много весить если туда всунуть ище файл.!

Ну, можно вместо EXE юзать BAT - обойдется в считанные байты.

[zona09]

Можете пример навести!

[EvilCoder]

Как это не рабочий...
Я писал (когда-то) :
Вот. Мое решение этой задачи
Прога каждый раз проверяет "свой путь", если она не в папке "C:\Windows\System32", то себя туда переносит

Код: Выделить всё

Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long     

Private Sub Form_Load()
        CheckRunPath
End Sub

Код: Выделить всё

Public Sub CheckRunPath()
    If Mid(Command$, 1, 5) = "kill:" Then           ' Уничтожение предыдущей копии
        On Error Resume Next '<<
        Do
            DoEvents
            Kill Trim(Right$(Command$, Len(Command$) - 5))
        Loop While PathFileExists(Right$(Command$, Len(Command$) - 5))
        Exit Sub
    End If
'----------------------------
    Dim SysPath As String
    SysPath = Space(255)                                        ' Буфер строки
    SysPath = Left$(SysPath, GetSystemDirectory(SysPath, 255))  ' Получение Сис.папки
'-----------------------------
    If UCase(SysPath) <> UCase(App.Path) Then
        CopyFile App.Path & "\" & App.EXEName & ".exe", _
                  SysPath & "\" & App.EXEName & ".exe", True         ' Копирование (себя) в [System32]
        WinExec SysPath & "\" & App.EXEName & ".exe kill:" _
           & App.Path & "\" & App.EXEName & ".exe", 10             ' Запуск (Себя) после копирования
    Unload frmMain
    End
    End If
End Sub

------------------------------------------------------------------
Что тут не понятного у меня работает

[Faust]

Строка из BAT-файла (отгадайте, что она делает?):
copy aaa.txt, c:\aaa.txt
В конце (восстановить прогу):
megaprog.exe