UC知道会VBS的帮看下~谢谢
来源：百度知道 编辑：UC知道 时间：2024/09/20 19:48:03
1）
Set objIE=CreateObject("InternetExplorer.Application")
objIE.Navigate("www.baidu")
WScript.Sleep 2000
Set wmi=GetObject("winmgmts:\\.")
Set pro_s=wmi.instancesof("win32_process")
For Each p In pro_s
if p.name="iexplore.exe" then p.terminate()
next
=====================
以上如何实现循环？
2）
第一部分保存为1.vbs
再写个vbs实现关闭1.vbs
Set objws=WScript.CreateObject("wscript.shell")
objws.RUN "stkill 1.vbs"
=========================
这样对么？不对如何修改？
高分追加！RP担保！
打开http://toupiao.cnr.cn/sur/wbh/vt_processot.asp?id=57时候会出现个对话框
直接objIE.Quit是退不掉的
=============
第一个我也试过加DO和loop
但是貌似有问题。。。。
Set objIE=CreateObject("InternetExplorer.Application")
objIE.Navigate("www.baidu")
WScript.Sleep 2000
Set wmi=GetObject("winmgmts:\\.")
Set pro_s=wmi.instancesof("win32_process")
For Each p In pro_s
if p.name="iexplore.exe" then p.terminate()
next
=====================
以上如何实现循环？
2）
第一部分保存为1.vbs
再写个vbs实现关闭1.vbs
Set objws=WScript.CreateObject("wscript.shell")
objws.RUN "stkill 1.vbs"
=========================
这样对么？不对如何修改？
高分追加！RP担保！
打开http://toupiao.cnr.cn/sur/wbh/vt_processot.asp?id=57时候会出现个对话框
直接objIE.Quit是退不掉的
=============
第一个我也试过加DO和loop
但是貌似有问题。。。。
这样子效率高的多....全部代码通过测试~
第一个:
do
Set ws=createobject("wscript.shell")
ws.run"iexplore.exe http://toupiao.cnr.cn/sur/wbh/vt_processot.asp?id=57"
WScript.Sleep 2000
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='iexplore.exe' or name='IEXPLORE.EXE'")
For Each id In pipe
IF instr(1,ID.commandline,"http://toupiao.cnr.cn/sur/wbh/vt_processot.asp?id=57") then
id.terminate()
end if
Next
wscript.sleep 1000
loop
第二个:
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process whe