CODE: [Copy to clipboard]
@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("[Shell]") >>temp.vbs
echo NewFile.WriteLine("Command=2") >>temp.vbs
echo NewFile.WriteLine("IconFile=explorer.exe,3") >>temp.vbs
echo NewFile.WriteLine("[Taskbar]") >>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
生成的temp.vbs能行,dos版就不行了,扩展名还是显示不出来