馨馨咯。 发表于 2015-10-6 12:23

CF强登写法，（仅供参考）

本人只提供强登写法，其他数据自己写上去。切记仅供参考。子程序 _PQ桤s_调连接, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网址, 网址信息, 参考
.局部变量 IP, 字节型, , "4"
.局部变量 port, 整数型

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' vmp保护标志头
置入代码 ({ 235, 7, 83, 69, 66, 69, 71, 78, 0 }) ' se保护标志头
.如果真 (到小写 (取文本右边 (调用者信息.取进程名 (), 13)) ＝ 到文本 ({ 99, 114, 111, 115, 115, 102, 105, 114, 101, 46, 101, 120, 101 }))
网址.取IP端口 (IP , IP , IP , IP , port)
.如果真 (port ＝ 10008)
服务器IP ＝ 到文本 (IP ) ＋ “.” ＋ 到文本 (IP ) ＋ “.” ＋ 到文本 (IP ) ＋ “.” ＋ 到文本 (IP )
.如果真 (二次套接 ≠ 0)
Sk.关闭连接 (二次套接)
Sk.销毁套接口 (二次套接)
.如果真结束
二次套接 ＝ Sk.申请套接口 ()
Sk.置阻塞模式 (二次套接)
Sk.连接 (二次套接, 服务器IP, 10008, 100) ' 原来在此处连接
.如果真结束

.如果真结束
返回 (0)
置入代码 ({ 235, 7, 83, 69, 69, 78, 68, 80, 0 }) ' se保护标志尾
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' vmp保护标志尾

.子程序 _PQ桤s_调发送, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.局部变量 data, 字节集

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' vmp保护标志头
置入代码 ({ 235, 7, 83, 69, 66, 69, 71, 78, 0 }) ' se保护标志头
.如果真 (到小写 (取文本右边 (调用者信息.取进程名 (), 13)) ＝ 到文本 ({ 99, 114, 111, 115, 115, 102, 105, 114, 101, 46, 101, 120, 101 }))
data ＝ 网络数据.到字节集 ()
.如果真 (取字节集左边 (data, 2) ＝ { 241, 144 })
S_Data ＝ data
启动线程 (&S_link, , )
返回 (0)
.如果真结束

.如果真结束
返回 (0)
置入代码 ({ 235, 7, 83, 69, 69, 78, 68, 80, 0 }) ' se保护标志尾
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' vmp保护标志尾


.子程序 _PQ桤s_调接收, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.局部变量 接受数据, 文本型
.局部变量 内容, 字节集
.局部变量 data, 字节集

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' vmp保护标志头
置入代码 ({ 235, 7, 83, 69, 66, 69, 71, 78, 0 }) ' se保护标志头
.如果真 (到小写 (取文本右边 (调用者信息.取进程名 (), 13)) ＝ 到文本 ({ 99, 114, 111, 115, 115, 102, 105, 114, 101, 46, 101, 120, 101 }))
data ＝ 网络数据.到字节集 ()
内容 ＝ 网络数据.到字节集 ()
接受数据 ＝ 字节集到十六进制 (内容)
.如果真 (取字节集左边 (data, 5) ＝ { 241, 168, 50, 1, 1 } 且 取字节集中间 (data, 7, 1) ≠ { 0 })
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 50, 51, 45, 50 }, ) ≠ -1)
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 182, 212, 178, 187, 198, 240 }, ) ≠ -1)
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 202, 253, 190, 221, 210, 236, 179, 163 }, ) ≠ -1)
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 50, 51, 45, 48 }, ) ≠ -1)
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 50, 51, 45, 49 }, ) ≠ -1)
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 241, 51, 0 }, ) ≠ -1)
返回 (1)
.如果真结束
.如果真 (寻找字节集 (data, { 241, 32, 3, 0, 25 }, ) ≠ -1)
返回 (1)
.如果真结束

.如果真结束
返回 (0)
置入代码 ({ 235, 7, 83, 69, 69, 78, 68, 80, 0 }) ' se保护标志尾
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' vmp保护标志尾



心碎~ 发表于 2015-10-6 12:26

现在强登都和谐了   还要写法干嘛

亿联网络 发表于 2015-10-6 12:26

看看什么样的{:5_116:}

Amoying 发表于 2015-10-6 12:39

这个楼主有点6，今天都开源多少了?

小白丿 发表于 2015-10-6 12:39

楼主你真好我就喜欢你这样的

霸道 发表于 2015-10-6 12:39

表示都和谐拉~~不过也学习一下~

69674880 发表于 2015-10-6 12:44

= =强登源码烂大街了已经感谢楼主

20001225 发表于 2015-10-6 12:45

是原创吗，楼主

niutou20 发表于 2015-10-6 12:52

已经无用了吗？？

2094999871 发表于 2015-10-6 13:06

不知道有没哟用
页: [1] 2 3
查看完整版本: CF强登写法，（仅供参考）