'怎样把QQ在任务栏右下角的图标给换掉，或者控制隐藏/显示。

[zhjin2000]

'怎样把QQ在任务栏右下角的图标给换掉，或者控制隐藏/显示。
'不让别人发现我在聊天，哈哈

[dbcontrols]

可以控制隐藏/显示整个托盘，要吗？给分吗？

[zhjin2000]

要，给15分

[dbcontrols]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const sTrayWindow = "Shell_TrayWnd"
Const sTrayNotify = "TrayNotifyWnd"
Const sStartButton = "Button"
Const sAppSwitchBar = "ReBarWindow32"
Const sAppSwitch = "MSTaskSwWClass"
Const sAppIcon = "ToolbarWindow32"
Const sTrayClock = "TrayClockWClass"
Const sDesktopIcon = "ShellDll_DefView"
Const sProgman = "Progman"

Const SW_SHOW = 5
Const SW_HIDE = 0

Public Function HideTray() As Boolean
wnd = FindWindow(sTrayWindow, vbNullString)
wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
ShowWindow wnd, SW_HIDE
Public Function ShowTray() As Boolean
wnd = FindWindow(sTrayWindow, vbNullString)
wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
ShowWindow wnd, SW_SHOW

[masterz]

http://www.csdn.net/expert/topic/375/375372.shtm

[zhjin2000]

晚一点都给分

[dbcontrols]

既然告诉你了，不给拉倒。

[zhjin2000]

怎么灵活控制呢？谁有更好的方法。
可不可以通过找到QQ的句柄，然后用Shell_NotifyIcon（Shell_NotifyIconA)实现呢！

同志们不要急，下午5：00，准时给分。

[dbcontrols]

定义一个热键用于切换

[zhjin2000]

看来只能这样了，赠分了。