Board logo

标题: [问题求助] [已解决]vbs代码，如果循环检测1个exe软件窗口标题，很稳定。循环检测2个，会崩溃。 [打印本页]
作者: ygqiang    时间: 2015-12-24 19:26     标题: [已解决]vbs代码，如果循环检测1个exe软件窗口标题，很稳定。循环检测2个，会崩溃。

本帖最后由 ygqiang 于 2016-1-9 18:07 编辑

[已解决]vbs代码，如果循环检测1个exe软件窗口标题，很稳定。循环检测2个，会崩溃。
窗口标题，是exe软件弹出来的。。而且如果是弹出2个窗口，一般不会同时或者连续弹出来。是各自分别在不同的时刻弹出来。

vbs代码，如果循环检测2个窗口标题。
测试过了，如果是连续间隔几秒钟出现相同的1个窗口标题，vbs代码会一直正常。
如果是连续间隔几秒，交叉出现2个不同的窗口标题，就会崩溃。

应该如何修改检测2个窗口标题的vbs代码呢？
  1.   'vbs检测1个窗口标题

  2. Const strWindowTitle = "aaaa"   ' 监控的窗口标题

  3. 

  4. Do

  5.   Main

  6.   WScript.Sleep 2000

  7. Loop

  8. 

  9. Sub Main()

  10. 

  11.   Dim wso, fso

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

  13.   Set fso=CreateObject("Scripting.FileSystemObject")

  14.   

  15.   '一直检查窗口，直到指定窗口出现

  16.   Do While wso.AppActivate(strWindowTitle) = False

  17.     WScript.sleep 200    ' 延时 0.2 秒

  18.     

  19.   Loop

  20.   

  21.   '激活窗口

  22.   Call WindowActive(strWindowTitle)

  23.   

  24.   '关闭窗口(发送 Alt + F4)

  25.   'wso.SendKeys "(%{F4})"

  26.   '关闭窗口(发送 回车)

  27.   wso.sendkeys "{enter}"  

  28. 

  29.   Set wso = NoThing

  30.   

  31. End Sub

  32. 

  33. 

  34. 

  35. '激活窗口

  36. Sub WindowActive(ByVal strWindowTitle)

  37.   Dim objWord, objTasks

  38.   Set objWord = CreateObject("word.Application") 

  39.   Set objTasks = objWord.Tasks

  40.   If objTasks.Exists(strWindowTitle) Then

  41.     objTasks(strWindowTitle).Activate         '激活窗口

  42.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式

  43.   End If 

  44.   objWord.Quit

  45. End Sub
复制代码
作者: ygqiang    时间: 2015-12-24 19:28

vbs检测2个窗口标题。。exe软件会崩溃。应该如何修改代码呢？多谢
  1.   'vbs检测2个窗口标题

  2. Const strWindowTitle = "aaaa|bbbb"   ' 监控的窗口标题

  3. 

  4. Do

  5.   Main

  6.   WScript.Sleep 2000

  7. Loop

  8. 

  9. Sub Main()

  10. 

  11.   Dim wso, fso

  12.   Dim bFind, o

  13. 

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

  15.   Set fso=CreateObject("Scripting.FileSystemObject")

  16.   

  17. 

  18. 

  19. Do

  20. 	For Each o In Split(strWindowTitle,"|")

  21. 		If Trim(o) <> "" Then

  22. 			If CreateObject("WScript.Shell").Appactivate(Trim(o)) Then

  23. 				bFind = True	' 做标记-已找到

  24. 				Exit For

  25. 			End If

  26. 		End If

  27. 	Next

  28. 	If bFind = True Then Exit Do	'退出循环

  29. 	WScript.Sleep 200	'延时0.2 秒

  30. Loop

  31. 

  32. 

  33. 

  34. 

  35.   '一直检查窗口，直到指定窗口出现

  36. If bFind Then

  37.   

  38.   '激活窗口

  39.   Call WindowActive(strWindowTitle)

  40.   

  41.   '关闭窗口(发送 Alt + F4)

  42.   'wso.SendKeys "(%{F4})"

  43.   '关闭窗口(发送 回车)

  44.   wso.sendkeys "{enter}"  

  45. 

  46.   Set wso = NoThing

  47. 

  48. Else

  49. End If

  50. 

  51. 

  52.   

  53. End Sub

  54. 

  55. 

  56. 

  57. '激活窗口

  58. Sub WindowActive(ByVal strWindowTitle)

  59.   Dim objWord, objTasks

  60.   Set objWord = CreateObject("word.Application") 

  61.   Set objTasks = objWord.Tasks

  62.   If objTasks.Exists(strWindowTitle) Then

  63.     objTasks(strWindowTitle).Activate         '激活窗口

  64.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式

  65.   End If 

  66.   objWord.Quit

  67. End Sub
复制代码
作者: ygqiang    时间: 2016-1-9 18:06

本帖最后由 ygqiang 于 2016-1-9 18:08 编辑

初步解决。。。保存为2个vbs文件，开机启动，先后运行这2个vbs文件。
  1. Const strWindowTitle = "aaaa"   ' 监控的窗口标题aaaa

  2. 

  3. Do

  4.   Main

  5.   WScript.Sleep 2000

  6. Loop

  7. 

  8. Sub Main()

  9. 

  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.   '关闭窗口(发送 Alt + F4)

  24.   'wso.SendKeys "(%{F4})"

  25.   '关闭窗口(发送 回车)

  26.   wso.sendkeys "{enter}"  

  27. 

  28.   Set wso = NoThing

  29.   

  30. End Sub

  31. 

  32. 

  33. 

  34. '激活窗口

  35. Sub WindowActive(ByVal strWindowTitle)

  36.   Dim objWord, objTasks

  37.   Set objWord = CreateObject("word.Application") 

  38.   Set objTasks = objWord.Tasks

  39.   If objTasks.Exists(strWindowTitle) Then

  40.     objTasks(strWindowTitle).Activate         '激活窗口

  41.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式

  42.   End If 

  43.   objWord.Quit

  44. End Sub
复制代码
  1. Const strWindowTitle = "bbbb"   ' 监控的窗口标题bbbb

  2. 

  3. Do

  4.   Main

  5.   WScript.Sleep 2000

  6. Loop

  7. 

  8. Sub Main()

  9. 

  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.   '关闭窗口(发送 Alt + F4)

  24.   'wso.SendKeys "(%{F4})"

  25.   '关闭窗口(发送 回车)

  26.   wso.sendkeys "{enter}"  

  27. 

  28.   Set wso = NoThing

  29.   

  30. End Sub

  31. 

  32. 

  33. 

  34. '激活窗口

  35. Sub WindowActive(ByVal strWindowTitle)

  36.   Dim objWord, objTasks

  37.   Set objWord = CreateObject("word.Application") 

  38.   Set objTasks = objWord.Tasks

  39.   If objTasks.Exists(strWindowTitle) Then

  40.     objTasks(strWindowTitle).Activate         '激活窗口

  41.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式

  42.   End If 

  43.   objWord.Quit

  44. End Sub
复制代码
作者: zhangop9    时间: 2021-1-11 17:38

检测窗口标题



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2