طريقة صنع فيروس متكلم

سلام عليكم شباب

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

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

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

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

thanks[i][u] affraid

wa la7fdak Smile