[HWT]批处理网络通讯系统 - bat吧

level 10

赖浩文1 楼主

测试
镇楼

2016年06月26日 03点06分 1

level 10

赖浩文1 楼主

原理下图

可配合我的通讯第三方SF 实现网络通讯

2016年06月26日 03点06分 2

level 10

赖浩文1 楼主

::数据收发系统------
::接收系统
:接收数据包
set 通讯超时=160
set 连接数据=
:检测数据包
if "%通讯超时%"=="0" goto 连接超时
if not exist tool\m\数据.db set /a 通讯超时=%通讯超时%-1&&goto 检测数据包
for /f "tokens=1*delims=:" %%i in ('findstr/n . tool\m\数据.db ^| findstr/b 1') do (
set 连接数据=%%j
)
if "%连接数据%"=="数据发送" goto 接收数据流
set /a 通讯超时=%通讯超时%-1
goto 检测数据包
:接收数据流
for /f "tokens=1*delims=:" %%i in ('findstr/n . tool\m\数据.db ^| findstr/b 1') do (
set 连接数据=%%j
)
if "%连接数据%"=="发送完成" goto 处理接收数据包
if "%连接数据%"=="数据发送" goto 接收数据流
if "%连接数据%"=="%连接数据2%" goto 接收数据流
set 连接数据2=%连接数据%
echo %连接数据% >>接收.txt
echo %连接数据%
goto 接收数据流
:处理接收数据包
for /f "tokens=1*delims=:" %%i in ('findstr/n . 接收.txt ^| findstr/b 1') do (
set 处理接收数据包行数=%%j
)
for /f "tokens=2 delims=:" %%a in ('find /c /v "" 接收.txt')do set/a 处理接收数据包行数2=%%a+1
goto %数据接收完成去哪里%
::接收系统
::发送系统
:数据发送系统
for /f "tokens=2 delims=:" %%a in ('find /c /v "" 发送.txt')do set/a 数据行数=%%a+0
tool\m\sf.exe m 数据发送
tool\m\sf.exe m %数据行数%
set /a 数据行数=%数据行数%+1
set jxfes=1
:数据发送循环
if "%jxfes%"=="%数据行数%" goto 数据发送完成
for /f "tokens=1*delims=:" %%i in ('findstr/n . 发送.txt ^| findstr/b %jxfes%:') do (
set 发送数据内容=%%j
)
tool\m\sf.exe m %发送数据内容%
set /a jxfes=%jxfes%+1
goto 数据发送循环
:数据发送完成
tool\m\sf.exe m 发送完成
goto %数据发送完成去哪里%
::发送系统
::数据收发系统------

2016年06月26日 03点06分 3

level 10

赖浩文1 楼主

下载
http:/