السلام عليكم ..
ما رأيك بفيروس الكتابة ؟
في هذه الخدعة , سنريك كيفية صناعة ملف يقوم بكتابة جملة او عبارة بشكل متتابع دون ان يقف ابدا , يكتبها في اي مكان , فور ان تعطيه الفرصة للكتابة , حقا هذه الخدعة ستجنن كل من سيقوم بها .. ههه , لنكتشف الاكواد :
اول شيئ نفتح ملف Notepad جديد و خالي , و نكتب الكود التالي :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Hacked By TH3PC "
loop
do
wscript.sleep 100
wshshell.sendkeys "Hacked By TH3PC "
loop
بعد ان تقوم بنسخه في ملف Notepad , قم بحفظه على امتداد vbs مثل : VirusWrite.vbs
و اضغط عليه مرتين لتصاب بالجنون ههه ,
ملاحظة : لايقاف الكتابة , عليك باعادة تشغيل جهازك , لذلك تأكد من اغلاقك لكل البرامج المهمة بالنسبة لك قبل تجريبها .
ملاحظة : يمكنك تغيير Hacked By TH3PC باي عبارة تريدها ان تكتب بشكل مستمر .
ما رأيك ان نجعل حاسوبك يتحدث ؟
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا :
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية :
الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة
يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello TH3PC , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D .
في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع .
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D
و اضغط عليه مرتين لتصاب بالجنون ههه ,
ملاحظة : لايقاف الكتابة , عليك باعادة تشغيل جهازك , لذلك تأكد من اغلاقك لكل البرامج المهمة بالنسبة لك قبل تجريبها .
ملاحظة : يمكنك تغيير Hacked By TH3PC باي عبارة تريدها ان تكتب بشكل مستمر .
ما رأيك ان نجعل حاسوبك يتحدث ؟
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا :
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية :
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة
يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello TH3PC , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D .
في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع .
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D
إرسال تعليق
تذكر قوله تعالى:
(( مَا يَلْفِظُ مِنْ قَوْلٍ إِلَّا لَدَيْهِ رَقِيبٌ عَتِيدٌ))
----------------------------------
الان يمكنك اضافة اي مقطع فيديو الى التعليقات وايضا اضافة الصور فقط ضع رابط الصور او مقطع الفيديو في التعليقات
----------------------------------
آرائكم تسعدنا, لمتابعة التعليق حتى نرد عليك فقط ضع إشارة على إعلامي
----------------------------------
* بإمكانك إدراج الأكواد الغير قابلة للنشر بتحويله عبر محول الأكواد