VB Explorer 崩溃重启后的任务栏图标重建

Ineverleft

以下代码来自可爱猪（lovelypig43@163.com ），为了使代码更好用，下面的代码在源代码中有删改！

1. 'Module1 中
   
2. 
   
3. 'Explorer 崩溃重启后的任务栏图标重建
   
4. '作者 可爱猪
   
5. 'Email:lovelypig43@163.com
   
6. 
   
7. Option Explicit
   
8. 
   
9. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
10. Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    
11. Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
12. 
    
13. Public Const GWL_WNDPROC = (-4)
    
14. Private Const WM_USER = &H400
    
15. Private Const WM_NOTIFYICON = WM_USER + &H100
    
16. Private Const NIF_ICON = &H2
    
17. Private Const NIF_TIP = &H4
    
18. Private Const NIF_MESSAGE = &H1
    
19. Private Const NIM_ADD = &H0
    
20. 
    
21. Public Type NOTIFYICONDATA
    
22. cbSize As Long
    
23. hwnd As Long
    
24. uID As Long
    
25. uFlags As Long
    
26. uCallbackMessage As Long
    
27. hIcon As Long
    
28. szTip As String * 64
    
29. End Type
    
30. 
    
31. Public MsgTaskbarRestart As Long
    
32. Public OldWndProc As Long
    
33. Public ano As NOTIFYICONDATA
    
34. 
    
35. Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
36. If uMsg <> MsgTaskbarRestart Then
    
37. WndProc = CallWindowProc(OldWndProc, hwnd, uMsg, wParam, lParam)
    
38. Else
    
39. MsgBox "请在这里填写添加拖盘图标的代码"
    
40. WndProc = True
    
41. End If
    
42. End Function

复制代码

1. 'Form1 中
   
2. 
   
3. 'Explorer 崩溃重启后的任务栏图标重建
   
4. '作者 可爱猪
   
5. 'Email:lovelypig43@163.com
   
6. 
   
7. Option Explicit
   
8. 
   
9. Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
   
10. 
    
11. Private Const NIM_DELETE = &H2
    
12. 
    
13. Private Sub Form_Load()
    
14. MsgTaskbarRestart = RegisterWindowMessage("TaskbarCreated")
    
15. OldWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
    
16. End Sub
    
17. 
    
18. Private Sub Form_Unload(Cancel As Integer)
    
19. Call SetWindowLong(hwnd, GWL_WNDPROC, OldWndProc)
    
20. End Sub

复制代码