| Вопрос: Копирование файла | Добавлено: 21.08.07 18:52 |
Автор вопроса:  F117
|
| Как скопировать открытый файл из самого себя? |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #1 | Добавлено: 22.08.07 01:36 |
| вопрос сформулирован очень уж непонятно. В частности что значит "из самого себя" | ||
|
Номер ответа: 2 Автор ответа: F117 Вопросов: 4 Ответов: 6 |
Профиль | | #2 | Добавлено: 23.08.07 16:29 |
| Действительно очень не понятно, ну ладно давайте так! Файл должен скопировать себя в другое место при запуске! | ||
|
Номер ответа: 3 Автор ответа: Silver FerrumICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #3 | Добавлено: 23.08.07 17:19 |
| похоже на троян.. может тебе сразу подсказать как в автозапуск заносить? | ||
|
Номер ответа: 4 Автор ответа: F117Вопросов: 4 Ответов: 6 |
Профиль | | #4 | Добавлено: 23.08.07 17:28 |
| нет это я знаю, меня больше интересует копирование | ||
|
Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 23.08.07 20:07 |
|
Файл должен скопировать себя в другое место при запуске!
Чем является запускаемый файл? exe? txt? 
см. FileCopy App.Path App.ExeName |
||
|
Номер ответа: 6 Автор ответа: F117Вопросов: 4 Ответов: 6 |
Профиль | | #6 | Добавлено: 23.08.07 20:21 |
| файл являеися exe, я только придумал способ перевода файл в бинар, запись его во временный файл а потом переношу временный файл туда куда надо. Если кто знает способ лучше, подскажите... | ||
|
Номер ответа: 7 Автор ответа:  shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #7 | Добавлено: 23.08.07 22:35 |
|
Так подсказали же уже.
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\" & "test.exe"
|
||
|
Номер ответа: 8 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #8 | Добавлено: 24.08.07 09:07 |
|
2F117
Тестируй запись в автозапуск с установленным и запущенным AVP (6.0, 7.0). Когда-то я увлекался записью копии файла в автозапуск, но все мои попытки были обнаружены Проактивной защитой Каспера (типа файл Trojan.generic, пытается зарегать свою копию в атозапуске)
|
||
|
Номер ответа: 9 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #9 | Добавлено: 24.08.07 13:58 |
|
Чуть не забыл, тестировать надо EXE-файл, а не проект!
|
||
|
Номер ответа: 10 Автор ответа: Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #10 | Добавлено: 27.08.07 15:27 |
|
я пре5дпочитаю апи, точнее на васике не кодю уже хз скока лет
сколько параметров не помню, импровизирую char* buffer = GetModuleFilename(GetModuleHandle(0)); CopyFile(buffer, "C:\\WINDOWS\\megavir.exe", true); и всё. |
||
|
Номер ответа: 11 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #11 | Добавлено: 27.08.07 21:59 |
|
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Private Sub Form_Load() Dim sFN As String sFN = String$(128, Chr$(0)) sFN = Left$(sFN, GetModuleFileName(App.hInstance, sFN, Len(sFN))) CopyFile sFN, "C:\WINDOWS\virik.exe", True End Sub Код-то работает, но при записи скопированного файла (C:\WINDOWS\virik.exe) в автозапуск Каспер блокирует сам EXE-файл и начинает материться: типа файл Trojan.generic, пытается зарегать свою копию в атозапуске
Не подходит 
|
||
|
Номер ответа: 12 Автор ответа: Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #12 | Добавлено: 28.08.07 16:20 |
| не получится с каспером так тупо записать в реестр | ||
|
Номер ответа: 13 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #13 | Добавлено: 28.08.07 21:57 |
|
2Ra$cal
Есть идеи?
|
||
Страница: 1 |