定时执业任务

充电中 2015-04-22 03:14:37
每隔1分钟 在浏览器中运行 www.abc.com``````

路径都存放在1.txt中
格式
www.abc.com``````
www.abc.com``````
www.abc.com``````
www.abc.com``````
www.abc.com``````
怎么写 求指教
...全文
150 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
liangtu 2015-04-22
  • 打赏
  • 举报
回复
发错 板块了
充电中 2015-04-22
  • 打赏
  • 举报
回复

@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条 电脑就反应不过来了!!! 还有没有其他方法解决
充电中 2015-04-22
  • 打赏
  • 举报
回复

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


67,512

社区成员

发帖
与我相关
我的任务
社区描述
J2EE只是Java企业应用。我们需要一个跨J2SE/WEB/EJB的微容器,保护我们的业务核心组件(中间件),以延续它的生命力,而不是依赖J2SE/J2EE版本。
社区管理员
  • Java EE
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