قرائة الحاسوب لأي شيئ تطلب منه قرائته
وهذه الخدغة عبارة عن برنامج صغير تكتب به شيئ بالإنجليزية ثم يقرئه وللقيام بها تتبع الخطوات التالية :
1.إفتح مذكرة الوندوز ثم قم بنسخ هذا الكود والصقه في المذكرة
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me | By TH3 Geek")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
2.ثم خزن الملف بإسم CT.vbs وإختر في Type الخيار Tous les fichiers أو All Files
3.و آخيرا إفتح الملف ثم اُكتب ماتريده بالإنجليزي و إضغط على Ok، ثم سيقوم الحاسوب بقرائته
جعل أضوائ الكيبورد تنير بتنواب دون إنقطاع
في هذه الخدعة سوف تنير مصابيح الكيبورد بتناوف دون إنقطاع، وللقيام بهذه الخدعة إتبع الخطوات التالية :
1.إفتح مذكرة الوندوز ثم قم بنسخ هذا الكود والصقه في المذكرة
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
2.ثم خزن الملف بإسم Keyboard.vbs وإختر في Type الخيار Tous les fichiers أو All Files
3.قم بفتح الملف ثم ستبدأ الأضوائ بالإنارة
ولإيقاف هذه العملية إضغط على Ctrl+Alt+Delete في آن واحد ثم إذهب إلى Processus و إبحث على wscript.exe ثم أنقر عليها وإضغط على terminer le processus وهكذا ستتوقف العملية
فتح مذكرة جديدة وكتابة كلمات لوحدها
في هذه الخدعة سوف تفتح مذكرة جديدة و تكتب فيها TH3 Geek ويمكنك إستبدال TH3 Geek بالكملة التي تريدها، وللقيام بهذه الخدعة إتبع الخطوات التالية:
1.إفتح مذكرة الوندوز ثم قم بنسخ هذا الكود والصقه في المذكرة
set wshshell = wscript.CreateObject("wScript.Shell")
wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "T"
wscript.sleep 100
wshshell.sendkeys "h"
wscript.sleep 120
wshshell.sendkeys "3"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "G"
wscript.sleep 140
wshshell.sendkeys "e"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 50
wshshell.sendkeys "k"
wscript.sleep 120
2.ثم خزن الملف بإسم CTy.vbs وإختر في Type الخيار Tous les fichiers أو All Files
3..إذهب لمكان الملف ثم أنقر عليه مرتين ،وستفتح مذكرة, ثم ستكتب الكلمة
جعل قارئ أسطوانات الحاسوب يُفتح ويغلق لوحده بدون توقف
في هذه الخدعة سوف يبقى قارئ الأسطوانات يفتح ويغلق لوحده ودون توقف، ولتنفيذها إتبع الخطوات التالية:
1.إفتح مذكرة الوندوز ثم قم بنسخ هذا الكود والصقه في المذكرة
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
2.ثم خزن الملف بإسم CD.vbs وإختر في Type الخيار Tous les fichiers أو All Files
2.وهكذا سيبقى يفتح ويغلق، ولإيقافه إتبع نسف الخطوات في خدعة أضوائ الكيبورد.
إخفائ مجلد و عدم إظهاره إلا بعد كتابة كلمة المرور
في هذه الخدعة ستسطيع إخفائ مجلد ولن يظهر إلا بعد كتابة الكلمة السرية، ولتنفيذ هذه الخدعة إتبع الخطوات التالية :
1.إفتح مذكرة الوندوز ثم قم بنسخ هذا الكود والصقه في المذكرة
@ECHO OFF
title Folder Locker By TH3 Geek
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST MyFolder goto MDMyFolder
:CONFIRM
echo Are you sure to lock this folder? (Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren MyFolder "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to Unlock Your Secure Folder
set/p "pass=>"
if NOT %pass%== TH3Geekgoto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" MyFolder
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDMyFolder
md MyFolder
echo MyFolder created successfully
goto End
:End
2.ثم خزن الملف بإسم Locker.bat وإختر في Type الخيار Tous les fichiers أو All Files
3..إفتح الملف ثم سيتم صنع مجلد جديد بإسم TH3Geek
4.ضع الملفات التي تريد إخفائها في المجلد ثم إظغط مرة ثانية على الملف ( Locker.bat )
5.أكتب Y ثم إظغط على أنتر، وهكذا قد تم إخفائ الملف، ولإعادته إفتح الملف ثم أكتب الكمة السرية : TH3Geek ،وسوف يظهر الملف
