中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 讨论完善新的外网IP获取

English/Chinese Fix Translation

作者:

标题: 讨论完善新的外网IP获取

上一主题 | 下一主题

hackiller
初级用户

积分 39
发帖 16
注册 2006-12-16
状态离线

『楼主』: 讨论完善新的外网IP获取使用 LLM 解释/回答一下

原来那个外网IP获取是通过swz8.com网站提取的
现在这网站已经关了小弟从ip138找到了它的IP获取页面
但文字处理上俺不大会请帮忙完善

@echo off
title 获取本机内网和外网IP
if exist ip2city.asp del ip2city.asp
if exist ip.txt del ip.txt
if exist 1.txt del 1.txt
if exist 2.txt del 2.txt
wget http://www.ip138.com/ip2city.asp
ren ip2city.asp 1.txt
此时1.txt内容为



<html>

<head>

<meta http-equiv="content-type" content="text/html; charset=gb2312">

<title> 您的IP地址 </title>

</head>

<body style="margin:0px"><center>您的IP地址是： 来自：湖南省株洲市 电信</center></body></html>

以下再用SED提取

sed -r "s/(+\.+\.+\.+).*/\n\1/;s/^.*\n//" 1.txt >2.txt
for /f %%i in (2.txt) do set i=%%i
echo %i% >ip.txt
start ip.txt

IP.txt内容为

1.1.1.1空格接回车

我是新手请高手帮忙精简完善去掉IP.TXT的空格接回车

The original that the external network IP acquisition was through the swz8.com website extraction
Now this website has been closed. The younger brother found its IP acquisition page from ip138
But I don't know much about text processing. Please help improve it

@echo off
title Get local intranet and external network IP
if exist ip2city.asp del ip2city.asp
if exist ip.txt del ip.txt
if exist 1.txt del 1.txt
if exist 2.txt del 2.txt
wget http://www.ip138.com/ip2city.asp
ren ip2city.asp 1.txt
At this time, the content of 1.txt is



<html>

<head>

<meta http-equiv="content-type" content="text/html; charset=gb2312">

<title> Your IP address </title>

</head>

<body style="margin:0px"><center>Your IP address is:  From: Zhuzhou City, Hunan Province Telecom</center></body></html>

The following is to extract with SED

sed -r "s/(+\.+\.+\.+).*/\n\1/;s/^.*\n//" 1.txt >2.txt
for /f %%i in (2.txt) do set i=%%i
echo %i% >ip.txt
start ip.txt

The content of IP.txt is

1.1.1.1 space followed by carriage return

I'm a novice. Please help the master to simplify and improve, and remove the space followed by carriage return in IP.TXT

2008-1-7 11:00

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

hackiller
初级用户

积分 39
发帖 16
注册 2006-12-16
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

很多去空格和回车的代码我试了没效果

2008-1-7 11:03

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

junchen2
高级用户

积分 537
发帖 219
注册 2007-8-4
来自杭州--半山
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

sed "s/[ |\t]\+$//" ip.txt

2008-1-7 11:18

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

hackiller
初级用户

积分 39
发帖 16
注册 2006-12-16
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

Originally posted by junchen2 at 2008-1-7 11:18 AM:
sed "s/\+$//" ip.txt

sed "s/\+$//" ip.txt >1.txt
空格变成了黑块回车还是回车

2008-1-7 11:21

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

hackiller
初级用户

积分 39
发帖 16
注册 2006-12-16
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

在网上找到一个VBS的
但结果也不是纯数字

set http=createobject("Microsoft.XMLHTTP")

ipp="http://www.ip138.com/ip2city.asp"

http.open "get",ipp,false

http.send

ss=bytes2BSTR(Http.responsebody)

ss=Replace(ss,vbcrlf,"")

Set re = New RegExp

re.Pattern = "(.+valign=""top"">)(.+\d+\.\d+\.\d+\.\d+)(.+)"

re.Global = True

re.IgnoreCase = True

re.MultiLine = True

rv = re.Replace(ss,"$2")

msgbox rv

Function bytes2BSTR(vIn)

     strReturn = ""

     For i = 1 To LenB(vIn)

         ThisCharCode = AscB(MidB(vIn,i,1))

         If ThisCharCode < &H80 Then

             strReturn = strReturn & Chr(ThisCharCode)

         Else

             NextCharCode = AscB(MidB(vIn,i+1,1))

             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

             i = i + 1

         End If

     Next

     bytes2BSTR = strReturn

End Function

