Компьютерди өчүрүү боюнча акыркы пранк: 3 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:38

Бул мен пранк катары жасаган.vbs өчүрүү скрипти. Мунун абдан сонун болушунун себеби, компьютерди дароо эле өчүрүүнүн ордуна, компьютер сиз менен сүйлөшүп, компьютер 10 секундда өчөөрүн эскертип, анда акыркы 5 секунд мурунку кичине анимацияны көрсөтөт. ал компьютерди өчүрөт.

Мен аны конвертер аркылуу.exeге түзүүнү жакшы көрөм, бирок муну кылуунун кажети жок. Эгер муну кантип жасоону билгиңиз келсе, vbs Screen Lock караңыз. VBS редакторлору үчүн дагы ошол шилтемелер бар.

Бирок менин экрандын кулпусунан айырмаланып, бул программа бир топ кыска, андыктан мен аны эң жакшы түшүндүрүүгө аракет кылам.

ЭСКЕРТҮҮ: Эгерде сиз буга чейин vbs билбесеңиз, анда мен бул Нускаманы текшерүүнү сунуштайм, андыктан бул скрипт колдонулган кээ бир функциялар жөнүндө негизги түшүнүккө ээ болосуң.

1 -кадам: Менин скриптим…

Мына сценарий..

Сиз "Shutdown.vbs" менен аяктаганга чейин же.vbs менен аяктаганча каалаган нерсеңиздин аягындагы "s" лердин бирин жок кылышыңыз керек болот.

2 -кадам: Менин Script (түшүндүрмө)…

Ошентип, кодду түшүндүрүп береримди билиңиз …

Биринчи сап чындыгында анча деле мааниге ээ эмес, мен сценарийди түзүп жатканда мага жардам берди. Бул жерде кийинки үч сап:

Dim IntCounterDim objWshShl: Set objWshShl = WScript. CreateObject ("wscript.shell") Dim objVoice: Set objVoice = WScript. CreateObject ("sapi.spvoice")

Коддун биринчи сабы биз көзөмөлдөө үчүн колдонула турган өзгөрмөнү For … Next Loop деп жарыялайт. Коддун кийинки эки сабы 2 өзгөрмөнү жарыялайт жана коет. objWshShl билдирүү кутусу жана иштетүү функциялары үчүн колдонулат. objVoice компьютерди "сүйлөшүү" үчүн колдонулат.

Бул жерде дагы үч сап бар:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Бул саптар биздин сценарийдеги үч функцияны чакырып жатат.

Бул жерде скрипттеги биринчи функция.

Function ShutdownWarning objVoice. Speak "Бул компьютер эми 10 секундда өчөт." WScript. Sleep 5000 End Function

Бизге сценарийибизде функциялардын кереги жок, бирок ал жөн гана нерселерди иретке келтирүүгө жардам берет.

Демек, мунун баары сүйлөмдү тырмакчалардын ортосунда сүйлөп, андан кийин 5 секундга тынып, кийинки функцияга өтөт.

Бул кийинки бөлүк бир аз татаал көрүнүшү мүмкүн, бирок аны түшүнүү абдан оңой:

Функция TimedMessageBox For IntCounter = 5тен 1 Кадамга -1 objWshShl. Popup "Компьютер" _ & IntCounter & "секундда", 1, "Компьютерди өчүрүү", 0+48 Кийинки Аяктоо Функциясы

Ошентип, алгач TimedMessageBox деп аталган функцияны түзөт.

Андан кийинки 4 сап - For… Next Loop. Ошентип, бул цикл ар бир жолу беш эсе төмөндөйт.

objWshShl. Popup "Компьютер" _ & IntCounter & "секундаларында" өчөт, 1, "Компьютерди өчүрүү", 0+48

Бул код чындыгында коддун бир гана сабы, ал жөн гана окууну жеңилдетүү үчүн "_" белгиси аркылуу башка сапка бөлүнөт. Бул код эмне кылат, ал 1 секундга созулган калкып чыкма билдирүүнү түзөт, IntCounter өзгөрмөсүн колдонуу менен өчүрүлгөнгө чейин калган секунддарды көрсөтөт.

Бул цикл беш жолу айлангандан кийин, ал сценарий менен уланат.

Бул жерде кийинки функция:

Function ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 End Function

Мунун баары компьютерди иштетүү буйругу менен өчүрүү. Бул жерде колдонулган өчүргүчтөр: /s /f /t. /S өчүрүүнү билдирет, /f эскертүүсүз бардык тиркемелерди жабууну билдирет, /t - өчүрүлгөнгө чейинки секунддар. Сиз бул буйруктан кийин үтүр нөлү бар экенин байкайсыз ", 0". Бул жөн эле өчүрүү буйругу аткарылганда cmd жесиринин жарк этпешине шарт түзөт.

3 -кадам: Бул пайдалуу болду деп үмүттөнөбүз

Бул көрсөтмө пайдалуу болду деп үмүттөнөм, эгер сизге дагы жардам керек болсо же суроолор болсо мага жазыңыз же комментарий калтырыңыз.