[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
807979023

Rank: 1

帖子
46 
积分
72 
技术
0  
捐助
0  
注册时间
2012-5-10 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-6-4 05:51 | 显示全部帖子

[问题求助] vbs 如何模拟右键刷新

如题 vbs 如何模拟右键刷新？

网上的方法是模拟F5刷新，不可靠：

dim wh
set wh=createobject("wscript.shell")
for i=1 to 5            '刷新次数
wh.sendkeys "{F5}"
wscript.sleep 3000      '3000为延迟，单位是毫秒
next
收藏 分享

807979023

Rank: 1

帖子
46 
积分
72 
技术
0  
捐助
0  
注册时间
2012-5-10 
2楼
发表于 2014-7-16 21:00 | 显示全部帖子
做了两个修改了注册表的批处理: 不显示隐藏文件.bat  显示所有文件.bat
运行后虽要右键刷新,窗口视图才能生效.不太方便.
当然先结束explorer.exe,再启动explorer.exe也能实现,但比较费时.

TOP

807979023

Rank: 1

帖子
46 
积分
72 
技术
0  
捐助
0  
注册时间
2012-5-10 
3楼
发表于 2014-7-16 21:45 | 显示全部帖子
试过 RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

效果比右键刷新差.

批处理修改桌面壁纸后运行有效,窗口中运行无效.

TOP

807979023

Rank: 1

帖子
46 
积分
72 
技术
0  
捐助
0  
注册时间
2012-5-10 
4楼
发表于 2014-8-4 21:13 | 显示全部帖子
网上找到一段代码,称完美解决模拟右键刷新.

能不能改为vbs 执行 ?


HWND hCWC = NULL;
     do {
         hCWC = FindWindowEx(NULL, hCWC, _T("CabinetWClass"), NULL);
         if (hCWC == NULL) break;
         PostMessage(hCWC, WM_COMMAND, 41504, NULL);
     } while (hCWC);
PostMessage(GetShellWindow(),WM_COMMAND,41504,NULL);

TOP

返回列表