通达信最简单的填数暴力工具源码

.版本 2
 .支持库 EThread
 
.子程序 子程序
 .局部变量 文本IP, 文本型, , "3"
 .局部变量 n, 整数型
 .局部变量 服务器内容, 文本型
 .局部变量 临时文本, 文本型, , "0"
 .局部变量 临时, 整数型
 
计次 ＝ 0
 服务器内容 ＝ 到文本 (读入文件 (“通达信服务器.ini”))
 临时文本 ＝ 分割文本 (服务器内容, #换行符, )
 重定义数组 (行情服务器, 假, 取数组成员数 (临时文本))
 .计次循环首 (取数组成员数 (临时文本), n)
     文本IP ＝ 分割文本 (临时文本 [n], “:”, 3)
     行情服务器 [n].名称 ＝ 文本IP [1]
     行情服务器 [n].地址 ＝ 文本IP [2]
     行情服务器 [n].端口 ＝ 到数值 (文本IP [3])
 .计次循环尾 ()
 编辑框5.内容 ＝ “用户名：” ＋ 用户名称
 临时 ＝ 0
 .计次循环首 (取数组成员数 (临时文本), )
     临时 ＝ 临时 ＋ 1
     重定义数组 (行情客户, 真, 临时)
     复制窗口组件 (客户4, 行情客户 [临时])
     启动线程 (&客户号3, 临时, )
     行情客户 [临时].标记 ＝ 到文本 (临时)
     超级延时 (350)
 .计次循环尾 ()
 超级延时 (10000)
 播放音乐 (#声音1, )
 
.子程序 客户号3
 .参数 参数
 
.如果真 (行情客户 [参数].连接 (行情服务器 [参数].地址, 行情服务器 [参数].端口))
     行情客户 [参数].发送数据 (还原字节集2 (“0C 01 18 7B 00 01 20 00 20 00 1E 00 ” ＋ 用户名字节 ＋ “ 00 35 32 74 64 78 00 00 00 00 00 00 00 00 00 00 00 00”))
 .如果真结束
 

.子程序 _客户4_数据到达
 .局部变量 实际组件, 客户
 .局部变量 变量1, 字节集
 .局部变量 变量4, 整数型
 
实际组件 ＝ 取事件组件 ()
 变量1 ＝ 实际组件.取回数据 ()
 变量4 ＝ 取字节集长度 (变量1)
 .如果真 (变量4 ＝ 70)
     实际组件.发送数据 (还原为字节集 (“0C0218930001030003000D00” ＋ 编辑框3.内容))
 .如果真结束
 
.如果真 (变量4 ＝ 205)
     实际组件.发送数据 (还原为字节集 (“12,3,24,153,0,1,32,0,32,0,219,15,116,100,120,108,101,118,101,108,50,0,0,10,215,195,64,4,84,” ＋ 到文本 (十六到十 (编辑框4.内容)) ＋ “,0,0,0,0,0,0,0,0,0,0,0,2”, 假))
 .如果真结束
 
.如果真 (变量4 ＝ 195)
     实际组件.发送数据 (还原字节集2 (“0C 01 00 2A 00 01 3B 00 3B 00 44 05 05 00 01 39 39 39 39 39 39 00 00 00 00 00 33 39 39 30 30 31 00 00 00 00 00 33 39 39 30 30 35 00 00 00 00 00 33 39 39 33 30 30 00 00 00 00 00 33 39 39 30 30 36 00 00 00 00”))
 .如果真结束
 
.判断开始 (变量4 ＞ 300 )
     .如果真 (变量4 ＜ 400)
         .如果真 (寻找文本 (编辑框5.内容, 行情服务器 [到数值 (实际组件.标记)].名称, , 假) ＝ -1)
             编辑框5.加入文本 (#换行符, 行情服务器 [到数值 (实际组件.标记)].名称 ＋ “连接成功”)
             计次＝ 计次 ＋ 1
             编辑框6.内容 ＝ “暴力成功:” ＋ 到文本 (计次2) ＋ “个” ＋ “ ” ＋ “用时:” ＋ 到文本 (取整 ((取启动时间 () － 时间A) ÷ 1000)) ＋ “秒”
         .如果真结束
 
    .如果真结束
 
.判断 (变量4 ＝ 18)
     .如果真 (寻找文本 (编辑框5.内容, 行情服务器 [到数值 (实际组件.标记)].名称, , 假) ＝ -1)
         编辑框5.加入文本 (#换行符, 行情服务器 [到数值 (实际组件.标记)].名称 ＋ “连接失败”)
     .如果真结束
 
服务器配置文件格式：
 高级行情_上海电信2  *:61.152.168.232:7715
 高级行情_北京电信1   :124.127.97.197:7709
 高级行情_北京网通1   :61.135.142.90:7709