洛克最新脱机进入频道

1914908257

洛克王国最新脱机进入频道

白陌陌

1914908257 发表于 2020-6-14 12:07
能给个实例吗，能进入频道就可以

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文本_key	文本型
bmm	文本型
angle_key	文本型
全局_key	文本型
key	文本型
全局_QQ	文本型
全局_HQ	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_超文本浏览框1_跳转完毕

如果真 (超文本浏览框1.地址 ＝ “http://17roco.qq.com/logintarget.html” 或 超文本浏览框1.地址 ＝ “http://17roco.qq.com/cgi-bin/login” 或 超文本浏览框1.地址 ＝ “https://17roco.qq.com/iframe.html”)
调试输出 (“已经跳转”)
超文本浏览框1.可视 ＝ 假
取key ()
连接 ()

子程序名	返回值类型	公开	备 注
凑整	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
整数_凑	整数型

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

文本a ＝ 文本
计次循环首 (整数_凑 － 取文本长度 (文本a), )
文本a ＝ “0” ＋ 文本a
计次循环尾 ()
返回 (文本a)

子程序名	返回值类型	公开	备 注
取key

文本_key ＝ 到文本 (网页_访问 (“http://web2.17roco.qq.com/fcgi-bin/login2?platfrom_src=2”, , , , , , , , , , , , ))
angle_key ＝ 文本_取出中间文本 (文本_key, “&angel_key=”, “&skey=”, , )
如果 (angle_key ＝ “”)
信息框 (“登录失败”, 0, , )
返回 ()

全局_key ＝ 字节集_字节集到十六进制 (到字节集 (angle_key))
key ＝ “&angel_uin=” ＋ 文本_取出中间文本 (文本_key, “&angel_uin=”, “&skey=”, , )
全局_QQ ＝ 文本_取出中间文本 (文本_key, “&angel_uin=”, “&angel_key=”, , )
全局_HQ ＝ 凑整 (进制_十到十六 (到长整数 (全局_QQ), ), 8)
如果真 (全局_key ＝ “”)
信息框 (“登录失败”, 0, )

子程序名	返回值类型	公开	备 注
连接

变量名	类 型	静态	数组	备 注
服务器	整数型
连接_ip地址	文本型
连接_ip验证	文本型

服务器 ＝ 104
连接_ip地址 ＝ “61.151.167.201”
连接_ip验证 ＝ “4”
如果真 (客户.连接 (连接_ip地址, 443) ＝ 假)
信息框 (“与服务器连接失败”, 0, “提示”)
结束 ()
延迟 (100)
客户发包 (“7467775F6C375F666F72776172640D0A486F73743A207A6F6E653” ＋ 连接_ip验证 ＋ “2E3137726F636F2E71712E636F6D3A3434330D0A0D0A”)
延迟 (100)
客户发包 (“9527000000030001” ＋ 全局_HQ ＋ “0000000000000042” ＋ 到文本 (凑整 (进制_十到十六 (服务器, ), 4)) ＋ 全局_key)

子程序名	返回值类型	公开	备 注
客户发包
参数名	类 型	参考	可空	数组	备 注
文本	文本型

_启动窗口.客户.发送shuj (字节集_十六进制到字节集 (文本))

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 HtmlView<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文本_key, 文本型<br /> .程序集变量 bmm, 文本型<br /> .程序集变量 angle_key, 文本型<br /> .程序集变量 全局_key, 文本型<br /> .程序集变量 key, 文本型<br /> .程序集变量 全局_QQ, 文本型<br /> .程序集变量 全局_HQ, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _超文本浏览框1_跳转完毕<br /> <br /> .如果真 (超文本浏览框1.地址 ＝ “<a href="http://17roco.qq.com/logintarget.html" rel="nofollow" rel="nofollow" target="_blank">http://17roco.qq.com/logintarget.html</a>” 或 超文本浏览框1.地址 ＝ “<a href="http://17roco.qq.com/cgi-bin/login" rel="nofollow" rel="nofollow" target="_blank">http://17roco.qq.com/cgi-bin/login</a>” 或 超文本浏览框1.地址 ＝ “<a href="https://17roco.qq.com/iframe.html" rel="nofollow" rel="nofollow" target="_blank">https://17roco.qq.com/iframe.html</a>”)<br />     调试输出 (“已经跳转”)<br />     超文本浏览框1.可视 ＝ 假<br />     取key ()<br />     连接 ()<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 凑整, 文本型<br /> .参数 文本, 文本型<br /> .参数 整数_凑, 整数型<br /> .局部变量 文本a, 文本型<br /> <br /> 文本a ＝ 文本<br /> .计次循环首 (整数_凑 － 取文本长度 (文本a), )<br />     文本a ＝ “0” ＋ 文本a<br /> .计次循环尾 ()<br /> 返回 (文本a)<br /> <br /> .子程序 取key<br /> <br /> 文本_key ＝ 到文本 (网页_访问 (“<a href="http://web2.17roco.qq.com/fcgi-bin/login2?platfrom_src=2" rel="nofollow" rel="nofollow" target="_blank">http://web2.17roco.qq.com/fcgi-bin/login2?platfrom_src=2</a>”, , , , , , , , , , , , ))<br /> angle_key ＝ 文本_取出中间文本 (文本_key, “&angel_key=”, “&skey=”, , )<br /> <br /> .如果 (angle_key ＝ “”)<br />     信息框 (“登录失败”, 0, , )<br />     返回 ()<br /> <br /> .否则<br />     全局_key ＝ 字节集_字节集到十六进制 (到字节集 (angle_key))<br />     key ＝ “&angel_uin=” ＋ 文本_取出中间文本 (文本_key, “&angel_uin=”, “&skey=”, , )<br />     全局_QQ ＝ 文本_取出中间文本 (文本_key, “&angel_uin=”, “&angel_key=”, , )<br />     全局_HQ ＝ 凑整 (进制_十到十六 (到长整数 (全局_QQ), ), 8)<br />     .如果真 (全局_key ＝ “”)<br />         信息框 (“登录失败”, 0, )<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 连接<br /> .局部变量 服务器, 整数型<br /> .局部变量 连接_ip地址, 文本型<br /> .局部变量 连接_ip验证, 文本型<br /> <br /> 服务器 ＝ 104<br /> 连接_ip地址 ＝ “61.151.167.201”<br /> 连接_ip验证 ＝ “4”<br /> .如果真 (客户.连接 (连接_ip地址, 443) ＝ 假)<br />     信息框 (“与服务器连接失败”, 0, “提示”)<br />     结束 ()<br /> .如果真结束<br /> 延迟 (100)<br /> 客户发包 (“7467775F6C375F666F72776172640D0A486F73743A207A6F6E653” ＋ 连接_ip验证 ＋ “2E3137726F636F2E71712E636F6D3A3434330D0A0D0A”)<br /> 延迟 (100)<br /> 客户发包 (“9527000000030001” ＋ 全局_HQ ＋ “0000000000000042” ＋ 到文本 (凑整 (进制_十到十六 (服务器, ), 4)) ＋ 全局_key)<br /> <br /> <br /> .子程序 客户发包<br /> .参数 文本, 文本型<br /> <br /> _启动窗口.客户.发送shuj (字节集_十六进制到字节集 (文本))

麻烦给个好评 谢谢 有什么不懂的可以发私信

kikyou2009

定制区欢迎你

1914908257

kikyou2009 发表于 2020-5-12 18:46
定制区欢迎你

定制要发在哪个板块？

kikyou2009

1914908257 发表于 2020-5-12 18:50
定制要发在哪个板块？

就是出钱 找别人解决问题

https://bbs.125.la/forum-215-1.html

乱世[红颜]

我可以解决 目前已经修复了~ 噗哈哈哈

白陌陌

1. .版本 2
   
2. 
   
3. .如果真 (主窗口.客户.连接 (连接_ip地址, 443) ＝ 假)
   
4.     信息框 (“与服务器连接失败”, 0, “提示”)
   
5.     结束 ()
   
6. .如果真结束
   
7. 延迟 (100)
   
8. 客户发包 (“7467775F6C375F666F72776172640D0A486F73743A207A6F6E653” ＋ 连接_ip验证 ＋ “2E3137726F636F2E71712E636F6D3A3434330D0A0D0A”)
   
9. 延迟 (100)
   
10. 客户发包 (“9527000000030001” ＋ 全局_AQ ＋ “0000000000000042” ＋ 到文本 (凑整 (进制转换 (到文本 (全局_服务器), 10, 16), 4)) ＋ 全局_key)
    

复制代码

1914908257

白陌陌 发表于 2020-6-13 12:23

能给个实例吗，能进入频道就可以

1914908257

乱世[红颜] 发表于 2020-6-10 22:39
我可以解决 目前已经修复了~ 噗哈哈哈

能提示下吗，什么地方动了

乱世[红颜]

1914908257 发表于 2020-6-14 12:24
能提示下吗，什么地方动了

我已经私信你了