定时执业任务

J2EE 码拜 7年前 (2015-05-10) 715次浏览 0个评论
 

每隔1分钟 在浏览器中运行 www.abc.com“““

路径都存放在1.txt中
格式
 www.abc.com“““
 www.abc.com“““
 www.abc.com“““
 www.abc.com“““
 www.abc.com“““
怎么写 求指教

Option explicit
Dim fso,fread,str,strarry,linestr,ie,iexplorequit,x,y,i
Set iexplorequit=createobject("WScript.Shell")
""wscript.echo "开始执行"
""==================================判断进程是否存在start=============================
set y = getobject("winmgmts:\.\root\cimv2")
set x = y.execquery("select * from win32_process where name=""iexplore.exe""")
for each i in x
     iexplorequit.Run "taskkill /f /t /im iexplore.exe",0	""结束现有iexplore进程
next
""==================================判断进程是否存在end=============================
wscript.sleep 5*1000	""延迟5秒
Set fso=createobject("scripting.filesystemobject")
Set fread=fso.opentextfile("web9001.txt",1)//在xp中可以运行、移到win7中 就报错 找不到文件 
str=fread.readall
fread.close
If str="" then
	""wscript.echo "file   have   not   any   content"
	wscript.quit
End if
strarry=split(str,vbcrlf)
For Each linestr In strarry
	""wscript.echo linestr	""这里是用echo显示每一行的内容,你可以根据自己的需要做别的处理
	set ie=createobject("internetexplorer.application")
	""ie.visible=1
	ie.navigate linestr
	wscript.sleep 1*1000	""延迟1秒
	""ie.quit
Next
wscript.sleep 5*1000	""延迟5秒
iexplorequit.Run "taskkill /f /t /im iexplore.exe",0	""结束所有iexplore进程
""wscript.echo "执行完毕"
wscript.quit
Set iexplorequit=Nothing
Set ie=Nothing
Set fso=Nothing

定时执业任务

@echo off
for /f "delims=" %%i in (web.txt) do (
start /min "" "%programfiles%\Internet Explorer\iexplore.exe" "%%i"
for /l %%j in (1,-1,1) do (
cls
echo        倒计时  %%j  秒后打开下一个网页...
ping 127.1 -n 2 >nul
))
taskkill /f /t /im iexplore.exe

web.txt中数据有200条 电脑就反应不过来了!  还有没有其他方法解决

40分
发错 板块了

CodeBye 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权 , 转载请注明定时执业任务
喜欢 (0)
[1034331897@qq.com]
分享 (0)

文章评论已关闭!