Компьютерийг хаах эцсийн тоглоом: 3 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:01

Энэ бол миний тоглоом болгож хийсэн.vbs унтраах скрипт юм. Яагаад ийм дажгүй болсон бэ гэвэл, компьютерийг шууд унтраахын оронд компьютер тантай ярьж, 10 секундын дараа компьютер унтрах болно гэдгийг анхааруулж, сүүлийн 5 секундын өмнөх тоолж буй жижиг хөдөлгөөнт дүрс харуулжээ. энэ нь компьютерийг унтраадаг.

Би үүнийг хөрвүүлэгч ашиглан.exe болгон хөрвүүлэх дуртай, гэхдээ та үүнийг хийх шаардлагагүй. Хэрэв та үүнийг хэрхэн хийхийг мэдэхийг хүсвэл vbs Screen Lock -ийг үзнэ үү. Vbs редакторуудад зориулсан зарим холбоосууд бас байдаг.

Гэхдээ миний дэлгэцийн түгжээнээс ялгаатай нь энэ програм нь маш богино тул би үүнийг хамгийн сайн тайлбарлахыг хичээх болно.

ТАЙЛБАР: Хэрэв та vbs -г мэдэхгүй байгаа бол энэхүү зааварчилгааг үзэхийг зөвлөж байна, ингэснээр ашигласан зарим функцуудын талаар энэ скриптийг ойлгох болно.

Алхам 1: Миний скрипт…

Энд скрипт байна..

Та "Shutdown.vbs" эсвэл дууссан л бол хүссэн зүйлээ дуусгахын тулд төгсгөлд байгаа "s" -г устгах хэрэгтэй болно.vbs дээр дууссан л бол.

Алхам 2: Миний скрипт (тайлбар) …

Тиймээс би кодыг тайлбарлах болно гэдгийг мэдэж аваарай …

Эхний мөр нь тийм ч сайн зүйл хийхгүй, энэ нь скриптийг бүтээж байхад надад тусалсан юм. Дараагийн гурван мөрийг энд оруулав.

Dim IntCounterDim objWshShl: objWshShl = WScript. CreateObject ("wscript.shell") Бүсгүй objVoice: objVoice = WScript. CreateObject ("sapi.spvoice") тохируулна уу.

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

Энд өөр гурван мөр байна:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Эдгээр мөрүүд нь бидний скриптэд байдаг гурван функцийг л дуудаж байна.

Энд скрипт дэх анхны функц байна.

Функц ShutdownWarning objVoice. Speak "Энэ компьютер одоо 10 секундын дараа унтрах болно." WScript. Sleep 5000 төгсгөлийн функц

Бидэнд скриптэд функц үнэхээр хэрэггүй, гэхдээ энэ нь аливаа зүйлийг эмх цэгцтэй байлгахад тусалдаг.

Тиймээс энэ бүхэн нь өгүүлбэрийг ишлэлүүдийн хооронд хэлж, дараа нь 5 секундын турш түр зогсоож дараагийн функцийг үргэлжлүүлэх болно.

Дараагийн хэсэг нь нэлээд төвөгтэй мэт санагдаж магадгүй ч үүнийг ойлгоход маш хялбар байдаг.

IntCounter = 5 -аас 1 алхам хүртэл TimedMessageBox функц -1 objWshShl. Popup "Компьютер" _ & IntCounter & "секунд", 1, "Компьютер унтрах", 0+48 Дараагийн төгсгөлийн функц дотор унтрах болно.

Тиймээс эхлээд TimedMessageBox нэртэй функцийг бий болгодог.

Дараа нь дараагийн 4 мөр нь For… Next Loop болно. Тиймээс энэ давталт нь тус бүрдээ нэг удаа таван удаа уруудах болно.

objWshShl. Popup "Компьютер" _ & IntCounter & "seconds", 1, "Computer Shutdown", 0+48 дотор унтрах болно.

Энэ код нь үнэндээ зөвхөн нэг мөрийн код бөгөөд уншихад хялбар болгох үүднээс "_" тэмдэгт ашиглан өөр мөрөнд хуваасан болно. Энэ код нь юу хийдэг вэ гэхээр 1 секундын турш үргэлжлэх цонх гарч ирэх бөгөөд IntCounter хувьсагчийг ашиглан унтрах хүртэл үлдсэн секундын хэмжээг харуулна.

Энэ давталт таван удаа давтагдсаны дараа скриптээр үргэлжлүүлнэ.

Дараагийн функц энд байна:

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

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

Алхам 3: Энэ нь тусалсан гэж найдаж байна

Энэхүү зааварчилгаа танд хэрэгтэй байсан гэж найдаж байна, хэрэв танд өөр тусламж хэрэгтэй бол, эсвэл надад ямар нэг асуулт байвал надтай холбоо бариарай эсвэл сэтгэгдэл үлдээнэ үү.