傻瓜式设置WANem配置 (点对点网络设置)

开放源码 = =~ 转载借用表明原地址谢谢

之前我们用到怎么配置WANem,下面开放一个傻瓜式工具的源码。

把下列代码拷贝到记事本，修改记事本的后缀名.txt 成 .bat。

然后把这个bat文件拷贝到需要用你的WANem限制的2端PC上

我们称一端为Client端，一端为Server端。

双击这个bat文件就OK啦。

如果系统不包括中文语言包（原装的ENU的XP系统），那请使用下面第2个ENU版的= =～

@echo off
if exist C:\temp.txt del C:\temp.txt
echo 懒人工具之WANem使用设置 ，适用任一语言、任一Win系统Client和Server，自动判断网络环境，一键设置，八心八箭......
set slection1=
set/p slection1=输入你的Client端的IP:
echo %slection1%>C:\temp.txt
for /f "delims=. tokens=3" %%a in (C:\temp.txt) do set x=%%a
del C:\temp.txt
set slection2=
set/p slection2=输入你的Server端(XA or XD)的IP:
echo %slection2%>C:\temp.txt
for /f "delims=. tokens=3" %%a in (C:\temp.txt) do set y=%%a
del C:\temp.txt
set slection3=
set/p slection3=输入你的WANem的IP:
echo %slection3%>C:\temp.txt
for /f "delims=. tokens=3" %%a in (C:\temp.txt) do set z=%%a
del C:\temp.txt
CHOICE /C ASC /M "当前系统是你的Client端选A,是你的Server端(XA or XD)选S,取消选择C"
if %errorlevel% equ 3 goto end
if %errorlevel% equ 2 goto server
if %errorlevel% equ 1 goto client
:client
if %x%==%y% (goto p) else (goto warning)

:p
if %x%==%z% (goto normal) else (goto warningo)

:warning
CHOICE /C YC /M "当前Client端和Server端不在同一网段，强烈建议设置在同一网段，继续选择Y，取消选择C"
if %errorlevel% equ 2 goto end
if %errorlevel% equ 1 goto normalo

:warningo
CHOICE /C YC /M "当前WANem与Server，Client端不在同一网段，强烈建议设置在同一网段，继续选择Y，取消选择C"
if %errorlevel% equ 2 goto end
if %errorlevel% equ 1 goto normalo

:server
echo WANem之Server端设置——
route add %slection1% mask 255.255.255.255 %slection3%
goto end

:normal
echo WANem之Client端设置——
route add %slection2% mask 255.255.255.255 %slection3%
goto end

:normalo
set slection4=
set/p slection4=输入你的Client的Defalut Gateway:
echo WANem之Client端设置——
route add %slection3% mask 255.255.255.255 %slection4%
goto end

:end
echo Good Luck!
pause>nul

ENU版：

@echo off
if exist temp.txt del temp.txt
set slection1=
set/p slection1=Input Client IP:
echo %slection1%>temp.txt
for /f "delims=. tokens=3" %%a in (temp.txt) do set x=%%a
del temp.txt
set slection2=
set/p slection2=Input Server IP:
echo %slection2%>temp.txt
for /f "delims=. tokens=3" %%a in (temp.txt) do set y=%%a
del temp.txt
set slection3=
set/p slection3=Input WANem IP:
echo %slection3%>temp.txt
for /f "delims=. tokens=3" %%a in (temp.txt) do set z=%%a
del temp.txt
CHOICE /C ASC /M "The current system is Client choose A,Server(XA or XD) choose S,Cancel choose C"
if %errorlevel% equ 3 goto end
if %errorlevel% equ 2 goto server
if %errorlevel% equ 1 goto client

:client
if %x%==%y% (goto p) else (goto warning)

:p
if %x%==%z% (goto normal) else (goto warningo)

:warning
CHOICE /C YC /M "The current Client and Server are not in same subnet，suggest to make them in one subnet! Continue:Y，Cancel:C"
if %errorlevel% equ 2 goto end
if %errorlevel% equ 1 goto normalo

:warningo
CHOICE /C YC /M "The current WANem and Server，Client are not in same subnet，suggest to make them in one subnet! ，Continue:Y，Cancel:C"
if %errorlevel% equ 2 goto end
if %errorlevel% equ 1 goto normalo

:server
echo The Configuration of Server:
route add %slection1% mask 255.255.255.255 %slection3%
goto end

:normal
echo The Configuration of Client:
route add %slection2% mask 255.255.255.255 %slection3%
goto end

:normalo
set slection4=
set/p slection4=Input the Defalut Gateway of your Client:
echo The Configuration of Client:
route add %slection3% mask 255.255.255.255 %slection4%
goto end

:end
echo GoodLuck
pause>nul