Function main
String data$ '定义字符串变量
SetNet #205, "192.168.0.1", 2004, CRLF, NONE, 0 '设置端口号IP地址
OpenNet #205 As Server '端口号对应pc机的端口号
Print "等待201端口连接"
WaitNet #201 '等待201网络端口连接成功
Print "201端口连接成功"
Do
Input #201, data$ '接收字符串数据
Print data$
Print #201, "你好" '发送字符串数据
Loop
Fend