Biến đèn bàn phím (Num|Scrol|Caps) Thành đèn nháy

Các bạn có thể chọn 1 trong 2 đoạn code này, Copy vào Notepad và save lại với tên bất kỳ, phần mở rộng .VBS, tất cả sẽ làm 3 đèn trên bàn phím của bạn nhấp nháy rất đẹp

--Đoạn code này sẽ biến đèn bàn phím như 1 đèn chiếu disco
Set wshShell =wscript.CreateObject("WScript.Shell")

do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
loop

--Đoạn code này sẽ biến đèn bàn phím trông giống như một chuỗi ánh sáng
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

Nếu bạn muốn dừng ko cho 3 đèn nhấp nháy nữa thì hãy mở Taskmanager lên, chọn tab Processes, tìm wscript.exe và nhấn End Processes

Posted in: Thủ Thuật Tin Học