Prank ya Kuzima Kompyuta ya Mwisho: 3 Hatua

2025 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2025-01-23 15:11

Hii ni hati ya kuzima ya.vbs ambayo nilifanya kama prank. Sababu ni nzuri sana, ni kwa sababu badala ya kuzima kompyuta mara moja, kompyuta inazungumza na wewe, ikikuonya kuwa kompyuta itazimika kwa sekunde 10, kisha inaonyesha uhuishaji kidogo ukihesabu sekunde 5 zilizopita kabla ni kuzima kompyuta.

Napenda pia kuiunda kwa.exe kutumia kibadilishaji, lakini sio lazima ufanye hivi. Tazama vbs Screen Lock yangu, ikiwa ungependa kujua jinsi ya kufanya hivyo. Pia kuna viungo kadhaa vya wahariri wa vbs pia katika hiyo inayoweza kufundishwa.

Lakini Tofauti na kufuli kwangu kwa skrini, mpango huu ni mfupi sana, kwa hivyo nitajaribu kuelezea vizuri zaidi ninavyoweza.

KUMBUKA: Ikiwa haujui vbs tayari, ninapendekeza uangalie hii inayoweza kufundishwa ili uwe na uelewa wa kimsingi wa kazi zinazotumika ni hati hii.

Hatua ya 1: Hati yangu…

Huu ndio hati..

Utalazimika kufuta moja ya "s" mwishowe ili iishie kwa "Shutdown.vbs" au kile unachotaka kwa muda mrefu kama itaisha katika.vbs.

Hatua ya 2: Hati yangu (maelezo)…

Kwa hivyo ujue nitaelezea nambari hiyo…

Mstari wa kwanza haufanyi sana, ilinisaidia tu wakati nilikuwa naunda hati. Hapa kuna mistari mitatu ifuatayo:

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

Mstari wa kwanza wa nambari unatangaza ubadilishaji ambao tutatumia kudhibiti ni kwa … Kitanzi kinachofuata. Mistari miwili inayofuata ya nambari inatangaza na kuweka vigeuzi 2. objWshShl hutumiwa kwa kisanduku cha ujumbe na kuendesha kazi. objVoice hutumiwa kutengeneza kompyuta "kuongea".

Hapa kuna mistari mingine mitatu:

Onyo la kuzima () Muda wa Ujumbe wa Sauti () Kuzima Kompyuta ()

Mistari hii inaita tu kazi tatu ambazo ziko kwenye hati yetu.

Hapa kuna kazi ya kwanza katika ni script.

Kuzima kwa Kazi Onyo la objVoice. Zungumza "Kompyuta hii sasa itazimwa kwa sekunde 10." WScript. Sleep 5000 Mwisho Kazi

Hatuhitaji kazi katika hati yetu, lakini inasaidia tu kuweka mambo kupangwa.

Kwa hivyo hii yote inafanya kusema sentensi kati ya nukuu na kisha kusitisha kwa sekunde 5 kabla ya kuendelea na kazi inayofuata.

Sehemu hii inayofuata inaweza kuonekana kuwa ngumu lakini ni rahisi kuelewa:

Kazi TimedMessageBox Kwa IntCounter = 5 Kwa 1 Hatua -1 objWshShl. Popup "Kompyuta itazima katika" _ & IntCounter & "sekunde", 1, "Kuzima Kompyuta", 0 + 48 Kazi ya Mwisho Inayofuata

Kwa hivyo kwanza inaunda kazi inayoitwa TimedMessageBox.

Kisha mistari 4 inayofuata ni Ya … Kitanzi Kifuatacho. Kwa hivyo kitanzi hiki kitazunguka mara tano kwenda chini kwa moja kila wakati.

objWshShl. Popup "Kompyuta itazimwa kwa" _ & IntCounter & "sekunde", 1, "Kuzima Kompyuta", 0 + 48

Nambari hii ni laini moja tu ya nambari, imegawanywa tu kuwa laini nyingine kwa kutumia herufi "_" ili iwe rahisi kusoma. Nambari hii inafanya nini inaunda ujumbe wa kidukizo ambao hudumu kwa sekunde 1 kuonyesha kiwango cha sekunde kushoto hadi kuzima kwa kutumia kutofautisha kwa IntCounter.

Mara kitanzi hiki kinapotea mara tano, inaendelea na hati.

Hapa kuna kazi inayofuata:

Kuzima kwa kaziKompyuta objWshShl. Kimbia "Shutdown / s / f / t 0", 0 End Function

Yote hii hufanya kuzima kompyuta kwa kutumia amri ya kukimbia. Hapa kuna swichi zilizotumiwa: / s / f / t. / S inamaanisha kuzima, / f inamaanisha kufunga programu zote bila onyo, / t ni wakati kwa sekunde kabla ya kuzima. Utaona baada ya amri hiyo kuna nambari ya koma ", 0". Hii inafanya tu kwamba hakuna mjane wa cmd anayeangaza wakati amri ya kuzima inatekelezwa.

Hatua ya 3: Natumahi Hii Ilikuwa Msaada

Natumahi hii inayoweza kufundishwa ilisaidia ikiwa unahitaji msaada wowote zaidi au una maswali yoyote tafadhali nirudie au acha maoni.