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

SharkyEXE · Отправлено: **20:43, 25-06-2009** | #11

Цитата 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 · Отправлено: **00:54, 26-06-2009** | #16

{delete}

FlatX007 · Отправлено: **04:09, 26-06-2009** | #17

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

semiono · Отправлено: **04:17, 26-06-2009** | #18

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

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

Код:

#include <WindowsConstants.au3>
#include <SendMessage.au3>

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 · Отправлено: **07:44, 26-06-2009** | #19

{delete}

SharkyEXE · Отправлено: **10:33, 26-06-2009** | #20

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

Код:

$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

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