[已解决]vbs判断指定标题的窗口并激活该窗口

522235677

判断所有的窗口中是否含有“百度”标题的窗口，
如果没有则一直循环查找，直到查到到有这个窗口后，
然后把就把这窗口激活，就是把这个窗口调到最上方，然后自动按下回车键

522235677

1. set ws=createobject("wscript.shell")  
   
2. ws.appactivate "记事本"
   
3. ws.sendkeys "{enter}"

复制代码

这个可以激活窗口，但是不知道怎么修改让他一直检测，我加do 和loop后，然后就不管在哪窗口上都狂按回车键。

yu2n

在5秒内查找含有“百度”文字的窗口，若存在，则激活并提示 "找到一个含有“百度”文字的窗口！"，提示后退出。

1. 
   
2. 'VBS 查找含有“百度”文字的窗口，激活并提示 By yu2n
   
3. 
   
4. '在5秒内查找含有“百度”文字的窗口，
   
5. '  若存在，则激活并提示 "找到一个含有“百度”文字的窗口！"
   
6. '  若不存在，则提示 "找不到含有“百度”文字的窗口！"
   
7. 
   
8. Const sTitle = "百度"   ' 查找窗口名称
   
9. Const nTimeOut = 5      ' 指定超时时间
   
10. 
    
11. Dim dtStart, bFind
    
12. dtStart = Now()
    
13. Do While DateDiff("s", dtStart, Now()) < nTimeOut
    
14.   WScript.Sleep 200
    
15.   If CreateObject("WScript.Shell").Appactivate(sTitle) Then
    
16.     bFind = True  ' 做标记-已找到
    
17.     Exit Do
    
18.   End If
    
19. Loop
    
20. 
    
21. If bFind Then
    
22.   Msgbox "找到一个含有“百度”文字的窗口！耗时 " & DateDiff("s", dtStart, Now()) _
    
23.     & " 秒。", vbSystemModal+vbInformation, WScript.ScriptName
    
24. Else
    
25.   Msgbox "找不到含有“百度”文字的窗口！耗时 " & DateDiff("s", dtStart, Now()) _
    
26.     & " 秒。", vbSystemModal+vbCritical, WScript.ScriptName
    
27. End If
    

复制代码

9zhmke

Appactivate很不可靠，为了编写个机房注册autocad和3dmax的小vbs，我只有启用大漠组件来写vbs了，推荐你也使用。

lidin

回复 3# yu2n
学习了，正好用上，感谢！