Вопрос № 108273: Добрый день уважаемые эксперты! У меня 2 вопроса.
1. Как в VB6.0 произвести копирование файла из него самого ? Например имеется файл с именем temp.exe при его запуске надо что бы он скопировал себя нв C:. Это можно сделать с помощью Set aa = Cr...
Вопрос № 108.273
Добрый день уважаемые эксперты! У меня 2 вопроса.
1. Как в VB6.0 произвести копирование файла из него самого ? Например имеется файл с именем temp.exe при его запуске надо что бы он скопировал себя нв C:. Это можно сделать с помощью Set aa = CreateObject("Scripting.FileSystemObject")
aa.CopyFile "C: emp.exe", "C: emp1.exe" но это возможно при условии что исходный файл будет иметь имя temp.exe и не получиться при другом имени. Можно ли как нибудь сделать возможность копирования этого файла из него самого невзирая на его имя ????
2. Как в VB6.0 можно осуществить запись программы в реестр в автозапуск??? у меня получалось такое сделать только следующим образом:
Set r = CreateObject("Wscript.Shell")
r.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun1.exe", "C:1.exe" но каждый раз при срабатывании сценария антивирус начинает реагировать именно на эти строчки принимая их как код вируса. Эт что же получается , что не возможно реализовать запись в рестр из-за того что каждый раз каждый раз антивирус будет блокировать это выполнение ??? ((( Подскажите как в других прогах реализуется запись в реестр!!!!
Отправлен: 06.11.2007, 16:01
Вопрос задал: Trist13 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Дмитрий Т.
Здравствуйте, Trist13!
Насчет первого: посмотрите встроенный обязательный объект app, очень интересная штука :) . У него есть свойство Exename, как раз хранящее то, что вам нужно.
Насчет второго: не буду говорить стопроцентно, но к примеру у меня файрвол при каждой установке ругается - и мне это даже нравиться, хоть я и не мазахист... Появляется ощущение контроля над машиной, пускай даже ложное. Не уверен, что есть алгоритм, гарантирующий что антивирус не будет ругаться. НО! попробуйте поискать какую-нибудь Api функцию, мне кажеться что подобное должно быть. Хотя антивирус все равно будет проверять.... :(
Ответ отправил: Дмитрий Т. (статус: 2-ой класс)
Ответ отправлен: 06.11.2007, 18:39 Оценка за ответ: 3 Комментарий оценки: Спасибо хоть за какую то помощь! Но все же непонятно как с помощью app. можно реализовать копирование файла из его самого независимо от его имени. Было бы неплохо посмотреть пример. Но все равно спасибо
Отвечает: PsySex
Здравствуйте, Trist13!
1.
Без FSO.
FileCopy App.Path + "" + App.EXEName + ".exe", "c:mуfile.exe"
С вашим примером
aa = CreateObject("Scripting.FileSystemObject")
aa.CopyFile App.Path + "" + App.EXEName + ".exe", "C: emp1.exe"
2.
Вы все правильно делаете. Антивирус мониторит ключ автозапуска, ведь вредоносные программы зачастую записывают себя имеено в ключ Run. Такую опцию можно отключить в антивирусе, если вы пишете для себя. Если же для запуска на других машинах, то тут как повезет;-) Либо ищите другие пути запуска вашей программы.
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 08.11.2007, 08:29
