[讨论]VBS循环关闭QQ登录后广告弹窗

jjmmrr

关闭QQ登录后广告弹窗

'关闭第一个窗口.vbs 文件
do
set qq=createobject("wscript.shell")
wscript.sleep 1000
if qq.appactivate("手机玩QQ") = true then
qq.sendkeys "%{f4}"
end if

wscript.sleep 5000
qq.run "taskkill /im wscript.exe /f",vbhide
loop
==============================================
'关闭第二个窗口.vbs 文件
do
set qq=createobject("wscript.shell")
wscript.sleep 1000
if qq.appactivate("无线QQ使用向导") = true then
qq.sendkeys "%{f4}"
end if
wscript.sleep 5000
qq.run "taskkill /im wscript.exe /f",vbhide
loop

****************************************************************************

关闭QQ登录后广告弹出窗口

循环关闭窗口后.在指定时间内退出wscript.exe 进程(因为我是一次批量登陆8个QQ号码.一下子弹窗不会马上弹出来)

把上面关闭2个窗口.vbs代码。写成一个关闭窗口.vbs文件(小弟不懂的写循环语句,请高手接招)

111 - 记事本
222 - 记事本
本来想用记事本。让楼下的网友帮我做测试.看来我想法错了。

[ 本帖最后由 jjmmrr 于 2010-6-9 00:57 编辑 ]

jjmmrr

wndws = array("手机玩QQ", "无线QQ使用向导")
set qq = createobject("wscript.shell")
for each wndw in wndws
  do
    wscript.sleep 1000
    isExists = qq.appactivate(wndw)
    wscript.sleep 36
    if isExists then
      qq.sendkeys "%{f4}"
    end if
  loop while isExists
next
wscript.sleep 36000 '原500 改成1分钟,因为我是一次批量登陆8个QQ号码.一下子弹窗不会马上弹出来.
wscript.quit


兄弟 Spring 在帮小弟修改下代码。十分感谢!


失效：打开关闭窗口.vbs文件 ,登陆QQ后弹出广告窗，弹窗不能自动关闭。
有效：登陆QQ后弹出广告窗,在打开关闭窗口.vbs文件,能关掉广告窗。



[ 本帖最后由 jjmmrr 于 2010-6-10 11:12 编辑 ]

jjmmrr

看来是理解有误，难道你说的“在指定时间内退出wscript.exe 进程”的意思是在“指定的时间”内这个脚本还在继续干活，看到有窗口弹出就关闭它，然后到时间了再退出？


兄弟你正解我的意思.谢了，希望您在修改下代码。

一次批量登陆8个QQ号码后，弹出广告窗总共16个广告窗口。不是同一时间弹出16个QQ广告的，所以要wscript.exe 驻留进程，
在循环关闭QQ广告窗口，然后在指定时间内退出 wscript.exe 进程(省去手工关闭进程)？