B-CHAT源码 bat聊天软件源码
bat吧
全部回复
仅看楼主
level 2
一楼喂狗
2015年10月24日 13点10分 1
level 2
好吧来分享自己用batch做的聊天工具,运用了ftp技术,用起来有点像e-mail大家看吧,反正带源码……
下面是源码:
@echo off
title B-CHAT v1.0 by 橙子
color f0
mode con lines=25 cols=50
:0
for /f %%a in ('type atr.txt') do set atr=%%a
for /f %%a in ('type port.txt') do set port=%%a
for /f %%a in ('type path.txt') do set pat=%%a
for /f %%a in ('type user.txt') do set user=%%a
for /f %%a in ('type pass.txt') do set pass=%%a
cls
echo B-CHAT
set /p c=请输入(1:发送消息 2:接收消息 3:配置服务器) :
if "%c%"=="1" goto 1
if "%c%"=="2" goto 2
if "%c%"=="3" goto 3
goto 0
:1
if "%atr%" == "null" (
echo 未配置服务器!请先配置服务器!
pause
goto 3
)
set /p num=请输入你的号码:
set /p enum=请输入对方号码:
set /p t=请输入要发送的文字:
echo %t%>t.txt
************完毕****************************************
给各位提供一个公用的服务器:
主机名:sk549.webcname.net
端口:21
路径:/Data
用户名:ftp396318
密码:B-chat0001
谢谢各位捧场!
2015年10月24日 13点10分 2
level 13
好神奇
2015年10月24日 13点10分 3
level 2
额,对不起各位
2015年10月24日 13点10分 4
level 2
代码又问题,而且有很大问题,新代码:
@echo off
title B-CHAT v1.0 by 橙子
color f0
mode con lines=25 cols=50
:0
for /f %%a in ('type atr.txt') do set atr=%%a
for /f %%a in ('type port.txt') do set port=%%a
for /f %%a in ('type path.txt') do set pat=%%a
for /f %%a in ('type user.txt') do set user=%%a
for /f %%a in ('type pass.txt') do set pass=%%a
cls
echo B-CHAT
set /p c=请输入(1:发送消息 2:接收消息 3:配置服务器) :
if "%c%"=="1" goto 1
if "%c%"=="2" goto 2
if "%c%"=="3" goto 3
goto 0
:1
if "%atr%" == "null" (
echo 未配置服务器!请先配置服务器!
pause
goto 3
)
set /p num=请输入你的号码:
set /p enum=请输入对方号码:
set /p t=请输入要发送的文字:
echo %t%>t.txt
echo open %atr%>send.txt
echo %user%>>send.txt
echo %pass%>>send.txt
echo bin>>send.txt
echo put t.txt %pat%/%num%-%enum%.txt>>send.txt
echo bye>>send.txt
ftp -s:send.txt
del send.txt
del t.txt
cls
echo 号码:%num% ---发送给--- 号码%enum%完毕!
pause
cls
goto 0
:2
if "%atr%" == "null" (
echo 未配置服务器!请先配置服务器!
pause
goto 3
)
set /p enum=请输入你的号码:
set /p num=请输入对方号码:
echo open %atr%>get.txt
echo %user%>>get.txt
echo %pass%>>get.txt
echo bin>>get.txt
echo get %pat%/%num%-%enum%.txt g.txt>>get.txt
echo bye>>get.txt
ftp -s:get.txt
cls
echo 收到%num% ---发送给--- 号码%enum%的信息:
for /f %%g in ('type g.txt') do echo %%g
del get.txt
del g.txt
pause
goto 0
:3
set /p atr=请输入ftp服务器主机名:
set /p port=请输入ftp服务器接口:
set /p pat=请输入ftp服务器用于存放聊天文本的完整路径:
set /p user=请输入用户名:
set /p pass=请输入密码:
echo %atr%>atr.txt
echo %port%>port.txt
echo %pat%>path.txt
echo %user%>user.txt
echo %pass%>pass.txt
echo 设置完毕
pause
cls
goto 0
2015年10月24日 13点10分 5
1