KoD Z
09-06-2009, 06:28 PM
Chức năng làm chữ thường chữ hoa lộn lung tung lên bằng cách send key Caps lock liên tục nếu muốn cho send key nhanh hơn hay chậm đi thì đổi số 180 bằng 1 số khác là được
Option Explicit
Dim WSHShell
set WSHShell = WScript.CreateObject("WScript.Shell")
DO
WshShell.Sendkeys"{CapsLock}"
WScript.Sleep 180
Loop
Copy đoạn code này save lại thành YahooChat.vbs
Khi nào chát mở cái này lên, ... amazing :)
Khi nào tắt thì mở Task Manager (Ctrl + alt + del) rùi end cái dòng wscript.exe đi là ok !
Ko thì tạo 1 file .bat để tắt cho tiện : Mở notepad, gõ :
taskkill /f /im wscrip.exe
Rồi save lại là DisableYahooChat.bat
Xong, khi nào đã chat đã thì tắt bằng cách chạy file bat, khỏi mất công Task Manager.
Have fun ! :no1:
Option Explicit
Dim WSHShell
set WSHShell = WScript.CreateObject("WScript.Shell")
DO
WshShell.Sendkeys"{CapsLock}"
WScript.Sleep 180
Loop
Copy đoạn code này save lại thành YahooChat.vbs
Khi nào chát mở cái này lên, ... amazing :)
Khi nào tắt thì mở Task Manager (Ctrl + alt + del) rùi end cái dòng wscript.exe đi là ok !
Ko thì tạo 1 file .bat để tắt cho tiện : Mở notepad, gõ :
taskkill /f /im wscrip.exe
Rồi save lại là DisableYahooChat.bat
Xong, khi nào đã chat đã thì tắt bằng cách chạy file bat, khỏi mất công Task Manager.
Have fun ! :no1: