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

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 »
发表于 2015-1-4 12:16 | 显示全部帖子 
  1. Dim wso,strTitle

  2. strTitle = "Microsoft Windows"

  3. Set wso = CreateObject("Wscript.Shell")

  4. ' 一直检查窗口标题

  5. Do While wso.AppActivate(strTitle) = False

  6.     WScript.sleep 200    ' 延时 0.2 秒

  7. Loop

  8. WScript.Sleep 3000       ' 延时 3 秒

  9. wso.SendKeys "(%{F4})"   ' 发送 Alt + F4

  10. Set wso = NoThing
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2015-1-4 12:55 | 显示全部帖子 
  1. Do

  2.   JK

  3. Loop

  4. 

  5. Sub JK()

  6.   Dim wso,strTitle

  7.   strTitle = "Microsoft Windows"

  8.   Set wso = CreateObject("Wscript.Shell")

  9.   ' 一直检查窗口标题

  10.   Do While wso.AppActivate(strTitle) = False

  11.     WScript.sleep 1000    ' 延时 1 秒

  12.   Loop

  13.   WScript.Sleep 2000       ' 延时 2 秒

  14.   wso.SendKeys "(%{F4})"   ' 发送 Alt + F4

  15.   wso.Run "Explorer.exe /n," '打开我的电脑

  16.   Set wso = NoThing

  17. End Sub
复制代码
1

评分人数

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
3楼
发表于 2015-1-21 10:04 | 显示全部帖子
忽略错误使用：
  1. On Error Resume Next
复制代码
参考：
on error resume next用法
http://www.cnblogs.com/fyen/archive/2011/07/08/2100586.html
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表