AVanti473
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: ' Присваеваем папке TEMP значение TmpDir
Dim TmpDir: TmpDir = ExpandPath("%TEMP%")
' Говорим что в папке TEMP появится фаил auto_run.bat и эта конструкция называется AutoRunScript
Dim AutoRunScript: AutoRunScript = TmpDir & "\auto_run.bat"
' Вызываем работу с коммандной строкой и записываем в реестр значение автозапуска
Call WaitForProcess(ExecuteExternalProcess("cmd.exe /C reg add ""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce"" /v Test /d " & chr(34) & AutoRunScript & chr(34)), 0)
Dim FSO: Set FSO = CreateObject("Scripting.filesystemObject")
const ForReading = 1, ForWriting = 2, ForAppending = 8
' Записываем в auto_run.bat строку удаления нужной папки
f = FSO.OpenTextFile(AutoRunScript, ForWriting, true)
f.WriteLine("rd /S /Q ""%AppData%\Local\ChemTable Software\Reg Organizer""")
f.Close |
|
Всего записей: 1179 | Зарегистр. 05-04-2011 | Отправлено: 20:44 04-06-2014 | Исправлено: AVanti473, 20:56 04-06-2014 |
|
