返回列表 发帖
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
收藏 分享

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
2楼
发表于 2014-6-14 12:01 | 只看该作者
如果是IE，可以调用刷新的，大致是这样：ie.document.Location.Reload(True) 可以百度一下。

TOP

心态

Rank: 1

帖子
4 
积分
15 
技术
0  
捐助
0  
注册时间
2014-7-12 
3楼
发表于 2014-7-12 23:26 | 只看该作者
为什么要这么做    有何意义

TOP

807979023

Rank: 1

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

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
5楼
发表于 2014-7-16 21:10 | 只看该作者
试试运行 RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
  1. CreateObject("WScript.Shell").Run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 0, True
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

807979023

Rank: 1

帖子
46 
积分
72 
技术
0  
捐助
0  
注册时间
2012-5-10 
6楼
发表于 2014-7-16 21:45 | 只看该作者
试过 RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

效果比右键刷新差.

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

TOP

807979023

Rank: 1

帖子
46 
积分
72 
技术
0  
捐助
0  
注册时间
2012-5-10 
7楼
发表于 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

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
8楼
发表于 2014-8-4 22:39 | 只看该作者
可以这样：
  1. assoc .我是一个不存在的后缀名=bbs.bathome.net

  2. assoc .我是一个不存在的后缀名=
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

返回列表