Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Now paste it in notepad
Save the file with anyname.vbs
Now open that file
Now see your keyboard
To stop this you can go to task manager (Ctrl+Shift+Esc)
Select processes
Click on wscript.exe
click end proces
Thats it.
Not you can also use the below code to paste in notepad
Try both the codes.
Not you can also use the below code to paste in notepad
Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 200 wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{NUMLOCK}" wscript.sleep 50 wshshell.sendkeys "{SCROLLLOCK}" loop
Try both the codes.
0 comments:
Post a Comment