请问各位高手,我做了一拨号程序,可是拨号后任务栏会有图标,BOSS命令俺隐藏它,该怎么办啊?有没有办法拨号后不显示图标?求WIN2000和WIN98下的方法

解决方案 »

  1.   

    查找到它的句柄,然后用sendmessage发送隐藏命令
    或者你自己做个拨号程序来替代win带的/
      

  2.   

    拨号程序是我自己的,但是我是用API拨的,也就是说连接成功后系统自动创建了图标
    5555555~~~~~~
      

  3.   

    运用Shell_notifyicon函数功能:给系统发送添加、修改、删除任务栏系统盒图标。Option Explicit
     Const MAX_TOOLTIP As Integer = 64
     Const NIF_ICON = &H2                          
     Const NIF_MESSAGE = &H1
     Const NIF_TIP = &H4
     Const NIM_ADD = &H0                          '添加图标到任务栏提示区
     Const NIM_DELETE = &H2                       '删除图标
     Const WM_MOUSEMOVE = &H200
     Const WM_LBUTTONDOWN = &H201
     Const WM_LBUTTONUP = &H202
     Const WM_LBUTTONDBLCLK = &H203
     Const WM_RBUTTONDOWN = &H204
     Const WM_RBUTTONUP = &H205
     Const WM_RBUTTONDBLCLK = &H206
     Const SW_RESTORE = 9
     Const SW_HIDE = 0
     Private Type NOTIFYICONDATA
        cbSize           As Long   ''改变结构所占字节数
        hwnd             As Long   ''接受托盘图标消息
        uID              As Long   ''为图标设置ID
        uFlags           As Long   ''设置下面三项是否有效
        uCallbackMessage As Long   ''消息的编号
        hIcon            As Long   ''托盘图标句柄
        szTip            As String * MAX_TOOLTIP  ''鼠标指到托盘图标时显示的提示字符串
    End Type
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long
        
    Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
        (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate nfIconData As NOTIFYICONDATA
    ======declare=================
    ==============================
      nfIconData.hwnd = Me.hwnd  ''窗体句柄
      nfIconData.uID = Me.Icon   
      nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
      nfIconData.uCallbackMessage = WM_MOUSEMOVE
      nfIconData.hIcon = Me.Icon.Handle
      nfIconData.szTip = "System Tray Example" & vbNullChar
      nfIconData.cbSize = Len(nfIconData)
      
      Call Shell_NotifyIcon(NIM_DELETE, nfIconData)