@echo off</p> <p>title 局域網(wǎng)聊天工具
color 1f
MODE con: COLS=54 lines=34</p> <p>:choose
cls
echo\
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ ┃
echo ┃ 局域網(wǎng)聊天工具 ┃
echo ┃ copyright by jellord ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo\
echo.
echo ===============================================
echo.
echo 使用本軟件您必須確保您的計算機已經(jīng)啟動了
echo windows信使服務(wù)，否則請按照以下方法開啟:
echo.
echo 1.在運行框中輸入net start messenger;
echo 2.在控制面板中進入計算機管理， 然后進入
echo 服務(wù)程序， 找到messege服務(wù)并啟動之。
echo.
echo ===============================================
echo.</p> <p>
set /p choose=請選擇(1/退出程序啟動信使服務(wù);2/繼續(xù)):
if /i "%choose%"=="1" goto
if /i "%choose%"=="2" goto 2
echo.
echo. ---------輸入錯誤，請重試！----------&&echo.&&pause&&goto choose</p> <p>
:2
cls
echo\
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ ┃
echo ┃ 局域網(wǎng)聊天工具 ┃
echo ┃ copyright by jellord ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo\
echo 正在掃描局域網(wǎng)在線用戶，請稍等...
echo.
echo /////////////////////////////////////////////////////
echo IP 計算機名
setlocal enabledelayedexpansion
net view|find "<a href="file://\\">lan.txt">\\">lan.txt</a>
for /f "usebackq" %%j in ('lan.txt') do (
if "%%~zj"=="0" (
echo 對不起，目前沒有活躍用戶在線！
) else (
for /f "tokens=1" %%i in (lan.txt) do (
set co=%%i
set co=!co:\\=!
ping -w 1 -n 1 !co!|find /I "!co!">ping.txt
for /f "tokens=2,3 delims= " %%a in (ping.txt) do if not "%%b"=="could" echo %%b %%a
for /f "tokens=2,3 delims= " %%a in (ping.txt) do if not "%%b"=="could" echo %%b %%a >>ip.txt
)
)
)
if exist lan.txt del /q lan.txt&if exist ping.txt del /q ping.txt
echo.
echo /////////////////////////////////////////////////////
echo 以上顯示的是目前局域網(wǎng)內(nèi)的在線用戶
echo.</p> <p>rem ============================================================================================
rem 以上斜線之間部分也可以用下面的代碼實現(xiàn)同樣的功能，同時還不會產(chǎn)生臨時性的文本文件。
rem setlocal enabledelayedexpansion
rem net view|find "<a href="file://\\">nul||echo">\\">nul||echo</a> 對不起，目前沒有活躍用戶在線！
rem for /f "tokens=1" %%i in ('net view ^| find "<a href="file://\\"'">\\"'</a>) do (
rem set co=%%i
rem set co=!co:\\=!
rem for /f "tokens=2,3 delims= " %%a in ('ping -w 1 -n 1 !co! ^| find /I "!co!"') do if not %%b"=="could" echo %%b %%a
rem for /f "tokens=2,3 delims= " %%a in ('ping -w 1 -n 1 !co! ^| find /I "!co!"') do if not %%b"=="could" echo %%b %%a>>ip.txt
rem )
rem pause
rem ============================================================================================</p> <p>:user
set /p u=請選擇發(fā)送對象的用戶名或ip(注意大小寫):
echo.
type ip.txt|find "%u%">nul||echo. -----------輸入不在掃描結(jié)果中，請重試！------------&&echo.&&goto user</p> <p>:main
cls
echo.
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ 1: 發(fā)送信息 3: 重新選擇發(fā)送對象 ┃
echo ┃ 2: 查看聊天記錄 4:重新掃描局域網(wǎng) ┃
echo ┃ 0: 退出程序 ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo.
echo 您當(dāng)前正在和 %u% 聊天中...
echo.
set /p c=請做出您的選擇:
if /i "%c%"=="4" del /q ip.txt&&cls&&goto 2
if /i "%c%"=="3" cls&&echo.-----------------------------------------------------&&echo.上次掃描的在線用戶顯示如下:&&type ip.txt&&echo.&&goto user
if /i "%c%"=="0" if exist ip.txt del /q ip.txt&&goto
if /i "%c%"=="2" goto 3
if /i "%c%"=="1" goto work
echo <a>\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\</a>
echo 您的選擇不正確！
echo 請重新選擇
echo <a>\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\</a>
pause
goto main</p> <p>:work
echo.-----------------------------------------------------
set /p m=請輸入你將要發(fā)送的信息:
echo 你于%date% %time%對%u%說: %m%>>messege.txt
echo. 正在發(fā)送信息，請稍等...
net send %u% %m%
pause
goto main</p> <p>:3
echo.-----------------------------------------------------
set /p t=請選擇(1/當(dāng)前窗口顯示;2/新建窗口顯示):
if "%t%"=="1" goto t
if "%t%"=="2" goto s
echo -----------------------------------------------------
echo 錯誤的選擇！
goto 3</p> <p>:t
cls
echo.-----------------------------------------------------
type messege.txt|more&pause
goto main</p> <p>:s
start messege.txt
goto main