مقالب الحلقة الاخيرة باستخدام اكواد vbs والحل الوحيد لانهائها هو فتح مدير المهام Task Manager بالضغط على alt+ctrl+del ثم من processes نختار wscript وكليك يمين عليها واختيار انهاء العملية End Task
المقلب الثامن:
خلى مفتاح CapsLock ينور ويطفى على طول!!!!
افتح ملف نوتباد جديد واكتب فيه :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
المقلب الثامن:
خلى مفتاح CapsLock ينور ويطفى على طول!!!!
افتح ملف نوتباد جديد واكتب فيه :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
احفظ الملف الجديد باسم capslock.vbs اهم حاجة فى الاسم هى الامتداد وهو vbs. وبعدين دبل كليك على الملف الجديد هتلاقى مفتاح CapsLock شغال ينور ويطفى لوحده !!!!!!!!!!!!!!
وده ملف جاهز للتحميل من هنـــــــــــــــــــــا
المقلب التاسع:
وده ملف جاهز للتحميل من هنـــــــــــــــــــــا
المقلب التاسع:
مقلب زر التراجع او الــ Backspace اللى هيخلى الواحد كل ما يفتح فولدر معين يرجعهه الى الفولدر اللى قبله وكأن زر التراجع backspace معلق فى الكيبورد
افتح ملف نوتباد جديد واكتي فيه الاتى:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
بعد كده نحفظ الملف باسم backspace.vbs مثلا ومننساش الامتداد vbs
الملف جاهز للتحميل من هنـــــــــــــــــــــــا
المقلب العاشر:
مقلب مفتاح الادخال او الــ Enter اللى كل ما الواحد يجى يحرك الماوس عليها تفتح وكأن هنا مفتاح الانتر مضغوط عليه
افتح ملف نوتباد جديد واكتب فيه الكود الاتى:
مقلب مفتاح الادخال او الــ Enter اللى كل ما الواحد يجى يحرك الماوس عليها تفتح وكأن هنا مفتاح الانتر مضغوط عليه
افتح ملف نوتباد جديد واكتب فيه الكود الاتى:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
بعد كده نحفظ الملف باسم Enter.vbs مثلا ومننساش الامتداد vbs
الملف جاهز للتحميل من هنـــــــــــــــــــــــا المقلب الحادى عشر:
المقلب ده بقى هيطلع من النافوخ خ خ خ بجد لانه هيخلى السيدى روم يفتح ويقفل لوحده يتجنن يعنى ويهنج الجهاز
افتح ملف نوتباد جديد واكتب فيه الكود التالى:
المقلب ده بقى هيطلع من النافوخ خ خ خ بجد لانه هيخلى السيدى روم يفتح ويقفل لوحده يتجنن يعنى ويهنج الجهاز
افتح ملف نوتباد جديد واكتب فيه الكود التالى:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
بعد كده نحفظ الملف باسم cdrom.vbs مثلا ومننساش الامتداد vbs
الملف جاهز للتحميل من هنـــــــــــــــــــــــا
0comments:
إرسال تعليق