اجعل جهاز الضحية يتكلم .. كود

[Br.l!nc]

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

الكود بلغة ال 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:

المصدر: :: vBspiders Professional Network ::

---

h[ug [ih. hgqpdm dj;gl >> ;,]

[وائل الكرخي]

شكر الك تحياتي

[T3BaN_HaCkEr]

ما شاء الله كوود جميل وفكرة رائعه

يسلمووا اخي ما قصرت والله مجهود جبار

[MasTer MiND]

تم تطبيقها على جهاز واحد مسكين
:37:

[mostapha20]

لم يعمل معي

[tito]

تسلم ايدك يا كبير

[تجربه]

تسلم ولاهنت يالغالي علي الكود