返回列表 发新帖

[求助] 如何将网址的内容用VBS或其它方式变为文本自动输出呢

[复制链接]
发表在  2010-5-9 19:42:31  | 显示全部楼层 | 阅读模式
http://www.ip138.com/ip2city.asp
如果将上面的网页内容输出为文本呢?
强调自动,不要手动的
请大家帮忙一下喽
发表于 2010-5-11 11:58:44  | 显示全部楼层
无高手解决一下吗
发表于 2010-5-13 09:14:57  | 显示全部楼层
Pzz无高手
发表于 2010-5-13 09:26:40  | 显示全部楼层
asdsadsa
发表于 2010-5-13 10:53:31  | 显示全部楼层
打开这网页,另存到桌面,运行这个
@echo off
if exist view.txt del/f/s view.txt
type ip2city.asp >>view.txt
pause
就可以了
发表于 2010-5-14 23:42:19  | 显示全部楼层
引用第4楼zyfsky于2010-05-13 10:53发表的  :
打开这网页,另存到桌面,运行这个
@echo off
if exist view.txt del/f/s view.txt
type ip2city.asp >>view.txt
pause
.......

唉,这个还是要打开网页另存的,有没有方法不用另存,一个动作就OK的
发表于 2010-5-14 23:57:52  | 显示全部楼层
Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")o Until oDOM.readyState="complete":WScript.sleep 200oop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing

新找到的, 这个是VBS,这个就自动能输出IP.这个怎么多一个输入文本呢?
发表于 2010-5-15 00:01:30  | 显示全部楼层
@echo off
echo 正在连接,请稍等...
>Getip.vbs echo Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")o Until

oDOM.readyState="complete":WScript.sleep 200oop:WScript.echo

oDOM.documentElement.outerText:Set oDOM=nothing
for /f "tokens=2 delims=[]" %%i in ('"cscript //nologo Getip.vbs"') do echo 你的外网 IP

是: %%i >1.txt
pause

感谢版主,这个已经解决
发表于 2012-3-13 16:41:21  | 显示全部楼层

澳洲论文代写,代写质量保证,交付准时

您好,是否觉得生活被考试,扎堆的assignment压的喘不过气来?如果您想改变这个糟糕的情况,请联系我们auassignment代写帮您解决您的困扰,服务热情,质量保证,交付准时。详细联系QQ:1340789765、、445330861,如有打扰,敬请谅解!!~
回复 支持 反对

使用道具 举报

发表于 2016-7-4 21:55:02  | 显示全部楼层
lmy20081984 发表于 2010-5-11 11:58
无高手解决一下吗

回复 支持 反对

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 马上加入

本版积分规则