السلام عليكم ورحمة ورحمة الله وبركاته
الكود بلغة ال 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 وترفعه بجهاز
الضحية وتشغله ...
سهلة الخطوات صح ..
طيب مثلن انت حابب تخليه
يتكلم بسرعه او ببطء
نضيف على الكود هذا الامر
يعني الكود يصبح شكله
كود:
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) على كيفك ايضا ..
حمدلله للحين الامور واضحة وكل شي تمام
لو حبيت انا اخلي جهازه يضل يعيد الكلام ... يعني
يتكلم ويعيد الجملة اللي كتبتها بدون توقف
تضيف هذا الامر على الكود ..
تضعها في اول الكود ,,, و 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:
h[ug [ih. hgqpdm dj;gl >> ;,]