1 20 50 150 500
欢迎来到存起来软件站,找素材,搜软件,就上存起来软件站!
当前位置 >Home >脚本 >脚本下载 >批处理 >网络相关
局域网聊天工具 bat+vbs版各一个
跳转至下载链接

脚本介绍

这里为大家分享一个局域网聊天工具 bat+vbs版各一个,喜欢研究脚本的朋友可以学习下实现原理。

使用本软件您必须确保您的计算机已经启动了  windows信使服务,否则请按照以下方法开启: 
1.在运行框中输入net start messenger; 
2.在控制面板中进入计算机管理, 然后进入 服务程序, 找到messege服务并启动之。


复制代码代码如下:
@echo off</p><p>title 局域网聊天工具
color 1f
MODE con: COLS=54 lines=34</p><p>:choose
cls
echo
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ ┃
echo ┃ 局域网聊天工具 ┃
echo ┃ copyright by jellord ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo
echo.
echo ===============================================
echo.
echo 使用本软件您必须确保您的计算机已经启动了
echo windows信使服务,否则请按照以下方法开启:
echo.
echo 1.在运行框中输入net start messenger;
echo 2.在控制面板中进入计算机管理, 然后进入
echo 服务程序, 找到messege服务并启动之。
echo.
echo ===============================================
echo.</p><p>
set /p choose=请选择(1/退出程序启动信使服务;2/继续):
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 ┃ 局域网聊天工具 ┃
echo ┃ copyright by jellord ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo
echo 正在扫描局域网在线用户,请稍等...
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 以上显示的是目前局域网内的在线用户
echo.</p><p>rem ============================================================================================
rem 以上斜线之间部分也可以用下面的代码实现同样的功能,同时还不会产生临时性的文本文件。
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=请选择发送对象的用户名或ip(注意大小写):
echo.
type ip.txt|find "%u%">nul||echo. -----------输入不在扫描结果中,请重试!------------&&echo.&&goto user</p><p>:main
cls
echo.
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ 1: 发送信息 3: 重新选择发送对象 ┃
echo ┃ 2: 查看聊天记录 4:重新扫描局域网 ┃
echo ┃ 0: 退出程序 ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo.
echo 您当前正在和 %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=请输入你将要发送的信息:
echo 你于%date% %time%对%u%说: %m%>>messege.txt
echo. 正在发送信息,请稍等...
net send %u% %m%
pause
goto main</p><p>:3
echo.-----------------------------------------------------
set /p t=请选择(1/当前窗口显示;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

警告:运行BAT源码是一种危险的动作,如果你不熟悉,请不要尝试!

下载地址

特别说明:

本站所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

本站为非营利性站点,所有资源均是网上搜集或私下交流学习之用,任何涉及

商业盈利目的均不得使用,否则产生的一切后果将由您自己承担!本站仅仅提供

一个观摩学习的环境,将不对任何资源负法律责任。所有资源请在下载后24小时内删除。若无意中侵犯到您的版权利益,敬请来信联系我们。我们会在收到信息三天内给予处理!

本站提供的普通下载点可能造成多线程类的软件无法下载,建议直接点击或另存为下载!

如有侵犯您的版权,请及时联系513175919#qq.com(#换@),我们将尽快处理。

Top