有没有懂go语言的大佬啊!想吧一个易语言的代码转换成go

暗芒团队君君

威客里面也没看到会的啊!删我贴干什么.....

  

窗口程序集名	保 留	保 留	备 注
GM登录集

子程序名	返回值类型	公开	备 注
GM登录_1	逻辑型

变量名	类 型	静态	数组	备 注
z	字节集
写	写_封包写
全_配置	存取键值表

全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)
网页_访问 (全_配置.取文本 (“游戏IP”) ＋ “:81/login/login.php”, 1, “age=0&area=&channelNo=110001&channelType=0&checkAuth=1&game=wd&isRegister=0&isSetPwd=0&key=c0aea17ac7e8352843ffd9f1cc0c4fc0&mmid=&os=1&sid=” ＋ 全_配置.取文本 (“GM账号”) ＋ “×tamp=1702906312587&token=fcea920f7412b5da7be0cf42b8c93759&username=” ＋ 全_配置.取文本 (“GM账号”) ＋ “&userpwd=” ＋ 密码加密 (全_配置.取文本 (“GM密码”)) ＋ “&versionCode=202106290&versionName=2.073.0629”)
如果 (启动_TCP (全_配置.取文本 (“游戏IP”), 全_配置.取整数 (“GM区组”)))
写.HEX (“B0 58”)
写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)
z ＝ 写.写封包 (0, )
启动时间 ＝ GetTickCount64 ()
如果 (数据发送 (z))
返回 (真)
返回 (假)

返回 (假)

子程序名	返回值类型	公开	备 注
数据发送	逻辑型
参数名	类 型	参考	可空	数组	备 注
Z	字节集

返回 (客户端_发送 (全_客户端句柄, Z))

子程序名	返回值类型	公开	备 注
GM登录_2
参数名	类 型	参考	可空	数组	备 注
type	文本型
密文	文本型

变量名	类 型	静态	数组	备 注
写	写_封包写
z	字节集
全_配置	存取键值表

全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)
写.HEX (“23 50”)
写.文本型_ (type, 真)
写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)
写.文本型_ (M_des密文加密 (密文, “userId=” ＋ 全_配置.取文本 (“GM账号”) ＋ “&game=wd&channelNo=110001&token=fcea920f7412b5da7be0cf42b8c93759”), 真)
写.文本型_ (“:15E2DB8523B131E72FA732754AF303F216E04E40DBBC3A8DDC7D95213CF6A31D016C4E1349100160C106409D9CB4CDAC0C5611D598E3E1DA21EFB9512896CC73:”, 真)
写.文本型_ (“::”, 真)
写.短整数型 (0, 真)
写.文本型_ (全_配置.取文本 (“GM区组名”), 真)
写.字节型 (1)
写.文本型_ (“110001”, 真)
写.文本型_ (“:0359D151E2FCCA40:”, 真)
写.文本型_ (“:1832E02B293D4FF09B2442D8F19A4E6051C3B6745278EF6F:”, 真)
写.文本型_ (“:5994E4F13929A3ACECA6671DABA81676:”, 真)
写.文本型_ (“2.072r.0617”, 真)
写.字节型 (1)
写.文本型 (“M143678”, 真)
写.文本型 (“[]”, 真)
z ＝ 写.写封包 (0)
数据发送 (z)

子程序名	返回值类型	公开	备 注
GM登录_3
参数名	类 型	参考	可空	数组	备 注
验证1	文本型
验证2	文本型

变量名	类 型	静态	数组	备 注
写	写_封包写
z	字节集
验证运算	整数型
验证1_整数	整数型
验证2_整数	整数型
全_配置	存取键值表

全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)
验证运算 ＝ 进制_十六到十 (验证1)
如果 (验证运算 ％ 2 ＝ 0)
验证1_整数 ＝ 进制_十六到十 (验证1) ＋ 1
验证1_整数 ＝ 进制_十六到十 (验证1) － 1

验证2_整数 ＝ 进制_十六到十 (验证2)
写.HEX (“30 02”)
写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)  ' user
写.整数型 (验证1_整数, 真)  ' auth_key
写.整数型 (验证2_整数, 真)  ' seed
写.短整数型 (1, 真)  ' emulator
写.文本型_ (“A538778986B9C746A2BA9F4CED1DAFEC”, 真)  ' version
写.文本型_ (“7449b2c6b5a9275055ac6e39a4b82afc”, 真)  ' clientid
写.字节型 (0)  ' netStatus
写.短整数型 (1, 真)  ' adult
写.文本型_ (“9629FBF0021D84582221967A09E64372”, 真)  ' signature
写.文本型_ (“com.gbits.atm.cxwd”, 真)  ' clientname
写.HEX (“00 00 00 00 04 01”)  ' 不知道什么B玩意 对不上协议
z ＝ 写.写封包 (0)
启动_TCP (全_配置.取文本 (“游戏IP”), 全_配置.取整数 (“GM线路”))
数据发送 (z)
心跳 ()

子程序名	返回值类型	公开	备 注
GM登录_3在线登录
参数名	类 型	参考	可空	数组	备 注
IP	文本型
端口	文本型
验证1	文本型
验证2	文本型

变量名	类 型	静态	数组	备 注
写	写_封包写
z	字节集
全_配置	存取键值表

全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)
写.HEX (“30 02”)
写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)  ' user
写.整数型 (到整数 (验证1), 真)  ' auth_key
写.整数型 (到整数 (验证2), 真)  ' seed
写.短整数型 (1, 真)  ' emulator
写.文本型_ (“A538778986B9C746A2BA9F4CED1DAFEC”, 真)  ' version
写.文本型_ (“7449b2c6b5a9275055ac6e39a4b82afc”, 真)  ' clientid
写.字节型 (0)  ' netStatus
写.短整数型 (1, 真)  ' adult
写.文本型_ (“9629FBF0021D84582221967A09E64372”, 真)  ' signature
写.文本型_ (“com.gbits.atm.cxwd”, 真)  ' clientname
写.HEX (“00 00 00 00 04 01”)  ' 不知道什么B玩意 对不上协议
z ＝ 写.写封包 (0)
启动_TCP (全_配置.取文本 (“游戏IP”), 全_配置.取整数 (“GM线路”))
数据发送 (z)
心跳 ()

子程序名	返回值类型	公开	备 注
GM登录_4
参数名	类 型	参考	可空	数组	备 注
角色名字	文本型

变量名	类 型	静态	数组	备 注
写	写_封包写
z	字节集

写.HEX (“10 60”)
写.文本型_ (角色名字, 真)
z ＝ 写.写封包 (0, 真)
数据发送 (z)

子程序名	返回值类型	公开	备 注
数据到达			接收服务器数据事件
参数名	类 型	参考	可空	数组	备 注
pSende	整数型
dwConnID	整数型
pData	整数型
iLength	整数型

变量名	类 型	静态	数组	备 注
pBuffer	字节集
a	文本型

pBuffer ＝ 指针到字节集 (pData, iLength)
如果真 (pBuffer ≠ {  })
M_拆分返回包 (pBuffer)

子程序名	返回值类型	公开	备 注
断开事件			断开服务器事件
参数名	类 型	参考	可空	数组	备 注
pSender
dwConnID
enOperation
iErrorCode

Q_GM ＝ 假

子程序名	返回值类型	公开	备 注
M_拆分返回包			添加数据进行拆包
参数名	类 型	参考	可空	数组	备 注
Buffer	字节集

变量名	类 型	静态	数组	备 注
l_BuffData	字节集			如果有剩下的数据就添加到指针里
l_dLen	整数型			接受到的封包数据长度
l_Code	字节型
l_Size	整数型			封包长度 防止有符号出现负数的情况,所以不用字节或短整数
l_Buffer	字节集			当前处理的数据
l_Data	字节集			单条封包数据
l_len	整数型

判断 (l_BuffData ＝ {  })
l_Buffer ＝ Buffer
l_Buffer ＝ l_BuffData ＋ Buffer
l_dLen ＝ 取字节集长度 (l_Buffer)
如果真 (l_dLen ＜ 3)  ' 如果长度小于3，则不是标准的协议，直接放弃
返回 ()
' =============================================================================================================================
循环判断首 ()
l_Code ＝ l_Buffer [1]
如果真 (l_Code ≠ 77 且 l_Buffer [2] ≠ 90)  ' 不是标准的协议，直接放弃
l_BuffData ＝ {  }  ' 不是标准的协议，直接放弃数据
跳出循环 ()
如果真 (l_dLen ＜ 10)
l_BuffData ＝ l_Buffer
跳出循环 ()  ' 数据不完整(半包)
l_Size ＝ 左移 (l_Buffer [9], 8) ＋ l_Buffer [10]
l_Size ＝ l_Size ＋ 10  ' 10=封包头+cmd
如果真 (l_Size ＞ l_dLen)  ' 数据长度大于当前长度(半包)
l_BuffData ＝ l_Buffer
跳出循环 ()
l_Data ＝ 取字节集中间 (l_Buffer, 1, l_Size)
回调封包 (l_Data)  ' 单独的封包处理回调
l_len ＝ l_dLen － l_Size
如果真 (l_len ≤ 0)  ' 没有数据可拆包了
l_BuffData ＝ {  }
跳出循环 ()
l_Buffer ＝ 取字节集右边 (l_Buffer, l_len)
如果真 (l_len ＜ 3)  ' 不足三个字节 把剩下的数据保存起来,下次再拼接起来
l_BuffData ＝ l_Buffer
跳出循环 ()
l_dLen ＝ l_len
循环判断尾 (真)

子程序名	返回值类型	公开	备 注
回调封包			拆包完毕后的单条封包处理回调
参数名	类 型	参考	可空	数组	备 注
Data	字节集

变量名	类 型	静态	数组	备 注
字节集	字节集
读	读_封包读
包头	文本型
type	文本型
密匙	文本型
验证1_1	文本型
验证1_2	文本型
验证2	文本型
区组名	文本型
在线状态	整数型
信息	文本型
信息组	文本型		0
频道	整数型
名字	文本型
内容	文本型
全_配置	存取键值表
名字组	文本型		0

全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)
字节集 ＝ M_返回包解密 (Data, 真)
读.清数据 ()
读.置数据 (字节集)
读.跳过 (10)
包头 ＝ 读.HEX (2)
' 调试输出 (包头)
判断 (包头 ＝ “B1 F3”)
type ＝ 读.文本型_ ()
密匙 ＝ 读.文本型_ ()
如果真 (取文本长度 (密匙) ＝ 7)
GM登录_2 (type, 密匙)
Q_GM结果 ＝ “连接错误，错误代码 2”

判断 (包头 ＝ “33 57”)
验证1_1 ＝ 读.HEX (2)
读.跳过 (4)
验证1_2 ＝ 读.HEX (2)
读.跳过 (2)
读.文本型_ ()
读.跳过 (2)
验证2 ＝ 读.HEX (4)
读.跳过 (2)
区组名 ＝ 文本_删右边 (读.文本型_ (), 2)
GM登录_3 (验证1_1 ＋ 验证1_2, 验证2)
Q_GM结果 ＝ “连接错误，错误代码 3”
判断 (包头 ＝ “F0 61”)
如果真 (读.短整数型 () ≠ 1)
Q_GM结果 ＝ “G登录区组没有开服呢”
返回 ()
如果真 (读.短整数型 () ＜ 1)
Q_GM结果 ＝ “账号没有角色，无法登录”
返回 ()
读.跳过 (12)
在线状态 ＝ 读.字节型 ()
如果 (在线状态 ＝ 0)
GM登录_4 (全_配置.取文本 (“GM名字”))
Q_GM结果 ＝ “角色在线或托管中，执行登录时貌似失败了”

判断 (包头 ＝ “10 B3”)
全_心跳时间 ＝ 读.整数型 ()
如果真 (全_心跳线程 ＝ 假)
启动线程 (&定时心跳, , )

判断 (包头 ＝ “10 03”)
Q_GM ＝ 真
判断 (包头 ＝ “B2 73”)
读.文本型_ ()
读.整数型 ()
信息 ＝ 读.文本型_ ()
信息组 ＝ 分割文本 (信息, “,”, )
如果 (取数组成员数 (信息组) ＝ 4)
GM登录_3在线登录 (信息组 [1], 信息组 [2], 信息组 [3], 信息组 [4])
Q_GM结果 ＝ “连接GM时，获取IP组信息失败”

判断 (包头 ＝ “B0 54”)
读.跳过 (4)
信息 ＝ 读.文本型_ ()
如果真 (寻找文本 (信息, “来自其他地方的连接取代了你”, 1, 假) ≠ -1)
Q_GM ＝ 假

判断 (包头 ＝ “3F FF”)
频道 ＝ 读.短整数型 ()
如果真 (频道 ＝ 9 或 频道 ＝ 2)
读.跳过 (4)
名字 ＝ 读.文本型_ ()
内容 ＝ 读.文本型 ()
如果真 (取文本左边 (内容, 1) ＝ “@”)
如果真 (寻找文本 (名字, “ ”, 1, 假) ≠ -1)
名字组 ＝ 分割文本 (名字, “ ”, )
名字 ＝ 名字组 [1]
如果真 (名字 ≠ “”)
如果真 (名字 ≠ 全_配置.取文本 (“GM名字”))
喊话判断 (名字, 内容)

子程序名	返回值类型	公开	备 注
心跳
参数名	类 型	参考	可空	数组	备 注
时间	整数型

变量名	类 型	静态	数组	备 注
写	写_封包写
z	字节集

写.HEX (“10 B2”)
写.整数型 (GetTickCount64 () － 启动

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
EThread	多线程支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 EThread<br /> <br /> .程序集 GM登录集<br /> <br /> .子程序 GM登录_1, 逻辑型<br /> .局部变量 z, 字节集<br /> .局部变量 写, 写_封包写<br /> .局部变量 全_配置, 存取键值表<br /> <br /> 全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)<br /> 网页_访问 (全_配置.取文本 (“游戏IP”) ＋ “:81/login/login.php”, 1, “age=0&area=&channelNo=110001&channelType=0&checkAuth=1&game=wd&isRegister=0&isSetPwd=0&key=c0aea17ac7e8352843ffd9f1cc0c4fc0&mmid=&os=1&sid=” ＋ 全_配置.取文本 (“GM账号”) ＋ “×tamp=1702906312587&token=fcea920f7412b5da7be0cf42b8c93759&username=” ＋ 全_配置.取文本 (“GM账号”) ＋ “&userpwd=” ＋ 密码加密 (全_配置.取文本 (“GM密码”)) ＋ “&versionCode=202106290&versionName=2.073.0629”)<br /> <br /> <br /> <br /> .如果 (启动_TCP (全_配置.取文本 (“游戏IP”), 全_配置.取整数 (“GM区组”)))<br />     写.HEX (“B0 58”)<br />     写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)<br />     z ＝ 写.写封包 (0, )<br />     启动时间 ＝ GetTickCount64 ()<br />     .如果 (数据发送 (z))<br />         返回 (真)<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 数据发送, 逻辑型<br /> .参数 Z, 字节集<br /> <br /> 返回 (客户端_发送 (全_客户端句柄, Z))<br /> <br /> .子程序 GM登录_2<br /> .参数 type, 文本型<br /> .参数 密文, 文本型<br /> .局部变量 写, 写_封包写<br /> .局部变量 z, 字节集<br /> .局部变量 全_配置, 存取键值表<br /> <br /> 全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)<br /> 写.HEX (“23 50”)<br /> 写.文本型_ (type, 真)<br /> 写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)<br /> 写.文本型_ (M_des密文加密 (密文, “userId=” ＋ 全_配置.取文本 (“GM账号”) ＋ “&game=wd&channelNo=110001&token=fcea920f7412b5da7be0cf42b8c93759”), 真)<br /> 写.文本型_ (“:15E2DB8523B131E72FA732754AF303F216E04E40DBBC3A8DDC7D95213CF6A31D016C4E1349100160C106409D9CB4CDAC0C5611D598E3E1DA21EFB9512896CC73:”, 真)<br /> 写.文本型_ (“::”, 真)<br /> 写.短整数型 (0, 真)<br /> 写.文本型_ (全_配置.取文本 (“GM区组名”), 真)<br /> 写.字节型 (1)<br /> 写.文本型_ (“110001”, 真)<br /> 写.文本型_ (“:0359D151E2FCCA40:”, 真)<br /> 写.文本型_ (“:1832E02B293D4FF09B2442D8F19A4E6051C3B6745278EF6F:”, 真)<br /> 写.文本型_ (“:5994E4F13929A3ACECA6671DABA81676:”, 真)<br /> 写.文本型_ (“2.072r.0617”, 真)<br /> 写.字节型 (1)<br /> 写.文本型 (“M143678”, 真)<br /> 写.文本型 (“[]”, 真)<br /> z ＝ 写.写封包 (0)<br /> 数据发送 (z)<br /> <br /> .子程序 GM登录_3<br /> .参数 验证1, 文本型<br /> .参数 验证2, 文本型<br /> .局部变量 写, 写_封包写<br /> .局部变量 z, 字节集<br /> .局部变量 验证运算, 整数型<br /> .局部变量 验证1_整数, 整数型<br /> .局部变量 验证2_整数, 整数型<br /> .局部变量 全_配置, 存取键值表<br /> <br /> 全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)<br /> 验证运算 ＝ 进制_十六到十 (验证1)<br /> .如果 (验证运算 ％ 2 ＝ 0)<br />     验证1_整数 ＝ 进制_十六到十 (验证1) ＋ 1<br /> .否则<br />     验证1_整数 ＝ 进制_十六到十 (验证1) － 1<br /> .如果结束<br /> <br /> 验证2_整数 ＝ 进制_十六到十 (验证2)<br /> <br /> 写.HEX (“30 02”)<br /> 写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)  ' user<br /> 写.整数型 (验证1_整数, 真)  ' auth_key<br /> 写.整数型 (验证2_整数, 真)  ' seed<br /> 写.短整数型 (1, 真)  ' emulator<br /> 写.文本型_ (“A538778986B9C746A2BA9F4CED1DAFEC”, 真)  ' version<br /> 写.文本型_ (“7449b2c6b5a9275055ac6e39a4b82afc”, 真)  ' clientid<br /> 写.字节型 (0)  ' netStatus<br /> 写.短整数型 (1, 真)  ' adult<br /> 写.文本型_ (“9629FBF0021D84582221967A09E64372”, 真)  ' signature<br /> 写.文本型_ (“com.gbits.atm.cxwd”, 真)  ' clientname<br /> 写.HEX (“00 00 00 00 04 01”)  ' 不知道什么B玩意 对不上协议<br /> z ＝ 写.写封包 (0)<br /> 启动_TCP (全_配置.取文本 (“游戏IP”), 全_配置.取整数 (“GM线路”))<br /> 数据发送 (z)<br /> 心跳 ()<br /> <br /> .子程序 GM登录_3在线登录<br /> .参数 IP, 文本型<br /> .参数 端口, 文本型<br /> .参数 验证1, 文本型<br /> .参数 验证2, 文本型<br /> .局部变量 写, 写_封包写<br /> .局部变量 z, 字节集<br /> .局部变量 全_配置, 存取键值表<br /> <br /> 全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)<br /> 写.HEX (“30 02”)<br /> 写.文本型_ (“110001” ＋ 全_配置.取文本 (“GM账号”), 真)  ' user<br /> 写.整数型 (到整数 (验证1), 真)  ' auth_key<br /> 写.整数型 (到整数 (验证2), 真)  ' seed<br /> 写.短整数型 (1, 真)  ' emulator<br /> 写.文本型_ (“A538778986B9C746A2BA9F4CED1DAFEC”, 真)  ' version<br /> 写.文本型_ (“7449b2c6b5a9275055ac6e39a4b82afc”, 真)  ' clientid<br /> 写.字节型 (0)  ' netStatus<br /> 写.短整数型 (1, 真)  ' adult<br /> 写.文本型_ (“9629FBF0021D84582221967A09E64372”, 真)  ' signature<br /> 写.文本型_ (“com.gbits.atm.cxwd”, 真)  ' clientname<br /> 写.HEX (“00 00 00 00 04 01”)  ' 不知道什么B玩意 对不上协议<br /> z ＝ 写.写封包 (0)<br /> 启动_TCP (全_配置.取文本 (“游戏IP”), 全_配置.取整数 (“GM线路”))<br /> 数据发送 (z)<br /> 心跳 ()<br /> <br /> .子程序 GM登录_4<br /> .参数 角色名字, 文本型<br /> .局部变量 写, 写_封包写<br /> .局部变量 z, 字节集<br /> <br /> 写.HEX (“10 60”)<br /> 写.文本型_ (角色名字, 真)<br /> z ＝ 写.写封包 (0, 真)<br /> 数据发送 (z)<br /> <br /> .子程序 数据到达, , , 接收服务器数据事件<br /> .参数 pSende, 整数型<br /> .参数 dwConnID, 整数型<br /> .参数 pData, 整数型<br /> .参数 iLength, 整数型<br /> .局部变量 pBuffer, 字节集<br /> .局部变量 a, 文本型<br /> <br /> pBuffer ＝ 指针到字节集 (pData, iLength)<br /> .如果真 (pBuffer ≠ {  })<br />     M_拆分返回包 (pBuffer)<br /> .如果真结束<br /> <br /> <br /> .子程序 断开事件, , , 断开服务器事件<br /> .参数 pSender<br /> .参数 dwConnID<br /> .参数 enOperation<br /> .参数 iErrorCode<br /> <br /> Q_GM ＝ 假<br /> <br /> .子程序 M_拆分返回包, , , 添加数据进行拆包<br /> .参数 Buffer, 字节集<br /> .局部变量 l_BuffData, 字节集, 静态, , 如果有剩下的数据就添加到指针里<br /> .局部变量 l_dLen, 整数型, , , 接受到的封包数据长度<br /> .局部变量 l_Code, 字节型<br /> .局部变量 l_Size, 整数型, , , 封包长度 防止有符号出现负数的情况,所以不用字节或短整数<br /> .局部变量 l_Buffer, 字节集, , , 当前处理的数据<br /> .局部变量 l_Data, 字节集, , , 单条封包数据<br /> .局部变量 l_len, 整数型<br /> <br /> .判断开始 (l_BuffData ＝ {  })<br />     l_Buffer ＝ Buffer<br /> .默认<br />     l_Buffer ＝ l_BuffData ＋ Buffer<br /> .判断结束<br /> l_dLen ＝ 取字节集长度 (l_Buffer)<br /> .如果真 (l_dLen ＜ 3)  ' 如果长度小于3，则不是标准的协议，直接放弃<br />     返回 ()<br /> .如果真结束<br /> ' =============================================================================================================================<br /> .循环判断首 ()<br />     l_Code ＝ l_Buffer [1]<br />     .如果真 (l_Code ≠ 77 且 l_Buffer [2] ≠ 90)  ' 不是标准的协议，直接放弃<br />         l_BuffData ＝ {  }  ' 不是标准的协议，直接放弃数据<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (l_dLen ＜ 10)<br />         l_BuffData ＝ l_Buffer<br />         跳出循环 ()  ' 数据不完整(半包)<br />     .如果真结束<br />     l_Size ＝ 左移 (l_Buffer [9], 8) ＋ l_Buffer [10]<br />     l_Size ＝ l_Size ＋ 10  ' 10=封包头+cmd<br />     .如果真 (l_Size ＞ l_dLen)  ' 数据长度大于当前长度(半包)<br />         l_BuffData ＝ l_Buffer<br />         跳出循环 ()<br />     .如果真结束<br />     l_Data ＝ 取字节集中间 (l_Buffer, 1, l_Size)<br />     回调封包 (l_Data)  ' 单独的封包处理回调<br />     l_len ＝ l_dLen － l_Size<br />     .如果真 (l_len ≤ 0)  ' 没有数据可拆包了<br />         l_BuffData ＝ {  }<br />         跳出循环 ()<br />     .如果真结束<br />     l_Buffer ＝ 取字节集右边 (l_Buffer, l_len)<br />     .如果真 (l_len ＜ 3)  ' 不足三个字节 把剩下的数据保存起来,下次再拼接起来<br />         l_BuffData ＝ l_Buffer<br />         跳出循环 ()<br />     .如果真结束<br />     l_dLen ＝ l_len<br /> .循环判断尾 (真)<br /> <br /> <br /> <br /> .子程序 回调封包, , , 拆包完毕后的单条封包处理回调<br /> .参数 Data, 字节集<br /> .局部变量 字节集, 字节集<br /> .局部变量 读, 读_封包读<br /> .局部变量 包头, 文本型<br /> .局部变量 type, 文本型<br /> .局部变量 密匙, 文本型<br /> .局部变量 验证1_1, 文本型<br /> .局部变量 验证1_2, 文本型<br /> .局部变量 验证2, 文本型<br /> .局部变量 区组名, 文本型<br /> .局部变量 在线状态, 整数型<br /> .局部变量 信息, 文本型<br /> .局部变量 信息组, 文本型, , "0"<br /> .局部变量 频道, 整数型<br /> .局部变量 名字, 文本型<br /> .局部变量 内容, 文本型<br /> .局部变量 全_配置, 存取键值表<br /> .局部变量 名字组, 文本型, , "0"<br /> <br /> 全_缓存.取键值表 (全_端口 ＋ “基础配置”, 全_配置)<br /> 字节集 ＝ M_返回包解密 (Data, 真)<br /> 读.清数据 ()<br /> 读.置数据 (字节集)<br /> 读.跳过 (10)<br /> 包头 ＝ 读.HEX (2)<br /> ' 调试输出 (包头)<br /> .判断开始 (包头 ＝ “B1 F3”)<br />     type ＝ 读.文本型_ ()<br />     密匙 ＝ 读.文本型_ ()<br />     .如果真 (取文本长度 (密匙) ＝ 7)<br />         GM登录_2 (type, 密匙)<br />         Q_GM结果 ＝ “连接错误，错误代码 2”<br />     .如果真结束<br /> <br /> .判断 (包头 ＝ “33 57”)<br />     验证1_1 ＝ 读.HEX (2)<br />     读.跳过 (4)<br />     验证1_2 ＝ 读.HEX (2)<br />     读.跳过 (2)<br />     读.文本型_ ()<br />     读.跳过 (2)<br />     验证2 ＝ 读.HEX (4)<br />     读.跳过 (2)<br />     区组名 ＝ 文本_删右边 (读.文本型_ (), 2)<br />     GM登录_3 (验证1_1 ＋ 验证1_2, 验证2)<br />     Q_GM结果 ＝ “连接错误，错误代码 3”<br /> .判断 (包头 ＝ “F0 61”)<br />     .如果真 (读.短整数型 () ≠ 1)<br />         Q_GM结果 ＝ “G登录区组没有开服呢”<br />         返回 ()<br />     .如果真结束<br />     .如果真 (读.短整数型 () ＜ 1)<br />         Q_GM结果 ＝ “账号没有角色，无法登录”<br />         返回 ()<br />     .如果真结束<br />     读.跳过 (12)<br />     在线状态 ＝ 读.字节型 ()<br />     .如果 (在线状态 ＝ 0)<br />         GM登录_4 (全_配置.取文本 (“GM名字”))<br />     .否则<br />         Q_GM结果 ＝ “角色在线或托管中，执行登录时貌似失败了”<br />     .如果结束<br /> <br /> .判断 (包头 ＝ “10 B3”)<br />     全_心跳时间 ＝ 读.整数型 ()<br />     .如果真 (全_心跳线程 ＝ 假)<br />         启动线程 (&定时心跳, , )<br />     .如果真结束<br /> <br /> .判断 (包头 ＝ “10 03”)<br />     Q_GM ＝ 真<br /> .判断 (包头 ＝ “B2 73”)<br />     读.文本型_ ()<br />     读.整数型 ()<br />     信息 ＝ 读.文本型_ ()<br />     信息组 ＝ 分割文本 (信息, “,”, )<br />     .如果 (取数组成员数 (信息组) ＝ 4)<br />         GM登录_3在线登录 (信息组 [1], 信息组 [2], 信息组 [3], 信息组 [4])<br />     .否则<br />         Q_GM结果 ＝ “连接GM时，获取IP组信息失败”<br />     .如果结束<br /> <br /> .判断 (包头 ＝ “B0 54”)<br />     读.跳过 (4)<br />     信息 ＝ 读.文本型_ ()<br />     .如果真 (寻找文本 (信息, “来自其他地方的连接取代了你”, 1, 假) ≠ -1)<br />         Q_GM ＝ 假<br />     .如果真结束<br /> <br /> .判断 (包头 ＝ “3F FF”)<br />     频道 ＝ 读.短整数型 ()<br />     .如果真 (频道 ＝ 9 或 频道 ＝ 2)<br />         读.跳过 (4)<br />         名字 ＝ 读.文本型_ ()<br />         内容 ＝ 读.文本型 ()<br />         .如果真 (取文本左边 (内容, 1) ＝ “@”)<br />             .如果真 (寻找文本 (名字, “ ”, 1, 假) ≠ -1)<br />                 名字组 ＝ 分割文本 (名字, “ ”, )<br />                 名字 ＝ 名字组 [1]<br />             .如果真结束<br />             .如果真 (名字 ≠ “”)<br />                 .如果真 (名字 ≠ 全_配置.取文本 (“GM名字”))<br />                     喊话判断 (名字, 内容)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 心跳<br /> .参数 时间, 整数型, 可空<br /> .局部变量 写, 写_封包写<br /> .局部变量 z, 字节集<br /> <br /> 写.HEX (“10 B2”)<br /> 写.整数型 (GetTickCount64 () － 启动

qq904266932

想写接口应用还是桌面应用?