【尝试】局域网即时通讯批处理
cmd吧
全部回复
仅看楼主
level 7
6yan2 楼主
1.原理:
用txt和文件夹保存用户信息和聊天记录(我不会处理字符串)
做两个批处理,一个获取消息,一个显示消息。
我编的注册部分是要审核(管事的自己打开txt看一下然后手动添加新用户)
2.准备:
(1)首先准备一个文件夹,名字任意(有局域网放到共享里,没有就放本地),以"d:\123\"为例
在里面创建"jd"、"jy"、"pass"、"user"四个文件夹
(2)在"user"文件夹里创建若干文件,格式为“用户名.mv”
用记事本打开这些文件,写上该用户的昵称
(3)在"pass"文件夹里创建一个以刚才用户名为名的文件夹,在文件夹里创建一个文件,格式为:"密码.mv"
(4)如果有某个用户要禁止登陆,就在"jd"里创建文件"用户名.mv"
禁止发言就放在"jy"里
(5)有人注册就会记录在"reg.txt"里,打开后如果有记录,按照上面方法创建新用户(也可以更改bat源码,不审核直接创建)
(6)如果需要发公告,就做一个bbs1.bat,放到文件目录里(d:\123\),纯echo即可
如果是需要登录才能看到的公告,就命名bbs2.bat
(7)创建一个bat(任意命名),写入源码,注意把里面目录地址改成自己的地址(如d:\123)一定注意最后不要有那个斜杠!!
2012年04月02日 14点04分 1
level 7
6yan2 楼主
3.源码
======================================
@echo off
mode con cols=60 lines=8
color F0
set pth=k:\mv\qq
:login
title 微音QQ登录
cls
if exist %pth%\bbs1.bat start %pth%\bbs1.bat
set qquser=0
set qqpass=0
echo 请输入用户名(注册请直接回车)
set /p qquser=
if %qquser%==0 goto reg
cls
echo 请输入密码:
set /p qqpass=
:check
cls
if not exist %pth%\user\%qquser%.mv goto error1
if not exist %pth%\pass\%qquser%\%qqpass%.mv goto error2
goto start
:error1
echo 无此用户!按任意键重输
pause>nul
goto login
:error2
echo 密码错误!按任意键重输
pause>nul
goto login
:start
title 微音QQ
:start2
if exist %pth%\bbs2.bat start %pth%\bbs2.bat
:start3
if exist %pth%\jd\%qquser%.mv goto jd
start %pth%\ech.bat
:start4
if exist %pth%\jy\%qquser%.mv goto jy
echo.>%pth%\usertmp\%qquser%.txt
:input
cls
set mess=123698745
echo Ctrl+Shift切换输入法,一次不要输入过多拼音,禁止英文双引号,程序卡住或崩溃请重登录,消息内容:
set /p mess=
if %mess%==123698745 goto input
type %pth%\user\%qquser%.mv>%pth%\usertmp\%qquser%.txt
echo 于>>%pth%\usertmp\%qquser%.txt
date /t>>%pth%\usertmp\%qquser%.txt
time /t>>%pth%\usertmp\%qquser%.txt
echo 说:>>%pth%\usertmp\%qquser%.txt
set var=
for /f "delims=" %%i in (%pth%\usertmp\%qquser%.txt) do call set var=%%var%%%%i
echo.>%pth%\usertmp\%qquser%.txt
echo %var%>>%pth%\meme.mv
echo %mess%>>%pth%\meme.mv
echo.>>%pth%\meme.mv
goto input
:jd
cls
echo 您的帐号禁止登录,请与管理员联系。
pause>nul
goto login
:jy
cls
echo 您的帐号禁止发言,请与管理员联系。
pause>nul
goto jy
:reg
title 微音QQ注册
cls
echo 注册请勿中途退出,否则失败。
:reg1
set reguser=0
set /p reguser=用户名:
if exist %pth%\user\%reguser%.mv goto reg2
goto reg3
:reg2
cls
echo 用户已存在!任意键重输
pause>nul
goto reg1
:reg3
cls
set /p regpass=密码:
set /p regpasst=再次输入密码:
if %regpass%==%regpasst% goto reg4
echo 密码不一致!任意键重输
pause>nul
goto reg3
:reg4
cls
echo 姓名:
echo 请准确填写,否则审核失败
set /p regname=
cls
echo %regname%申请:用户名%reguser% 密码%regpass%>>%pth%\reg.txt
echo 请等候管理员审核,一般1^~2天内可以正常使用,审核结果请关注程序启动时的通知,按任意键返回
pause>nul
goto login

2012年04月02日 14点04分 2
level 7
6yan2 楼主
在QQ文件夹里再创建一个ech.bat,代码:
@echo off
title QQ显示
mode con cols=60 lines=25
color F0
set pth=k:\mv\qq
:a
cls
if exist %pth%\meme.mv goto b
echo 无记录!!
goto c
:b
type %pth%\meme.mv
:c
ping /n 3 127.1>nul
goto a
================代码结束
这两段代码中的“k:\mv\qq”都替换成自己的地址
2012年04月02日 14点04分 3
level 7
顶了,支持分享
2012年04月08日 13点04分 4
level 7
6yan2 楼主
这样表述太麻烦了点,下回我改进一个
2012年05月07日 13点05分 5
1