ﺻﻨﻊ ﻓﻴﺮﻭﺱ ﻳﻨﻄﻖ ﺑﺎﺳﻤﻚ ﻓﻲ ﺟﻬﺎﺯ ﺍﻟﻀﺤﻴﺔ

ﻛﻴﻒ ﺣﺎﻟﻜﻢ ﻳﺎﺍ ﺍﺑﻄﺎﻝ
ﺟﺎﻳﺐ ﻟﻜﻢ ﺍﻟﻴﻮﻡ
ﻃﺮﻳﻘﺔ ﺻﻨﻊ ﻓﻴﺮﻭﺱ ﻣﺘﻜﻠﻢ ﻭﺍﻟﻤﺼﻴﺒﺔ
ﻳﻘﻮﻝ
ﻣﺎ ﺗﻜﺘﺒﻪ ﺍﻧﺖ
__________________________________________________
_
ﺍﻟﻤﻬﻢ ﺩﻭﻥ ﺍﻃﺎﻟﺔ ﻧﺪﺧﻞ ﺻﻠﺐ
ﺍﻟﻤﻮﺿﻮﻉ
__________________________________________________
___
ﺍﻭﻻ ﺍﻓﺘﺢ ﺍﻟﻨﻮﺗﺒﺎﺩ Notepad ﺛﻢ ﺍﻛﺘﺐ
ﻫﺬﺍ ﺍﻟﻜﻮﺩ
__________________________________________________
___
StrText = ("hasoon")
Set Objvoice = CreateObject
("SapI.Spvoice")
ObjVoice.Speak strText
__________________________________________________
___
ﺛﻢ ﺍﺣﻔﻈﻪ ﺑﺎﻱ ﺍﺳﻢ ﺗﺮﻳﺪ ﻟﻜﻦ ﺑﺎﻣﺘﺪﺍﺩ
VBS ﻣﺜﺎﻝ :
Virus.VBS
__________________________________________________
___
ﺛﻢ ﺷﻐﻠﻪ ﻭﺍﺳﻤﻊ ﺍﻟﺼﻮﺕ
ﻳﻘﻮﻝ ) hasoonﺗﺴﺘﻄﻴﻊ ﺗﺠﺮﺑﺘﻪ ﻋﻠﻰ
ﺟﻬﺎﺯﻙ ...ﻫﻮ ﻏﻴﺮ ﺿﺎﺭ(
__________________________________________________
___
ﺍﺫﺍ ﺍﺭﺩﺕ ﺍﻥ ﺗﻐﻴﺮ
ﺍﻟﻜﻼﻡ ﺍﺣﺬﻑ hasoon ﻭﺍﻛﺘﺐ ﺍﻟﻜﻼﻡ
ﺍﻟﺬﻱ ﺗﺮﻳﺪﻩ ﻭﻟﻜﻦ ﺿﻌﻪ ﺑﻴﻦ "" ﻟﻴﻌﻤﻞ
ﻭ ﻛﺪﻟﻚ ﺍﻛﺘﺐ
ﺑﺎﻟﻔﺮﻧﺴﻴﺔ ﺍﻭ ﺍﻻﺟﻠﻴﺰﻳﺔ ﻻ ﺍﻟﻌﺮﺑﻴﺔ
ﻭﺃﺧﻴــــــــــــــــــــﺮﺍ ﻭﻟﻴﺲ
ﺁﺧﺮﺍ ﺍﻧﺘﻬﻰ