:: vBspiders Professional Network :: - اجعل جهاز الضحية يتكلم .. كود

السلام عليكم ورحمة ورحمة الله وبركاته

الكود بلغة ال vbs وهو بعيد جدا عن التعقيد ...
1- اول شي طبعا روح سوي مستند نصي جديد

2- هذا هو الكود

كود:

StrText=("هنا تكتب ماتريد ان تقول بالانجليش") 

set ObjVoice = CreateObject("SAPI.SpVoice") 

ObjVoice.Speak StrText

والكتابة يجب بالانجليش وليس بالعربي .. لانها لغه من صنعوا الحاسب الالي ولهم الحق في ذلك
مثلن تريد ان تجعل الجهاز يقول ..:
((هذا الجهاز تم اختراقه من قبل Br.l!nc)) =بالانجليش=((this computer has been hacked by Br.l!nc))

يعني يصير الكود كالتالي

كود:

StrText=("this Computer has been hacked by Br.l!nc") 

set ObjVoice = CreateObject("SAPI.SpVoice") 

ObjVoice.Speak StrText

وتحفظ الملف بصيغة vbs وترفعه بجهاز الضحية وتشغله ...
سهلة الخطوات صح ..
طيب مثلن انت حابب تخليه يتكلم بسرعه او ببطء
نضيف على الكود هذا الامر

كود:

ObjVoice.Rate=100

يعني الكود يصبح شكله

كود:

StrText=("this Computer has been hacked by Br.l!nc") 

set ObjVoice = CreateObject("SAPI.SpVoice") 

ObjVoice.Rate=100 

ObjVoice.Speak StrText

^^توضيح بسيط^^
الامر ((ObjVoice.Rate=100)) يجعله يتكلم بسرعه صاروخية وماحد يقدر يفهم عليه .. لاني شوف انا حاطط بعد اليساوي 100 .. وهذا فقط للتوضيح ..
للنطق الطبيعي يجب ان تحط بعد اليساوي صفر يعني ((ObjVoice.Rate=0))
واذا حبيت تخليه يتكلم في بطئ حط بعد اليساوي (سالب واحد =-1 او -2 او -3 ) على كيفك
واذا حبيت تسرعه تحط (=1 او =2 او =3) على كيفك ايضا ..
حمدلله للحين الامور واضحة وكل شي تمام

لو حبيت انا اخلي جهازه يضل يعيد الكلام ... يعني يتكلم ويعيد الجملة اللي كتبتها بدون توقف

تضيف هذا الامر على الكود ..

كود:

do و loop

تضعها في اول الكود ,,, و loop تضعها في اخر الكود
يعني شكل الكود رح يسير كالتالي

كود:

StrText=("this Computer has been hacked by Br.l!nc") 

set ObjVoice = CreateObject("SAPI.SpVoice") 

ObjVoice.Rate=-4 

ObjVoice.Speak StrText 

Loop

وفي الاخر تحفظ الملف بصيغة vbs وترفعه لجهاز الضحية ..

سلام :37::37::37: