[已解决]求助修改vbs代码关闭迅雷软件的弹窗窗口

ygqiang

[已解决]vbs如何修改，才能关闭迅雷软件的弹窗窗口？

1. Do
   
2.   Main
   
3.   WScript.Sleep 2000
   
4. Loop
   
5. 
   
6. Sub Main()
   
7. 
   
8. wndws = array("迅雷下载宝")
   
9. set Thunder = createobject("wscript.shell")
   
10.   for each wndw in wndws
    
11.     while Thunder.appactivate(wndw)
    
12.       wscript.sleep 1000
    
13.       qq.sendkeys "%{f4}"
    
14.       wscript.sleep 1000
    
15.     wend
    
16.   next
    
17.   wscript.sleep 1000
    
18.   
    
19. End Sub

复制代码

codegay

你需要的是这个
https://www.zhihu.com/question/24265718/answer/27226434

LJY4.0

回复 1# ygqiang
添加语句:set qq = createobject("wscript.shell")