标题: 求dos版刷新桌面
[打印本页]
作者: wert123
时间: 2007-5-23 20:47
标题: 求dos版刷新桌面
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}+{F10}e"
这是vbs版的,于是我写了下面的
echo Set WSHShell = WScript.CreateObject("WScript.Shell") >temp.vbs
echo WSHShell.SendKeys "{F5}+{F10}e">>temp.vbs
cscript temp.vbs
上面的代码全部执行成功,可是就是不能刷新桌面,它后台运行了
郁闷,要它安静运行,它就不安静,要它不安静运行,嘿,它偏偏安静的不得了
谁能给个dos 版的我
Last edited by wert123 on 2007-6-1 at 03:01 PM ]
作者: xswdong
时间: 2007-5-23 23:34
taskkill/f /im explorer.exe &&start C:\WINDOWS\explorer.exe
是这个东西吗?
作者: wert123
时间: 2007-5-24 13:27
taskkill这个是可以,不过桌面一下没有,一下又出来,会吓到一些菜鸟,还以为病毒
嵌入explorer.exe了呢
有点兴师动众的感觉,你再帮我想想好吗,麻烦大家帮我想想吧
作者: wert123
时间: 2007-5-26 11:56
难道问题幼稚了吗,怎么没人来
Last edited by wert123 on 2007-5-30 at 04:38 PM ]
作者: wert123
时间: 2007-5-30 16:39
大家帮我看看吧
作者: lxmxn
时间: 2007-5-30 20:15
试试这个 gpupdate /Force .
作者: zhoushijay
时间: 2007-5-30 20:28
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}+{F10}e"
因为焦点不在桌面上,所以按F5无效
作者: wert123
时间: 2007-5-31 17:23
gpupdate /Force
我查了一下帮助,这个命令好像是上传交互策略用的吧
我先把显示扩展名禁用了,再运行下面的代码,再运行上面的代码,桌面闪了下,我很兴奋,可是我的电脑上面的文件扩展名还没有出来,非要用右键菜单刷新才行,郁闷,我的电脑怎么不行啊,是不是以前中的病毒改了什么的啊
@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 ]
作者: wert123
时间: 2007-5-31 17:32
Originally posted by zhoushijay at 2007-5-30 08:28 PM:
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}+{F10}e"
因为焦点不在桌面上,所以按F5无效
说的很对,真是一针见血啊
那你能用dos帮我把焦点弄到桌面上吗,大家一起来帮帮我吧
作者: baomaboy
时间: 2007-6-1 12:19
先run快速启动栏的显示桌面
作者: zhoushijay
时间: 2007-6-1 12:22
baomaboy 每次都能找到最有效的解决办法, ^^
作者: wert123
时间: 2007-6-1 14:59
@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
生成的temp.vbs能行,dos版就不行了,扩展名还是显示不出来
哎,也许我的电脑真是不行了,看来又要重装系统了
Last edited by wert123 on 2007-6-1 at 03:07 PM ]
作者: slore
时间: 2007-6-1 16:55
scf默认是NeverShowExt
所以你不管怎么设置那个显示扩展名它本来就是不显示……
还有显示桌面可以……
Dim objSHA
Set objSHA = CreateObject("Shell.Application")
objSHA.ToggleDesktop
Set objSHA = Nothing
就ok……理论上就2行……
作者: pighead123
时间: 2007-6-1 19:16
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
作者: 48344620
时间: 2007-6-1 22:00
记号...
作者: wert123
时间: 2007-6-5 18:23
Dim objSHA
Set objSHA = CreateObject("Shell.Application")
objSHA.ToggleDesktop
Set objSHA = Nothing
汗~~~
Last edited by wert123 on 2007-6-5 at 06:24 PM ]
作者: my3439955
时间: 2007-6-13 15:02
Originally posted by pighead123 at 2007-6-1 19:16:
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
又是未公开API,怎么找到的UpdatePerUserSystemParameters
作者: wq1282
时间: 2010-3-23 11:54
我平时都用:
Msiexec /regserver
会开启Windows Install服务同时刷新图标,需要的效果一般都能达到。
Last edited by wq1282 on 2010-3-23 at 11:58 ]