Bàn phím cũng có thể " nhảy " theo nhạc !

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Bàn phím cũng có thể " nhảy " theo nhạc !

Bài gửi  TranDinhKha44(HLT3) on 14/4/2014, 23:39

Chỉ với vài đoạn mã đơn giản, bạn sẽ làm cho 3 đèn led trên bàn phím phải "nhảy" theo nhạc.

Bất cứ loại bàn phím cơ bản nào hiện nay đều có tối thiểu 3 đèn led để thông báo tình trạng tắt bật của các phím Num lock, Caps lock và Scroll lock.

Để làm bàn phím nhấp nháy bạn cần tạo một đoạn mã Visual Basic. Bạn hãy copy đoạn mã dưới đây và dán vào notepad sau đó lưu lại tập tin này với đuôi mở rộng là .vbs. Sau đó bạn bấm đúp chuột vào tập tin vbs này để chạy đoạn mã Visual Basic và thưởng thức thành quả. Dưới đây là các đoạn mã Visual Basic.

Đoạn mã này làm cho các đèn LED (Num lock, Caps lock và Scroll lock) nhấp nháy một cách ngẫu nhiên.

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop


Đoạn mã này sẽ làm cho các đèn LED trên bàn phím nhấp nháy theo một trình tự nhất định.

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


Để kết thúc quá trình này, bạn hãy bấm tổ hợp phím Ctrl + Alt + Delete để vào Task Manager rồi tìm đến thẻ Processes. Tiếp theo bạn tìm đến tiến trình mang tên wscript.exe rồi bấm vào End Processes để ngắt tiến trình này. Một lưu ý nhỏ đó là trước khi chạy tập tin vbs bạn hãy tắt tất cả đèn led trên bàn phím đi để tránh việc đèn led hiển thị không theo ý muốn.


Chúc các bạn thành công ! Thân ái chào quyết thắng ! Wink

TranDinhKha44(HLT3)

Tổng số bài gửi : 9
Join date : 24/03/2014

Xem lý lịch thành viên

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết