《Heimao - IWebSocket》Web访问库,迷你版,支持WS/WSS连接。 - 精易论坛

窗口程序集名	保留	保留	备注
程序集1
变量名	类型	数组	备注
object	IWebSocket

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

标准输出 (, “欢迎使用,正在连接中...”)
启动线程 (&例子1, , )

判断循环首 (object.IsSucessed () ＝假) ' 通用对象

延时 (200)

判断循环尾 ()
标准输出 (, “连接成功!”, #换行符 )
标准输出 (, “->Send”, #换行符 )

如果真 (object.Send ( #test ) ＝假) ' {"id":1,"method":"Runtime.enable","params":{}}

标准输出 (, “->Close”, #换行符 )

object.Close ()

标准输入 ()
object.Close () ' 关闭连接
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
例子1
参数名	类型	参考	可空	数组	备注
local	整数型

变量名	类型	静态	数组	备注
ws	IWebSocket
response	IWebMessage

ws ＝ IWebSocket.LinkStart (“ws://localhost:9222/devtools/page/4f8eb57e-db14-4fd9-9b27-05441a501565”)

判断 (ws.IsSucessed ())

调试输出 (“连接成功”)

object ＝ ws ' 复制对象

判断循环首 (真)

response ＝ ws.Receive ()

如果真 (response.IsSucessed () ＝假)

' 说明连接已经被断开了

跳出循环 ()

如果真 (DoMessageDispatchs (ws, response) ＝假)

跳出循环 ()

判断循环尾 ()

ws.Close ()

调试输出 (“连接断开”)

调试输出 (“连接失败!”)

子程序名	返回值类型	公开	备注
DoMessageDispatchs	逻辑型		消息调度
参数名	类型	参考	可空	数组	备注
ws	IWebSocket
response	IWebMessage

变量名	类型	静态	数组	备注
body_text	文本型

判断 (response.GetType () ＝ #WS_TEXT )

body_text ＝ response.GetTextData ()

调试输出 (“文本消息”, response.Length (), body_text)

标准输出 (, “->Receive Text: ”, #换行符, body_text, #换行符 )

返回 (真)

判断 (response.GetType () ＝ #WS_BINARY )

调试输出 (“二进制流消息”, response.Length (), response.GetBinaryData ())

返回 (真)

返回 (假)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 EThread<br />
.支持库 spec<br />
<br />
.程序集 程序集1<br />
.程序集变量 object, IWebSocket<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
<br />
标准输出 (, “欢迎使用,正在连接中...”)<br />
启动线程 (&例子1, , )<br />
.判断循环首 (object.IsSucessed () ＝ 假)  ' 通用对象<br />
    延时 (200)<br />
.判断循环尾 ()<br />
标准输出 (, “连接成功!”, #换行符)<br />
<br />
标准输出 (, “->Send”, #换行符)<br />
.如果真 (object.Send (#test) ＝ 假)  ' {"id":1,"method":"Runtime.enable","params":{}}<br />
<br />
    标准输出 (, “->Close”, #换行符)<br />
    object.Close ()<br />
.如果真结束<br />
<br />
标准输入 ()<br />
<br />
object.Close ()  ' 关闭连接<br />
<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 例子1<br />
.参数 local, 整数型<br />
.局部变量 ws, IWebSocket<br />
.局部变量 response, IWebMessage<br />
<br />
ws ＝ IWebSocket.LinkStart (“ws://localhost:9222/devtools/page/4f8eb57e-db14-4fd9-9b27-05441a501565”)<br />
<br />
.判断开始 (ws.IsSucessed ())<br />
    调试输出 (“连接成功”)<br />
<br />
    object ＝ ws  ' 复制对象<br />
<br />
    .判断循环首 (真)<br />
        response ＝ ws.Receive ()<br />
<br />
        .如果真 (response.IsSucessed () ＝ 假)<br />
            ' 说明连接已经被断开了<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
        .如果真 (DoMessageDispatchs (ws, response) ＝ 假)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .判断循环尾 ()<br />
<br />
    ws.Close ()<br />
    调试输出 (“连接断开”)<br />
<br />
.默认<br />
    调试输出 (“连接失败!”)<br />
.判断结束<br />
<br />
<br />
.子程序 DoMessageDispatchs, 逻辑型, , 消息调度<br />
.参数 ws, IWebSocket<br />
.参数 response, IWebMessage<br />
.局部变量 body_text, 文本型<br />
<br />
.判断开始 (response.GetType () ＝ #WS_TEXT)<br />
    body_text ＝ response.GetTextData ()<br />
    调试输出 (“文本消息”, response.Length (), body_text)<br />
<br />
    标准输出 (, “->Receive Text: ”, #换行符, body_text, #换行符)<br />
    返回 (真)<br />
.判断 (response.GetType () ＝ #WS_BINARY)<br />
    调试输出 (“二进制流消息”, response.Length (), response.GetBinaryData ())<br />
    返回 (真)<br />
.默认<br />
<br />
.判断结束<br />
返回 (假)