صنع فيروس ينطق باسمك

كيف حالكم ياا ابطال
جايب لكم اليوم
طريقة صنع فيروس متكلم والمصيبة يقول
ما تكتبه انت
__________________________________________________ _
المهم دون اطالة ندخل صلب الموضوع
__________________________________________________
___
اولا افتح النوتباد Notepad ثم اكتب هذا الكود
__________________________________________________ ___

StrText = ("hasoon")
Set Objvoice = CreateObject("SapI.Spvoice")
ObjVoice.Speak strText
__________________________________________________
___

ثم احفظه باي اسم تريد لكن بامتداد VBS مثال :
Virus.VBS

__________________________________________________
___
ثم شغله واسمع الصوت
يقول hasoon (تستطيع تجربته على جهازك ...هو غير ضار)
__________________________________________________ ___
اذا اردت ان تغير
الكلام احذف hasoon واكتب الكلام الذي تريده ولكن ضعه بين "" ليعمل و كدلك اكتب
بالفرنسية او الاجليزية لا العربية
وأخيــــــــــــــــــــرا وليس
آخرا انتهى