模拟安键F5 SendKeys

模拟安键F5 SendKeys (2011/12/10 20:00:38)

Dim WSHShell 
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshSHell.SendKeys "{F5}"
WScript.Quit(0)

---

显示隐藏文件（夹）hidefilevbs (2011/12/10 20:00:37)

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"


if WshSHell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then

WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WshSHell.SendKeys "{F5}+{F10}e"
else
WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WshSHell.SendKeys "{F5}+{F10}e"
end if


Set WSHShell = Nothing
WScript.Quit(0)

来自为知笔记(Wiz)