迈思工作室 - 电脑技术专业论坛!

 找回密码
 马上加入

扫一扫,访问微社区

查看: 5425|回复: 9

[求助] 如何将网址的内容用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
无高手解决一下吗

回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|小黑屋|手机版|迈思工作室 ( 闽ICP备05021721号 )

GMT+8, 2018-2-23 12:10

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表