Found a VBS online
But the result is not all numbers

set http=createobject("Microsoft.XMLHTTP")

ipp="http://www.ip138.com/ip2city.asp"

http.open "get",ipp,false

http.send

ss=bytes2BSTR(Http.responsebody)

ss=Replace(ss,vbcrlf,"")

Set re = New RegExp

re.Pattern = "(.+valign=""top"">)(.+\d+\.\d+\.\d+\.\d+)(.+)"

re.Global = True

re.IgnoreCase = True

re.MultiLine = True

rv = re.Replace(ss,"$2")

msgbox rv

Function bytes2BSTR(vIn)

     strReturn = ""

     For i = 1 To LenB(vIn)

         ThisCharCode = AscB(MidB(vIn,i,1))

         If ThisCharCode < &H80 Then

             strReturn = strReturn & Chr(ThisCharCode)

         Else

             NextCharCode = AscB(MidB(vIn,i+1,1))

             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

             i = i + 1

         End If

     Next

     bytes2BSTR = strReturn

End Function

2008-1-7 11:33

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

for /f "delims= tokens=2" %a in ('wget -qO- http://www.ip138.com/ip2city.asp^|findstr /rc:"\*\]"') do @set/p=my ip is <nul>1.txt

2008-1-7 12:44

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 7 楼』: 使用 LLM 解释/回答一下

用VBS获取：

@echo off

echo 正在连接，请稍等...

>Getip.vbs echo Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp"):Do Until oDOM.readyState="complete":WScript.sleep 200:Loop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing

for /f "tokens=2 delims=" %%i in ('"cscript //nologo Getip.vbs"') do echo 你的外网 IP 是: %%i

del Getip.vbs

pause

VBS部分就是（一定要有WScript.sleep 200延时部分，否则会占用99%系统资源及长时间得不出数据）：

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")

Do Until oDOM.readyState="complete"

WScript.sleep 200

Loop

WScript.echo oDOM.documentElement.outerText

Set oDOM=nothing

Last edited by zh159 on 2008-1-7 at 01:49 PM ]

Get IP using VBS:

@echo off

echo Connecting, please wait...

>Getip.vbs echo Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp"):Do Until oDOM.readyState="complete":WScript.sleep 200:Loop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing

for /f "tokens=2 delims=" %%i in ('"cscript //nologo Getip.vbs"') do echo Your external network IP is: %%i

del Getip.vbs

pause

The VBS part is ( There must be a WScript.sleep 200 delay part, otherwise it will occupy 99% system resources and not get data for a long time ):

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")

Do Until oDOM.readyState="complete"

WScript.sleep 200

Loop

WScript.echo oDOM.documentElement.outerText

Set oDOM=nothing

Last edited by zh159 on 2008-1-7 at 01:49 PM ]

2008-1-7 13:44

查看资料发短消息网志

编辑帖子回复引用回复

yagu1648
新手上路

积分 2
发帖 1
注册 2006-12-18
状态离线

『第 8 楼』: 使用 LLM 解释/回答一下

for /f "skip=6 delims= tokens=2" %%a in ('wget -qO- http://www.ip138.com/ip2city.asp') do set IP=%%a&echo %IP:~0,-2%>IP.txt

回车不好去。。。

2008-8-29 23:30

查看资料发短消息网志

编辑帖子回复引用回复

pighead123
初级用户

积分 42
发帖 23
注册 2006-2-13
状态离线

『第 9 楼』: 使用 LLM 解释/回答一下

for /f "delims= tokens=2" %%a in ('wget -qO- http://www.ip138.com/ip2city.asp^|findstr /rc:"\*\]"') do @set/p=%%a<nul>1.txt

纯数字

版主那个已经给出答案了

Last edited by pighead123 on 2008-12-8 at 19:16 ]

for /f "delims= tokens=2" %%a in ('wget -qO- http://www.ip138.com/ip2city.asp^|findstr /rc:"\*\]"') do @set/p=%%a<nul>1.txt

Pure numbers

The moderator has already given the answer

Last edited by pighead123 on 2008-12-8 at 19:16 ]

我是allyesno 帐号忘记密码了妈的

2008-12-8 19:06

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

ily2013
中级用户

积分 247
发帖 83
注册 2005-9-12
状态离线

『第 10 楼』: 使用 LLM 解释/回答一下

我的是这样的
curl http://members.3322.org/dyndns/getip
以前也是在ip138获取，不过分析ip出来麻烦了点

2008-12-9 15:19

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: