Перезагрузка компьютера

[proxy]

Цитата proxy:



SharkyEXE, а медалька будет?

Перезагрузка компьютера

Большое Вам: FlatX007, proxy, Sylver Dragon искреннее спасибо, что Вы помогли мне в решении маленькой проблемы. А насчет медали, proxy Вы получились как 2й пользователь, кто подсказал мне правильный код скрипта AutoIt для перезагруза ПК, вот как-бы вы и получились серебряным призером в плане помощи мне с решением моей проблемы.

PS. Собираю дистрибут, а стандартный способ ухода ПК в перезагруз при помощи shutdown.exe мне показался хорошим, пока не наткнулся на скрипт AutoIt, позволяющий также послать ПК в перезагруз, только можно подшутить при помощи перезагруза благодаря этому сообщению при выполнении скрипта AutoIt:



PPS. Очень приятно видеть, как одни пользователи имеют желание и помогают другим начинающим пользователям в решении их проблем.

[proxy]

Цитата SharkyEXE:



PPS. Очень приятно видеть, как одни пользователи имеют желание и помогаю другим начинающим пользователям в решении их проблем.

Перезагрузка компьютера

На удивление, это хорошее побуждение, очень здорово сопутствует всему рус-комьюнити AutoIt.

Имею ввиду, народ реально предлагает решение проблемы, а не "погугли" и т.д. ....

И чувствую, это как раз завязанно на "двигающих" и развивающих людей этого сообщества.

[SyDr]

Код:

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

$J = 30
ProgressOn("Пожалуйста, подождите...", "Происходит уничтожение данных :)", "Система обнаружила использование нелегальной" & CHR(10) & "копии Windows. Через " & $j & " сек. все данные" & CHR(10) & "на ваших дисках будут уничтожены.")
For $i = 0 to 100 step 100/$J
$j=$j-1
sleep(1000)
ProgressSet( $i, "Система обнаружила использование нелегальной" & CHR(10) & "копии Windows. Через " & $j & " сек. все данные" & CHR(10) & "на ваших дисках будут уничтожены.")
Next
ProgressSet(-1 , "Шеф! Все пропало. Прощайте.")
;~ Shutdown(2)

Измени $J - изменится и всё остальное)))

[proxy]

подправил дизайн у Sylver Dragon-на:



Код:

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

$s = 30
ProgressOn('Пожалуйста, подождите...', 'Происходит уничтожение данных :)', 'Система обнаружила использование нелегальной' & @CRLF & 'копии Windows. Через ' & $s & ' сек. все данные' & @CRLF & 'на ваших дисках будут уничтожены.')
For $i=1 To 100 Step 100/$s
    Sleep(1000)
    ProgressSet($i, 'Система обнаружила использование нелегальной' & @CRLF & 'копии Windows. Через ' & $s & ' сек. все данные' & @CRLF & 'на ваших дисках будут уничтожены.')
Next
ProgressSet(100, 'Шеф! Все пропало. Прощайте.')
Sleep(1000)
;~ Shutdown(2)

Цитата Sylver Dragon:



Измени $J - изменится и всё остальное)))

Перезагрузка компьютера

Морфиус - ты?

[SyDr]

Код:

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

$Title = "Пожалуйста, подождите..."
$SubTitle = "Происходит уничтожение данных :)"
$Message  = "Система обнаружила использование нелегальной" & @CRLF
$Message &= "копии Windows. Все данные на ваших дисках" & @CRLF
$Message &= "будут уничтожены. Осталось времени: "
$Time = 5000
$Sleep = 100
ProgressOn($Title, $SubTitle, $Message & $Time)
For $I = 0 to $Time Step $Sleep
    ProgressSet($I / $Time * 100, $Message & ($Time - $I) / 1000 & " секунд")
    Sleep($Sleep)
Next
ProgressSet(100, "Шеф! Все пропало. Прощайте.")
;~ Shutdown(2)
Sleep(1000)

Цитата:



PPS. Очень приятно видеть, как одни пользователи имеют желание и помогаю другим начинающим пользователям в решении их проблем.



На самом деле чем больше повторяешь простое, тем меньше потом надо лезть в справку на сложном. А это значит, что помогая кому-то - мы в первую очередь помогаем себе.




Цитата proxy:



Морфиус - ты?

Перезагрузка компьютера

Нет , не я

[SharkyEXE]

{delete}

[FlatX007]

Такой большой мануал .... я в шоке

[FlatX007]

Было такое уже, Creat0R помогал. Моё же здесь было многократное тупое повторение _SendMessage

Однако, так работает более стабильно

Чем больше тем лучше, ибо не всякая система просто так перезагрузиться ;-





Код:

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

#include 
#include 
Run("taskmgr.exe")
WinWait("[CLASS:#32770;REGEXPTITLE:.*Windows.*]", "", 5)
$hTskMgr = WinGetHandle("[CLASS:#32770;REGEXPTITLE:.*Windows.*]")
If Not WinExists($hTskMgr) Then Exit 1
_SendMessage($hTskMgr, $WM_COMMAND, 4005, 0)
_SendMessage($hTskMgr, $WM_COMMAND, 4005, 0)
_SendMessage($hTskMgr, $WM_COMMAND, 4005, 0)

[SharkyEXE]

{delete}

[SharkyEXE]

Да, совсем забыл. Как сделать, чтобы после выполнения скрипта, переведенного в ехе файл:



Код:

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

$Title = "Пожалуйста, подождите..."
$SubTitle = "Происходит уничтожение данных :)"
$Message  = "Система обнаружила использование нелегальной" & @CRLF
$Message &= "копии Windows. Все данные на ваших дисках" & @CRLF
$Message &= "будут уничтожены. Осталось времени: "
$Time = 5000
$Sleep = 100
ProgressOn($Title, $SubTitle, $Message & $Time)
For $I = 0 to $Time Step $Sleep
    ProgressSet($I / $Time * 100, $Message & ($Time - $I) / 1000 & " секунд")
    Sleep($Sleep)
Next
ProgressSet(100, "Шеф! Все пропало. Прощайте.")
Shutdown(2)
Sleep(1000)

но перед перезагрузкой ПК этот скрипт-ехе файл удалялся, чтобы в системе не оставалось его? Для батников в конце дописываешь



Код:

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

Del /F /Q %0

и файл батника автоматически самоудаляеться с жесткого диска после своей отработки. Если ли такое для скриптов, их самоудаление после отработки? Спасибо.