VB重启explorer的模块,执行过程：RestartExplorer

调用方式：
Private Sub Command1_Click()
RestartExplorer
End Sub

以下新建一个模块，放进去即可

 '〓〓〓〓〓〓〓〓〓〓RestartExplorer函数相关定义声明等 Start
  Const sEndProess As String = "explorer.exe" '注意必须小写
  Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
  Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
  Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
  Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
      
  Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
      
  Private Type PROCESSENTRY32
                dwSize     As Long
                cntUsage     As Long
                th32ProcessID     As Long
                th32DefaultHeapID     As Long
                th32ModuleID     As Long
                cntThreads     As Long
                th32ParentProcessID     As Long
                pcPriClassBase     As Long
                dwFlags     As Long
                szExeFile     As String * 1024
  End Type
      
  Const TH32CS_SNAPHEAPLIST = &H1
  Const TH32CS_SNAPPROCESS = &H2
  Const TH32CS_SNAPTHREAD = &H4
  Const TH32CS_SNAPMODULE = &H8
  Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
  Const TH32CS_INHERIT = &H80000000
  Dim pid         As Long
  Dim pname         As String
'〓〓〓〓〓〓〓〓〓〓RestartExplorer函数相关定义声明等 End
'┏〓〓〓〓〓〓〓〓〓 RestartExplorer,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'重启Explorer进程
Sub RestartExplorer()
   '[mycode_id:2329],edittime:2013/8/4 3:55:46
   Dim my         As PROCESSENTRY32
   Dim l         As Long
   Dim l1         As Long
   Dim flag         As Boolean
   Dim mName         As String
   Dim i         As Integer
   
   l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
   If l Then
           my.dwSize = 1060
           If (Process32First(l, my)) Then                 '遍历第一个进程
                   Do
                                               i = InStr(1, my.szExeFile, Chr(0))
                                               mName = LCase(Left(my.szExeFile, i - 1))
                           If LCase(mName) = sEndProess Then
                                               pid = my.th32ProcessID
                                               pname = mName
                                               Dim mProcID         As Long
                                               mProcID = OpenProcess(1&, -1&, pid)
                                           TerminateProcess mProcID, 0&
                                               flag = True
                                               Exit Sub
                               Else
                                               flag = False
                               End If
                   Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False
           End If
           l1 = CloseHandle(l)
   End If
   
   Shell "explorer.exe"
End Sub
'┗〓〓〓〓〓〓〓〓〓  RestartExplorer,end  〓〓〓〓〓〓〓〓〓┛