การเล่นตลกปิดคอมพิวเตอร์ขั้นสูงสุด: 3 ขั้นตอน

2024 ผู้เขียน: John Day | [email protected]. แก้ไขล่าสุด: 2024-01-30 13:03

นี่คือสคริปต์การปิดระบบ.vbs ที่ฉันทำขึ้นเพื่อเป็นการแกล้ง ที่เจ๋งมากเพราะแทนที่จะปิดเครื่องทันที คอมพิวเตอร์จะพูดกับคุณ เตือนคุณว่าคอมพิวเตอร์จะปิดใน 10 วินาที จากนั้นจะแสดงแอนิเมชั่นเล็กๆ น้อยๆ นับถอยหลัง 5 วินาทีสุดท้ายก่อน มันปิดเครื่องคอมพิวเตอร์

ฉันยังต้องการคอมไพล์เป็น.exe โดยใช้ตัวแปลง แต่คุณไม่จำเป็นต้องทำเช่นนี้ ดู vbs Screen Lock ของฉัน หากคุณต้องการทราบวิธีการทำสิ่งนี้ นอกจากนี้ยังมีลิงก์สำหรับตัวแก้ไข vbs ด้วยเช่นกันในคำแนะนำนั้น

แต่โปรแกรมนี้สั้นกว่าการล็อกหน้าจอของฉันมาก ดังนั้นฉันจะพยายามอธิบายให้ดีที่สุด

หมายเหตุ: หากคุณยังไม่รู้จัก vbs ฉันขอแนะนำให้ตรวจสอบคำแนะนำนี้ เพื่อให้คุณมีความเข้าใจพื้นฐานเกี่ยวกับฟังก์ชันบางอย่างที่ใช้คือสคริปต์นี้

ขั้นตอนที่ 1: สคริปต์ของฉัน…

นี่สคริป..

คุณจะต้องลบ "s" ตัวใดตัวหนึ่งที่อยู่ท้ายสุดเพื่อให้ลงท้ายด้วย "Shutdown.vbs" หรืออะไรก็ได้ที่คุณต้องการตราบใดที่มันลงท้ายด้วย.vbs

ขั้นตอนที่ 2: สคริปต์ของฉัน (คำอธิบาย)…

ให้รู้ว่าฉันจะอธิบายรหัส …

บรรทัดแรกไม่ได้ช่วยอะไรมาก แค่ช่วยฉันตอนที่ฉันกำลังสร้างสคริปต์ นี่คือสามบรรทัดถัดไป:

Dim IntCounterDim objWshShl: ตั้งค่า objWshShl = WScript. CreateObject("wscript.shell") Dim objVoice: ตั้งค่า objVoice = WScript. CreateObject("sapi.spvoice")

โค้ดบรรทัดแรกประกาศตัวแปรที่เราจะใช้เพื่อควบคุมคือ For…Next Loop โค้ดสองบรรทัดถัดไปจะประกาศและตั้งค่าตัวแปร 2 ตัว objWshShl ใช้สำหรับกล่องข้อความและเรียกใช้ฟังก์ชัน objVoice ใช้เพื่อทำให้คอมพิวเตอร์ "พูด"

นี่คืออีกสามบรรทัด:

ShutdownWarning()TimedMessageBox() ShutdownComputer()

บรรทัดเหล่านี้เป็นเพียงการเรียกใช้ฟังก์ชันทั้งสามที่อยู่ในสคริปต์ของเรา

นี่คือฟังก์ชันแรกในสคริปต์

ฟังก์ชัน ShutdownWarning objVoice. Speak "คอมพิวเตอร์เครื่องนี้จะปิดใน 10 วินาที" WScript. Sleep 5000 End Function

เราไม่ต้องการฟังก์ชันในสคริปต์ของเราจริงๆ แต่ช่วยให้จัดระเบียบสิ่งต่างๆ ได้

ทั้งหมดนี้คือพูดประโยคระหว่างเครื่องหมายคำพูดแล้วหยุดเป็นเวลา 5 วินาทีก่อนดำเนินการต่อไปยังฟังก์ชันถัดไป

ส่วนต่อไปนี้อาจดูยุ่งยาก แต่จริงๆ แล้วค่อนข้างเข้าใจง่าย:

ฟังก์ชัน TimedMessageBox สำหรับ IntCounter = 5 ถึง 1 ขั้นตอน -1 objWshShl. Popup "คอมพิวเตอร์จะปิดใน " _ & IntCounter & " วินาที", 1, "ปิดเครื่องคอมพิวเตอร์", 0+48 ฟังก์ชันสิ้นสุดถัดไป

ขั้นแรก มันสร้างฟังก์ชันที่เรียกว่า TimedMessageBox

จากนั้น 4 บรรทัดถัดไปคือ For…Next Loop ดังนั้นการวนซ้ำนี้จะวนซ้ำห้าครั้งโดยลดลงครั้งละหนึ่งครั้ง

objWshShl. Popup "คอมพิวเตอร์จะปิดใน " _ & IntCounter & " วินาที", 1, "ปิดเครื่องคอมพิวเตอร์", 0+48

รหัสนี้เป็นโค้ดเพียงบรรทัดเดียวเท่านั้น โดยแยกเป็นอีกบรรทัดหนึ่งโดยใช้อักขระ "_" เพื่อให้อ่านง่ายขึ้น รหัสนี้ทำอะไรคือสร้างข้อความป๊อปอัปที่ใช้เวลา 1 วินาทีเพื่อแสดงจำนวนวินาทีที่เหลือจนกว่าจะปิดเครื่องโดยใช้ตัวแปร IntCounter

เมื่อวนซ้ำนี้วนซ้ำห้าครั้ง สคริปต์จะดำเนินต่อไป

นี่คือฟังก์ชันถัดไป:

ฟังก์ชัน ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 End Function

ทั้งหมดนี้คือปิดเครื่องคอมพิวเตอร์โดยใช้คำสั่งเรียกใช้ นี่คือสวิตช์ที่ใช้: /s /f /t /s หมายถึงปิดเครื่อง /f หมายถึงปิดแอปพลิเคชันทั้งหมดโดยไม่มีการเตือน /t คือเวลาเป็นวินาทีก่อนปิดเครื่อง คุณจะสังเกตเห็นหลังจากคำสั่งนั้นมีเครื่องหมายจุลภาคศูนย์ ", 0" สิ่งนี้ทำให้ไม่มี cmd widow กะพริบเมื่อดำเนินการคำสั่ง shutdown

ขั้นตอนที่ 3: หวังว่านี่จะเป็นประโยชน์

หวังว่าคำแนะนำนี้จะเป็นประโยชน์หากคุณต้องการความช่วยเหลือเพิ่มเติมหรือมีคำถามใด ๆ โปรด pm หรือแสดงความคิดเห็น