中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何获取外网IP,急,在线等~~

作者:

标题: 如何获取外网IP,急,在线等~~

上一主题 | 下一主题

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

『楼主』: 如何获取外网IP,急,在线等~~ 使用 LLM 解释/回答一下

如何获取外网IP,不管你现在是否在外网~~
最好能上传到指定FTP,或有更好的方法也可以~~

2007-4-7 06:04

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

编辑帖子回复引用回复

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

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

没有人会吗
还是我的问题太难了~~~

2007-4-7 06:27

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

编辑帖子回复引用回复

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

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

@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1
pause && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/")

do until oDOM.readyState = "complete"
WScript.sleep 200
Loop

s=oDOM.all(51).innerText
WScript.Echo Right(s,Len(s)-6)

有人能把这些改一下嘛``
好你不能用了

2007-4-7 06:49

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

编辑帖子回复引用回复

estar
中级用户

积分 346
发帖 103
注册 2004-4-6
状态离线

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

GetIP.bat



@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

echo ' >nul && del tmp.vbs

goto:eof

set oDOM = WScript.GetObject("http://www.ip138.com/")



do until oDOM.readyState = "complete"

WScript.sleep 200

Loop

s=oDOM.documentElement.innerText

set re = New RegExp

re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"

For Each m in re.Execute(s)

WScript.Echo m

Next