عزیز واسه این کار از : 1 GO TO > run 2typing > msconfig 3Startup در صفحه باز شده به آخرین تب برو 4به جز این برنامه ها تیک بقیه را بردار : AGRSMMGS ctfmon اگه آنتی ویروس محبوب ناد رو داری: egui 5 به جز این برنامه ها که گفتم تیک کناربقیه شونو بردار بعد سیستمتو ریستارت کن با این کار دیگه ویروس بالا نمیاید 6 حالا باید فولدر اپشن وبقیه چیز هارو برگردونیم سر جاش : 7 حالا نتپد رو باز کن و متن زیر رو کوپی کن و با پسوند وی بی اس ذخیره کن : Option Explicit Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers Dim enab, disab, jobfunc, itemtype Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\" p = p & "DisableTaskMgr" itemtype = "REG_DWORD" mustboot = ""& vbCR &" .:. *** کنید log off برای انجام تغییرات یکبار ***" & vbCR & ""& vbCR & "COPYRIGHTVAHID Asadi=>Ir02x6 ©" enab = " برنامه را دوباره اجراکنید Taskmanager هم اکنون فعــ*ــال شد برای غیر فعال کردن Taskmanager " disab = "برنامه را دوباره اجرا کنید Taskmanager هم اکنون غیرفعــــال شد برای فعال کردن Taskmanager " jobfunc = "" t = "vV.:::::.. Ir02X6 ..:::::.Vv" Err.Clear On Error Resume Next n = WSHShell.RegRead (p) On Error Goto 0 errnum = Err.Number if errnum <> 0 then WSHShell.RegWrite p, 0, itemtype End If If n = 0 Then n = 1 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) End If با این کار تسک منجر را میافته 8 حالا فعال کردن رجیستری Option Explicit Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers Dim enab, disab, jobfunc, itemtype Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\" p = p & "DisableRegistryTools" itemtype = "REG_DWORD" mustboot = ""& vbCR &" .:. *** کنید log off برای انجام تغییرات یکبار ***" & vbCR & ""& vbCR & "COPYRIGHTVAHID Asadi=>Ir02x6 ©" enab = " فعــ*ــال شد برای غیر فعال کردن رجیستری برنامه را دوباره اجراکنید" disab = "غیرفعــــال شد برای فعال کردن رجیستری برنامه را دوباره اجراکنید" jobfunc = "رجیستری هم اكنون " t = "vV.:::::.. Ir02x6 ..:::::.Vv" Err.Clear On Error Resume Next n = WSHShell.RegRead (p) On Error Goto 0 errnum = Err.Number if errnum <> 0 then WSHShell.RegWrite p, 0, itemtype End If If n = 0 Then n = 1 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) End If 9 بعد از فعال شدن رجیستری برو به رجیستری و فولدر اپشنتو فعال کن