VB实现刷新桌面（vb.vbs）
‘源码1
‘*******************************VB.VBS*******************************
Set oShell = CreateObject(“shell.application”)
Set oDesktop = oShell.Namespace(0)
oDesktop.self.invokeVerb “R&efresh”

‘*******************************VB.VBS*******************************
‘源码2
‘*******************************VB.VBS*******************************
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
strDesktop = WSHShell.SpecialFolders(“Desktop”)
WSHShell.AppActivate strDesktop
WSHShell.SendKeys “{F5}”
‘*******************************VB.VBS*******************************

——————————————————————————–

Const DESKTOP = &H10&
Set oShell = CreateObject(“shell.application”)
Set oDesktop = oShell.