中国DOS联盟

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}+{F10}e"

This is the VBS version, so I wrote the following
echo Set WSHShell = WScript.CreateObject("WScript.Shell") >temp.vbs
echo WSHShell.SendKeys "{F5}+{F10}e">>temp.vbs
cscript temp.vbs
The above code all executed successfully, but it just can't refresh the desktop. It runs in the background.
Depressed, when I want it to run quietly, it isn't quiet; when I want it not to run quietly, hey, it's surprisingly quiet.
Who can give me a DOS version?

Last edited by wert123 on 2007-6-1 at 03:01 PM ]

Is this thing?

taskkill is okay, but the desktop disappears and then appears, which will scare some newbies, thinking it's a virus embedded in explorer.exe. It feels a bit overkill. Can you think of another way for me? Please help everyone think about it.

Is the question naive? Why is no one here

Last edited by wert123 on 2007-5-30 at 04:38 PM ]

Everyone, please help take a look.

Try this gpupdate /Force.

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}+{F10}e"

Because the focus is not on the desktop, so the F5 key is invalid

gpupdate /Force

@echo off&color f0

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t reg_dword /d 0 /f

gpupdate /Force

I checked the help, this command seems to be used to upload interaction policies or something?
I first disabled the display of file extensions, then ran the following code, then ran the above code, the desktop flickered, I was very excited, but the file extensions on my computer still didn't come out, I have to refresh with the right-click menu, so depressed, why is my computer not working? Is it because I was infected with a virus before and something was changed?

@echo off&color f0

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t reg_dword /d 0 /f

Last edited by wert123 on 2007-6-2 at 10:48 AM ]

Originally posted by zhoushijay at 2007-5-30 08:28 PM:
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}+{F10}e"

Because the focus is not on the desktop, so pressing F5 is invalid

That's very correct, really hits the nail on the head
Can you use DOS to help me get the focus to the desktop? Everyone, come and help me!

First, run the "Show Desktop" in the quick launch bar

baomaboy always finds the most effective solution, ^^

@echo off&color f0

echo Dim WshSHell,FSO >temp.vbs

echo Set WshSHell = WScript.CreateObject("WScript.Shell") >>temp.vbs

echo Set FSO = CreateObject("Scripting.FileSystemObject") >>temp.vbs

echo scfFileName="zm.scf" >>temp.vbs

echo scfFilePath=fso.GetSpecialFolder(1) >>temp.vbs

echo Set NewFile = FSO.CreateTextFile(FSO.BuildPath(scfFilePath ,scfFileName), True) >>temp.vbs

echo NewFile.WriteLine("") >>temp.vbs

echo NewFile.WriteLine("Command=2") >>temp.vbs

echo NewFile.WriteLine("IconFile=explorer.exe,3") >>temp.vbs

echo NewFile.WriteLine("") >>temp.vbs

echo NewFile.WriteLine("Command=ToggleDesktop") >>temp.vbs

echo NewFile.Close >>temp.vbs

echo wscript.sleep(200) >>temp.vbs

echo wshshell.run "zm.scf" >>temp.vbs

echo wshshell.SendKeys "{F5}+{F10}e">>temp.vbs

echo wscript.sleep(200) >>temp.vbs

echo wscript.quit >>temp.vbs

@temp.vbs

@echo off&color f0

echo Dim WshSHell,FSO >temp.vbs

echo Set WshSHell = WScript.CreateObject("WScript.Shell") >>temp.vbs

echo Set FSO = CreateObject("Scripting.FileSystemObject") >>temp.vbs

echo scfFileName="zm.scf" >>temp.vbs

echo scfFilePath=fso.GetSpecialFolder(1) >>temp.vbs

echo Set NewFile = FSO.CreateTextFile(FSO.BuildPath(scfFilePath ,scfFileName), True) >>temp.vbs

echo NewFile.WriteLine("") >>temp.vbs

echo NewFile.WriteLine("Command=2") >>temp.vbs

echo NewFile.WriteLine("IconFile=explorer.exe,3") >>temp.vbs

echo NewFile.WriteLine("") >>temp.vbs

echo NewFile.WriteLine("Command=ToggleDesktop") >>temp.vbs

echo NewFile.Close >>temp.vbs

echo wscript.sleep(200) >>temp.vbs

echo wshshell.run "zm.scf" >>temp.vbs

echo wshshell.SendKeys "{F5}+{F10}e">>temp.vbs

echo wscript.sleep(200) >>temp.vbs

echo wscript.quit >>temp.vbs

@temp.vbs

The generated temp.vbs works, but it doesn't work in the DOS version, and the file extension still doesn't show up.
Hey, maybe my computer is really not working right. It seems I have to reinstall the system again.

Last edited by wert123 on 2007-6-1 at 03:07 PM ]

The default of scf is NeverShowExt. So no matter how you set that to show file extensions, it just doesn't show... Also, to show the desktop can...
Dim objSHA
Set objSHA = CreateObject("Shell.Application")
objSHA.ToggleDesktop
Set objSHA = Nothing
It's okay... theoretically it's just 2 lines...

RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters