!وٍهہٍ’َِ)اِْ(‘َِ’ـٍمہ!
07-10-2009, 01:16 PM
الســـلام عليكم ورحمة الله وبركاته
الان سوف اريكم كيف تصنعون فيروس متكلم
اولا افتح النوتباد Notepad ثم اكتب هذا الكود
-----------------------------------------------
Str**** = ("Virus Found")
Set Objvoice = CreateObject("SapI.Spvoice")
ObjVoice.Speak str****
----------------------------------------------
ثم احفظه باي اسم تريد لكن بامتداد VBS مثال Virus.VBS
ثم شغله واسمع الصوت يقول Virus Found
اذا اردت ان تغير الكلام احذف Virus Found واكتب الكلام الذي تريده ولكن ضعه بين "" ليعمل
لاحد يخاف الكود بس للكلام مو فيروس
جربوا وشوفوا لا تخافو
الان سوف اريكم كيف تصنعون فيروس متكلم
اولا افتح النوتباد Notepad ثم اكتب هذا الكود
-----------------------------------------------
Str**** = ("Virus Found")
Set Objvoice = CreateObject("SapI.Spvoice")
ObjVoice.Speak str****
----------------------------------------------
ثم احفظه باي اسم تريد لكن بامتداد VBS مثال Virus.VBS
ثم شغله واسمع الصوت يقول Virus Found
اذا اردت ان تغير الكلام احذف Virus Found واكتب الكلام الذي تريده ولكن ضعه بين "" ليعمل
لاحد يخاف الكود بس للكلام مو فيروس
جربوا وشوفوا لا تخافو