中国DOS联盟

首先说明一下，本程序有一个小问题，就是代码要分两个文件才能运行，要是少一个就不能运行，哪个会的高手请帮下忙合成一个，另外就是第二个代码是盗版的别人的，我也不太懂的，不过第一个是我自己完成的，刚写完大家分享下。
本机IP查看器.bat
@echo off
mode con cols=60 lines=25
title 查看本机在外网IP
echo.
set p138=0
:ptry
if %p138%==5 goto pfail
set /a p138=%p138%+1
echo 测试网络连接...
ping -n 1 www.ip138.com>nul
if errorlevel 1 (echo 网络连接失败!&goto ptry)
echo 网络连接成功!
if not exist netip.cmd (echo netip.cmd文件不存在，请重新安装!&pause>nul&exit)
if exist ip.ini del ip.ini
call netip.cmd
echo 获取本机外网IP成功!
for /f %%i in (ip.ini) do set netip=%%i
if not exist iphistory.ini (set numhis=0&goto his)
for /f %%i in (iphistory.ini) do set num=%%i
set numhis=%num:~0,1%
set /a hiserror=%num:~0,2%+1 2>nul
if errorlevel 1 goto his
set numhis=%num:~0,2%
set /a hiserro2=%num:~0,3%+1 2>nul
if errorlevel 1 goto his
set numhis=%num:~0,3%
:his
set /a numhis=%numhis%+1
echo %numhis%. %date:~0,10% %time:~0,8% %netip% >>iphistory.ini
del ip.ini
echo 本机外网IP为：%netip%
set historyip=0
set /p historyip=查看历史IP记录(H):
if /i %historyip%==h type iphistory.ini|more
pause>nul&exit
:pfail
echo 网络连接五次不成功，按任意键退出!&pause>nul&exit
echo 文件(本机IP查看器.bat)安装完成!


netip.cmd（此文件名不要更改，并和上面的文件放到同一文件夹）
@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>ip.ini
echo >nul && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")
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


哪个有好的更改意见请提出来，另代码有什么问题也提出来

Last edited by fe19880919 on 2010-6-14 at 12:22 ]

有必要发两个帖子么？
http://www.cn-dos.net/forum/viewthread.php?tid=51599

楼主不会合并，是因为楼主不熟悉more的用法。

回HAT：
写出分享主要是吸引人看的，关键在于想有人帮忙把两个合成一个，但是我实在做不了，只能用这个办法了。

没具体看楼主的代码，直接合并：

@echo off

mode con cols=60 lines=25

title 查看本机在外网IP

echo.

set p138=0

:ptry

if %p138%==5 goto pfail

set /a p138=%p138%+1

echo 测试网络连接...

ping -n 1 www.ip138.com>nul

if errorlevel 1 (echo 网络连接失败!&goto ptry)

echo 网络连接成功!

if exist ip.ini del ip.ini

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

cscript //NoLogo /e:vbscript tmp.vbs %1>ip.ini

echo >nul && del tmp.vbs

echo 获取本机外网IP成功!

for /f %%i in (ip.ini) do set netip=%%i

if not exist iphistory.ini (set numhis=0&goto his)

for /f %%i in (iphistory.ini) do set num=%%i

set numhis=%num:~0,1%

set /a hiserror=%num:~0,2%+1 2>nul

if errorlevel 1 goto his

set numhis=%num:~0,2%

set /a hiserro2=%num:~0,3%+1 2>nul

if errorlevel 1 goto his

set numhis=%num:~0,3%

:his

set /a numhis=%numhis%+1

echo %numhis%. %date:~0,10% %time:~0,8%  %netip% >>iphistory.ini

del ip.ini

echo 本机外网IP为：%netip%

set historyip=0

set /p historyip=查看历史IP记录(H):

if /i %historyip%==h type iphistory.ini|more

pause>nul&exit

:pfail

echo 网络连接五次不成功，按任意键退出!&pause>nul&exit

echo 文件(本机IP查看器.bat)安装完成!

goto:eof

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

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

问五楼个问题，<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>ip.ini
echo >nul && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")
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
是什么意思，怎么用的，有没有相关的教程或是能粗略的说下大概意思更好。

Originally posted by fe19880919 at 2010-6-19 15:56:
问五楼个问题，
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>ip.ini
echo >nul && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")
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
是什么意思，怎么用的，有没有相关的教程或是能粗略的说下大概意思更好。

这里使用more命令的+n参数，显示由 n 指定的行开始的第一个文件。即跳过前n行，很显然这里该写成more +4，5的话将丢失set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")这行。

Originally posted by Hanyeguxing at 2010-6-14 15:02:
没具体看楼主的代码，直接合并：

@echo off

mode con cols=60 lines=25

title 查看本机在外网IP

echo.

set p138=0

:ptry

if %p138%==5 goto pfail

set /a p138=%p138%+1

echo ... 




cscript //NoLogo /e:vbscript tmp.vbs %1>ip.ini

请问这里的%1是指哪里？

调用这段代码的第一个参数

Originally posted by genteman at 2010-6-21 19:27:
调用这段代码的第一个参数

实在没看不出来第一个参数在那，把%1去掉也能显示正确的结果。
echo >nul && del tmp.vbs 这个echo >nul有什么作用，去掉也能显示正确结果，请指教。