shell命令批量访问url（谁会写个VBS脚本批量获取URL地址源代码内容）
本文目录
谁会写个VBS脚本批量获取URL地址源代码内容
Dim fso,ts,s
set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("D:\url.txt" , 1) ’url.txt 放在 D盘
Do Until ts.AtEndOfStream
s = ts.ReadLine
if len(s) 》 1 then ’非空行
’msgbox s
url_tmp = Trim(s) ’去两端空格
’msgbox url_tmp
date_str = get_url(url_tmp)
’msgbox date_str
export_str url_tmp & " " & date_str & chr(13) & chr(10)
end if
loop
ts.Close
set WshShell = nothing
set fso = nothing
set ts = nothing
msgbox "运行结束!"
Function get_url(url)
***隐藏网址***
***隐藏网址***
***隐藏网址***
***隐藏网址***
***隐藏网址***
***隐藏网址***
get_url = "error" ’获取失败
else
***隐藏网址***
end if
***隐藏网址***
End Function
Sub export_str(str_e)
dim fs,exp_File
set fs = createobject("scripting.filesystemobject")
Set exp_File = fs.opentextfile("d:\url_date.txt",8,true) ’结果也在D盘
exp_File.write str_e
exp_File.close
set fs = nothing
Set exp_File = nothing
End Sub
shell中怎么批量执行命令
将要执行的命令全部写入一个文件（俗称脚本文件），然后执行脚本文件即可。
注意：假设脚本文件名为test.sh（后缀不必要，只是为了清楚表明是脚本文件），那么在执行脚本文件前，要用 chmod +x test.sh 赋予其可执行权限。然后才能像执行命令那样执行脚本。
--------------------
多台服务器跟一台服务器的操作类似，通信协议和操作方式都是相同的，只是IP地址不同。
所以只要写一个循环，
for ip in $ip1 $ip2 $ip3
do
使用 $ip 做服务器操作
done
如何使用shell 批量ping域名，生成一个结果文件
脚本：
#!/bin/sh
filename=domains.txt
ping_count=3
while read domain; do
x=$(ping -W 1 -c $ping_count $domain 2》/dev/null | grep -E "(PING)|(loss)")
loss=$(echo "$x" | grep "loss" | awk ’{printf "%s", substr($6, 1, length($6)-1)}’)
if ; then
echo "$x" | grep "PING" | awk ’{printf "%s no ping\n", $2}’
else
echo "$x" | grep "PING" | awk ’{printf "%s %s\n", $2, substr($3, 2, length($3)-2)}’
fi
done 《$filename
可适当调整每个域名 ping 的次数（ping_count），以保证准确度和性能。
数据文件：
cat domains.txt
www.baidu.com
www.taobao.com
www.qq.com
www.baidud.com
结果：
www.baidu.com 14.215.177.38
www.taobao.com 183.61.241.252
www.qq.com 59.37.96.63
www.baidud.com no ping
另：我理解那个“地名”应该是“域名”误写，如果真的需要地名，可以借助 whois 命令，甚至 IP 数据库（比如纯真数据库）。
求bat或vbs脚本，批量打开网页！！
set fso = createobject("scripting.filesystemobject")
set urlfile = fso.opentextfile("这里是保存网址的文本文件具体地址")
url = urlfile.readall
urlfile.close
url = split(url,vbcrlf)
set ws = createobject("wscript.shell")
for each u in url
ws.run u
wscript.sleep 1000*5
next
差不多就这样吧，我也没测试，你试试行不行。
更多文章：
delete where（mysql delete中where后能套用select么）
2026年7月11日 03:15
php+mysql动态网站开发黑马程序员（PHP+MySQL能做什么）
2025年8月12日 02:15
眼镜王蛇去毒腺（大理工地发现巨型眼镜王蛇，关于这种蛇你知道多少呢）
2026年8月17日 03:45
静态页面免费下载（怎么样能把网站上的动态网页保存下来完全成为静态网页）
2026年2月24日 05:45
大疆mini2开启fcc教程（请问大疆mini遥控器能充电吗）
2026年6月7日 22:45
mocha javascript（javascript用什么开发工具）
2025年7月17日 04:30
为什么安装了silverlight用不了（为什么下载安装完成silverlight双击点开还是打不开，只会跳出这个页面）
2025年5月24日 20:45
directionsforuse什么意思中文（英语考试directions是什么）
2025年12月10日 02:45
century love 世纪情歌（张学有 有咩好听ge 歌）
2026年1月4日 21:15
2025年6月18日 04:15
2026年5月2日 04:15
2025年9月1日 09:15
2025年9月8日 23:00
2026年5月6日 20:30
2026年1月2日 01:00
2026年8月30日 13:30
2025年11月13日 15:30
2025年6月3日 01:30
linux常用命令chmod的使用（Linux chmod命令及权限的理解）
2026年1月21日 17:15
