skeeter
05-11-2010, 23:54
Добрый день. Можно ли объединить 2 скрипта в один: один из которых делает перезагрузку системы, а второй удаляет сам себя, т. е. (скрипт будет находиться в автозагрузке, при первом входе он соответственно потребует перезагрузку системы, а чтоб это не повторялось каждый раз при входе в систему надо его удалить "по тихому" )
первый скрипт: перезагрузка системы $j=220
ProgressOn("Пожалуйста, подождите...", "Происходит уничтожение данных... ", "Система обнаружила использование нелегальной" & CHR(10) & "копии Windows. Через " & $j & " сек. все данные" & CHR(10) & "на ваших дисках будут уничтожены.")
For $i = 1 to 110 step 0.5
$j=$j-1
sleep(1000)
ProgressSet( $i, "Система обнаружила использование нелегальной" & CHR(10) & "копии Windows. Через " & $j & " сек. все данные" & CHR(10) & "на ваших дисках будут уничтожены.")
Next
ProgressSet(-1 , "*! Все пропало. Прощайте.")
Shutdown(2)
второй скрипт: удаление скрипта(сам себя ) #Include <File.au3>
Func _ScriptDestroy()
$sTemp = _TempFile(@TempDir, '~', '.bat')
$sPath = FileGetShortName(@ScriptFullPath)
$hFile = FileOpen($sTemp, 2)
FileWriteLine($hFile, '@echo off')
FileWriteLine($hFile, ':loop')
FileWriteLine($hFile, 'del ' & $sPath)
FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')
FileWriteLine($hFile, 'del ' & $sTemp)
FileClose($hFile)
Run($sTemp, '', @SW_HIDE)
EndFunc
_ScriptDestroy()
exit
первый скрипт: перезагрузка системы $j=220
ProgressOn("Пожалуйста, подождите...", "Происходит уничтожение данных... ", "Система обнаружила использование нелегальной" & CHR(10) & "копии Windows. Через " & $j & " сек. все данные" & CHR(10) & "на ваших дисках будут уничтожены.")
For $i = 1 to 110 step 0.5
$j=$j-1
sleep(1000)
ProgressSet( $i, "Система обнаружила использование нелегальной" & CHR(10) & "копии Windows. Через " & $j & " сек. все данные" & CHR(10) & "на ваших дисках будут уничтожены.")
Next
ProgressSet(-1 , "*! Все пропало. Прощайте.")
Shutdown(2)
второй скрипт: удаление скрипта(сам себя ) #Include <File.au3>
Func _ScriptDestroy()
$sTemp = _TempFile(@TempDir, '~', '.bat')
$sPath = FileGetShortName(@ScriptFullPath)
$hFile = FileOpen($sTemp, 2)
FileWriteLine($hFile, '@echo off')
FileWriteLine($hFile, ':loop')
FileWriteLine($hFile, 'del ' & $sPath)
FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')
FileWriteLine($hFile, 'del ' & $sTemp)
FileClose($hFile)
Run($sTemp, '', @SW_HIDE)
EndFunc
_ScriptDestroy()
exit