Đăng bởi Admin | 14/5/13 | 0 nhận xét
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\EnableAutoTray"
itemtype = "REG_DWORD"
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum 1 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Inactive Icons in the Notification Area are now ENABLED", 64, "Show or Hide Icons in the Notification Area")
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox("Show Inactive Icons in the Notification Area are now DISABLED", 64, "Show or Hide Icons in the Notification Area")
End If
Set WshShell = Nothing
Theo mặc định, Windows sẽ hiện tất cả các icon của các chương trình đang chạy thường trú trong khay hệ thống (System tray) nhưng người dùng có thể điều khiển cho Windows tự động dấu icon của các chương trình đang ở trong trạng thái “nghĩ ngơi” (inactive icons) để System tray gọn gàng hơn, bằng cách chọn hay bỏ chọn mục Hide Inactive Icons trong Properties của Taskbar.
Tuy nhiên, bạn có thể nhanh chóng chuyển đổi trạng thái ẩn hay hiện cho các inactive icons bằng cách tạo một file chuyển đổi tự động như dưới đây
- Bạn mở menu Start > chọn All Programs > chọn Accessories > chọn Notepad.
- Trong cửa sổ Notepad, bạn nhập nội dung sau:
Option ExplicitOn Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\EnableAutoTray"
itemtype = "REG_DWORD"
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum 1 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Inactive Icons in the Notification Area are now ENABLED", 64, "Show or Hide Icons in the Notification Area")
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox("Show Inactive Icons in the Notification Area are now DISABLED", 64, "Show or Hide Icons in the Notification Area")
End If
Set WshShell = Nothing
Rồi mở menu File > chọn Save As và đặt tên file là enabledisabletray.vbs.
Mỗi khi muốn cho ẩn hay hiện inactive icons, bạn hãy bấm kép chuột vào file này. File này tác động như một công tắc thay đổi trạng thái, nếu inactive icons đang ở chế độ ẩn thì sẽ chuyển qua hiện hay ngược lại.
Không có nhận xét nào:
Đăng nhận xét
Cảm ơn bạn đã nhận xét !
Mã hóa Code- Bạn có thể chèn link vào nhận xét bằng thẻ: <a href="Link" rel="nofollow">Tên link</a>
- Tạo <b>Chữ đậm</b> và <i>Chữ ngiêng</i> cho nhận xét
- Hãy Chuyển đổi mã code trước khi chèn vào nhận xét
- Hãy bấm Theo dõi dưới chân trang để nhanh chóng nhận được phản hồi từ Thủ thuật vi tính
- Những nhận xét nào không lành mạnh hoặc chèn link spam sẽ bị xóa khỏi blog.