中控笔记。局域网,服务端和客户端的实现

剑仙十号

中控笔记。局域网,服务端和客户端的实现

按F1_帮助文档, 1.api详解, 18.网络
一、套接字_服务器实现流程
    //建立客户端与服务器的链接
    //1 网络初始化()->(创建)网络套接字()->网络绑定()->网络监*()->网络接受()

    //服务器与客户端通信
    //2 发送数据: 网络发送()/ 网络接收()
    //  发送文件: 网络发送文件()/ 网络接收文件()

    //3 网络关闭套接字(客户端套接字)/ 网络关闭套接字(服务器套接字)

    // 网络关闭()

二、套接字_客户端实现流程
    //建立客户端与服务器的链接
    //1 网络初始化()->(创建)网络套接字()->网络连接()->

    //2 发送数据: 网络发送()/ 网络接收()
    //  发送文件: 网络发送文件()/ 网络接收文件()

    //网络关闭套接字(客户端套接字)
    //网络关闭()

参考资料：
http://52tc.info/forum.php?mod=viewthread&tid=54177

剑仙十号

按F1_帮助文档, 1.api详解, 18.网络

新建项目1：
一、套接字_服务器实现流程
伪代码：

var run, hServer
功能 启动_热键()
  run = 1
  线程开启("服务器", "")
  控件是否有效("启动", false)
  控件是否有效("终止", true)
结束
功能 终止_热键()
run = 0
网络关闭套接字(hServer)
控件是否有效("启动", true)
控件是否有效("终止", false)
结束

功能 服务器()
网络初始化()
(创建) hServer = 网络套接字(1)
网络绑定(hServer, 9999)
网络监*(hServer, 32)

for(var i = 0; i < 100; i++)
//服务器_网络接受(服务器句柄, 客户端IP)
//脚本会挂起,直到有客户端连接到来。 这跟键盘等待按键()一样。
//对应客户端_网络连接(客户端句柄, "127.0.0.1", 9999)

var hClient, 客户端IP
hClient = 网络接受(hServer, ipClient) //建立服务器与客户端的连接
线程开启("服务器消息", hClient)
end
结束

功能 服务器消息(hClient)
while(run)
  var 发送内容, 接收内容
  发送内容 = 编辑框获取文本("编辑框0")
  网络发送(hClient, 发送内容)
  网络接收(hClient, 接收内容)

  if(接收内容 == "close")
  break
  end

sleep(1000)
end
网络关闭套接字(hClient)
结束

剑仙十号

新建项目2：
二、套接字_客户端实现流程
伪代码：

var run, hClient
功能 服务器()
网络初始化()
(创建) hClient = 网络套接字(1)
var 服务器IP地址 = "127.0.0.1" //这里测试所以连接的是本机
var 服务器打开的端口 = 9999
网络连接(hClient, 服务器IP地址, 服务器打开的端口) //建立客户端与服务器的连接

while(run)
//2 发送数据: 网络发送()/ 网络接收()
//  发送文件: 网络发送文件()/ 网络接收文件()

var 发送内容, 接收内容
网络接收(hClient, 接收内容) //接收从服务器发送的字串
select(接收内容)
  case 1
  cmd("msconfig", true)
  网络发送(hClient, "已经执行msconfig操作.")//向指定服务器发送一串字符串

  case 2
  cmd("Notepad.exe", true)
  网络发送(hClient, "已经执行Notepad操作.")//向指定服务器发送一串字符串
end
sleep(1000)
end

网络关闭套接字(hClient)
网络关闭()
结束