|
发表于 2019-5-19 17:12:28
|
显示全部楼层
浙江省宁波市
本帖最后由 林家小后生 于 2019-5-19 17:28 编辑
服务器 哪里要改下,不然开始跟跟停止不行 还有快照只能看到电脑桌面
服务器代码 如下
.版本 2
.支持库 spec
.支持库 EThread
.子程序 _服务器1_数据到达
.局部变量 临时分割, 文本型, , "0"
.局部变量 临时命令, 文本型
临时文本 = 到文本 (服务器1.取回数据 ())
临时分割 = 分割文本 (临时文本, #换行符, )
临时命令 = 子文本替换 (子文本替换 (临时分割 [1], “GET /”, “”, , , 真), “ HTTP/1.1”, “”, , , 真)
调试输出 (临时命令)
.如果 (寻找文本 (临时命令, “shimen”, , 假) ≠ -1)
强制结束线程 (xc)
关闭线程句柄 (xc)
启动线程 (&开始做师门, , xc)
按钮2.标题 = “停止”
选择框_师门.选中 = 真
选择框_挖宝.选中 = 假
服务器1.发送数据 (用户IP, “ok”, )
服务器1.断开客户 (用户IP)
.否则
.如果结束
.如果 (寻找文本 (临时命令, “wabao”, , 假) ≠ -1)
强制结束线程 (xc)
关闭线程句柄 (xc)
启动线程 (&开始挖宝图, , xc)
按钮2.标题 = “停止”
选择框_师门.选中 = 假
选择框_挖宝.选中 = 真
服务器1.发送数据 (用户IP, “ok”, )
服务器1.断开客户 (用户IP)
.否则
.如果结束
.如果 (寻找文本 (临时命令, “tingzhi”, , 假) ≠ -1)
强制结束线程 (xc)
关闭线程句柄 (xc)
按钮2.标题 = “开始”
选择框_师门.选中 = 假
选择框_挖宝.选中 = 假
服务器1.发送数据 (用户IP, “ok”, )
服务器1.断开客户 (用户IP)
.否则
.如果结束
.如果 (寻找文本 (临时命令, “ckpm.bmp”, , 假) ≠ -1)
快照 = 快照 (到整数 (编辑框1.内容), , )
服务器1.发送数据 (用户IP, 到字节集 (#图片头 + 到文本 (取字节集长度 (快照)) + #换行符 + #换行符) + 快照, )
服务器1.断开客户 (用户IP)
.否则
.如果结束
.如果 (临时命令 = “”)
服务器1.发送数据 (用户IP, #index, )
服务器1.断开客户 (用户IP)
.否则
.如果结束
|
|