设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › [已解决]如何修改下面的vbs代码，实现：循环监控多个窗 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 17258|回复: 4

[问题求助] [已解决]如何修改下面的vbs代码，实现：循环监控多个窗口标题？

[复制链接]
ygqiang
发表于 2015-11-29 22:40:27 | 显示全部楼层 |阅读模式
本帖最后由 ygqiang 于 2015-12-4 10:52 编辑

[已解决]如何修改下面的vbs代码，实现：循环监控多个窗口标题？
比如需要同时监控3个窗口标题。分别是：aaaa、bbbb、cccc

下面的vbs代码，已经测试过了，好用。。
  1. Const strWindowTitle = "aaaa"   ' 监控的窗口标题

  3. Do
  4.   Main
  5.   WScript.Sleep 2000
  6. Loop

  8. Sub Main()

  10.   Dim wso, fso
  11.   Set wso = CreateObject("Wscript.Shell")
  12.   Set fso=CreateObject("Scripting.FileSystemObject")
  13.   
  14.   '一直检查窗口，直到指定窗口出现
  15.   Do While wso.AppActivate(strWindowTitle) = False
  16.     WScript.sleep 200    ' 延时 0.2 秒
  17.    
  18.   Loop
  19.   
  20.   '激活窗口
  21.   Call WindowActive(strWindowTitle)
  22.   
  23.   '关闭窗口(发送 回车)
  24.   wso.sendkeys "{enter}"  

  26.   Set wso = NoThing
  27.   
  28. End Sub



  32. '激活窗口
  33. Sub WindowActive(ByVal strWindowTitle)
  34.   Dim objWord, objTasks
  35.   Set objWord = CreateObject("word.Application")
  36.   Set objTasks = objWord.Tasks
  37.   If objTasks.Exists(strWindowTitle) Then
  38.     objTasks(strWindowTitle).Activate         '激活窗口
  39.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式
  40.   End If
  41.   objWord.Quit
  42. End Sub
复制代码
回复

举报

ygqiang
 楼主| 发表于 2015-11-29 23:18:30 | 显示全部楼层
好像解决了。。。
  1. Const strWindowTitle = "aaaa|bbbb"   ' 监控的窗口标题

  3. Do
  4.   Main
  5.   WScript.Sleep 2000
  6. Loop

  8. Sub Main()

  10.   Dim wso, fso
  11.   Dim bFind, o

  13.   Set wso = CreateObject("Wscript.Shell")
  14.   Set fso=CreateObject("Scripting.FileSystemObject")
  15.   


  18. Do
  19.         For Each o In Split(strWindowTitle,"|")
  20.                 If Trim(o) <> "" Then
  21.                         If CreateObject("WScript.Shell").Appactivate(Trim(o)) Then
  22.                                 bFind = True        ' 做标记-已找到
  23.                                 Exit For
  24.                         End If
  25.                 End If
  26.         Next
  27.         If bFind = True Then Exit Do        '退出循环
  28.         WScript.Sleep 200        '延时0.2 秒
  29. Loop




  34.   '一直检查窗口，直到指定窗口出现
  35. If bFind Then
  36.   
  37.   '激活窗口
  38.   Call WindowActive(strWindowTitle)
  39.   
  40.   '关闭窗口(发送 Alt + F4)
  41.   wso.SendKeys "(%{F4})"
  42.   '关闭窗口(发送 回车)
  43.   'wso.sendkeys "{enter}"  

  45.   Set wso = NoThing

  47. Else
  48. End If


  51.   
  52. End Sub



  56. '激活窗口
  57. Sub WindowActive(ByVal strWindowTitle)
  58.   Dim objWord, objTasks
  59.   Set objWord = CreateObject("word.Application")
  60.   Set objTasks = objWord.Tasks
  61.   If objTasks.Exists(strWindowTitle) Then
  62.     objTasks(strWindowTitle).Activate         '激活窗口
  63.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式
  64.   End If
  65.   objWord.Quit
  66. End Sub
复制代码
回复

举报

9zhmke
发表于 2015-12-23 11:14:36 | 显示全部楼层
以前试过，貌似VBS的检查和激活窗口不太稳定
回复

举报

ygqiang
 楼主| 发表于 2015-12-23 16:37:20 | 显示全部楼层

标题

回复 3# 9zhmke
测试过了。vbs循环检测1个窗口标题，很稳定。2个不行，exe软件会崩溃。。
回复

举报

zhangop9
发表于 2021-1-2 18:49:40 | 显示全部楼层
监控多个窗口标题
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 05:08 , Processed in 0.018122 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表