正版取数字简单工具及代码本节只是作为技术交流之用。所涉及到的代码和工具请下载后24小时内删除，否则造成的后果一律与本人无关。 最下面是源码，有工具的自己去编译 。。。 同时请多支持正版......
首先设置tdx代理如下图所示:
.版本 2.程序集 窗口程序集1
.程序集变量 客户地址, 文本型
.程序集变量 地址, 文本型
.程序集变量 端口, 整数型.子程序 _按钮1_被单击运行 (“TdxW.exe”, 假, )
按键 (13, ).子程序 _服务器1_客户进入客户地址 ＝ 服务器1.取回客户 ().子程序 _服务器1_数据到达
.局部变量 临时数据, 字节集
.局部变量 长度, 整数型临时数据 ＝ 服务器1.取回数据 ()
长度 ＝ 取字节集长度 (临时数据)
.如果真 (长度 ＝ 4)
服务器1.发送数据 (客户地址, 还原字节集2 (“05 00”), )
.如果真结束.如果真 (长度 ＝ 10)
地址 ＝ 到文本 (取字节集数据 (取字节集中间 (临时数据, 5, 1), #整数型, )) ＋ “.” ＋ 到文本 (取字节集数据 (取字节集中间 (临时数据, 6, 1), #整数型, )) ＋ “.” ＋ 到文本 (取字节集数据 (取字节集中间 (临时数据, 7, 1), #整数型, )) ＋ “.” ＋ 到文本 (取字节集数据 (取字节集中间 (临时数据, 8, 1), #整数型, ))
端口 ＝ 取字节集数据 (取字节集中间 (临时数据, 9, 1), #整数型, ) × 256 ＋ 取字节集数据 (取字节集中间 (临时数据, 10, 1), #整数型, )
客户1.断开连接 ()
客户1.连接 (地址, 端口)
服务器1.发送数据 (客户地址, 还原字节集2 (“05 00 00 01 00 00 00 00 00 00”), )
.如果真结束.如果真 (长度 ＝ 92)
客户1.发送数据 (临时数据)
.如果真结束.如果真 (长度 ＝ 42 且 寻找文本 (查看字节集2 (临时数据), “01 20 00 20 00 1E”, , 假) ＞ 0)
客户1.发送数据 (临时数据)
.如果真结束.如果真 (长度 ＝ 13)
编辑框1.内容 ＝ 取文本右边 (查看字节集2 (临时数据), 2)
客户1.发送数据 (临时数据)
.如果真结束.如果真 (长度 ＝ 42 且 寻找文本 (查看字节集2 (临时数据), “01 20 00 20 00 DB”, , 假) ＞ 0)
编辑框3.内容 ＝ 取文本中间 (查看字节集2 (临时数据), 88, 2)
编辑框2.内容 ＝ 到文本 (取现行时间 ())
服务器1.断开客户 (客户地址)
客户1.断开连接 ()
.如果真结束
.子程序 _客户1_数据到达
.局部变量 临时数据, 字节集
.局部变量 长度, 整数型临时数据 ＝ 客户1.取回数据 ()
长度 ＝ 取字节集长度 (临时数据)
.如果真 (长度 ＞ 100 且 寻找文本 (查看字节集2 (临时数据), “10 00 00 00 00 00 BA 26”, , 假) ＞ 0)
服务器1.发送数据 (客户地址, 临时数据, )
.如果真结束.如果真 (长度 ＝ 70)
服务器1.发送数据 (客户地址, 临时数据, )
.如果真结束.如果真 (长度 ＝ 205)
服务器1.发送数据 (客户地址, 临时数据, )
.如果真结束
 |
