刷新桌面和任務欄中的所有圖標

Question

我需要使用批處理文件或VBScript以編程方式刷新桌面和任務欄圖標。

，我發現這個VBS命中通常刷新鍵，F5：

Set WSHShell = CreateObject("WScript.Shell") 
WshShell.SendKeys "{F5}" 

但顯然好好嘗試一下刷新我提到的圖標。

Answer 1

嘗試通過殺死並像這樣運行它刷新Explorer.exe的：

Option Explicit 
Dim ProcessName : ProcessName = "Explorer.exe" 
Refresh(ProcessName) 
'********************************************************************* 
Sub Refresh(ProcessName) 
Kill(ProcessName) 
RunIt(ProcessName) 
End Sub 
'********************************************************************* 
Sub Kill(ProcessName) 
Dim Ws : Set Ws = CreateObject("Wscript.Shell") 
Dim Command : Command = "Taskkill /F /IM "& ProcessName &"" 
Dim Result : Result = Ws.Run(Command,0,True) 
End Sub 
'********************************************************************* 
Sub RunIt(ProcessName) 
Dim Ws : Set Ws = CreateObject("Wscript.Shell") 
Dim Result : Result = Ws.Run(ProcessName,1,False) 
End Sub 
'*********************************************************************