thanh System Tray
Bạn có muốn không cho phép hoặc cho phép các biểu tượng xuất hiện ở thanh System tray hay
không ?
Để làm được điều mà bạn muốn bạn có thể sử dụng công cụ Registry Editor để thay đổi nó .
Tuy nhiên bạn có thể sữ dụng cách sau để cho phép hoặc không cho phép xuất hiện các biểu
tượng ở thanh System tray .
Bạn mở Notepad lên và chép đoạn mã sau vào : Message = "Doan ma se tu dong dong" & vbCR
Message = Message & "va khoi dong lai trinh ung dung Windows Explorer" & vbCR
Message = Message & "Chuc nang nay khong gay tac hai cho may tinh cua ban" & vbCR &
vbCR
Message = Message & "Ban co muon tiep tuc hay khong?"
X = MsgBox(Message, vbYesNo, "Enable/Disable Icons in System tray")
If X = 6 Then
On Error Resume Next
Dim WSHShell, n, MyBox, p, t, errnum, vers Dim itemtype
Dim enab, disab, jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Ex plorer\NoTrayItemsDisplay" itemtype = "REG_DWORD" enab = "Mo" disab = "Dong"
jobfunc = "Cac bieu tuong o System Tray bay gio se duoc" t = "Xac nhan"
n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 0 then WSHShell.RegWrite p, 0, itemtype End If If n = 0 Then n = 1 WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t) ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t) End If
Set WshShell = Nothing On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0) Next
MsgBox "Ket thuc" & vbcr & vbcr , 4096, "Done" Else
MsgBox "Chuc nang nay khong duoc thay doi" & vbcr & vbcr, 4096, "Tam thoi dung lai"
End If
Thủ thuật Window ( phần 9 )