الســـلام عليكم ورحمة الله وبركاته
الان سوف اريكم كيف تصنعون فيروس متكلم
ربما البعض سمع به لكن في الاعادة إفادةاولا افتح النوتباد Notepad أو المفكرة ثم اكتب هذا الكود
-----------------------------------------------
StrText = ("Virus Found")
Set Objvoice = CreateObject("SapI.Spvoice")
ObjVoice.Speak strText
----------------------------------------------
ثم احفظه باي اسم تريد لكن بامتداد VBS مثال
محمد الصديق.VBS
ثم شغله واسمع الصوت يقول Virus Found
اذا اردت ان تغير الكلام احذف Virus Found واكتب الكلام الذي تريده ولكن ضعه بين "" ليعمل
ملاحظة/هذا ةالفيروس غير ضار إلا أنه خدعة لترسله لأصدقائك
السبت أبريل 09, 2011 9:20 am
