YY最新可上号工具协议

a ＝ 分割文本 (到文本 (读入文件 (程序集_导入路径)), #换行符, )
清除数组 (全局_用户信息)
.计次循环首 (取数组成员数 (a), i)
.如果真 (取文本左边 (删首尾空 (a [i]), 1) ＝ “;”)
到循环尾 ()
.如果真结束
b ＝ 分割文本 (删首尾空 (a [i]), “----”, )
.如果真 (取数组成员数 (b) ≥ 2)
e ＝ 超级列表框1.插入表项 (, , , , , )
c.User ＝ 删首尾空 (b [1])
超级列表框1.置标题 (e, 1, c.User)
c.Pass ＝ 删首尾空 (b [2])
c.Hash ＝ 模块_hash (c.Pass)
c.type ＝ 取数组成员数 (全局_用户信息) ＋ 1
' c.Computer.DeviceName ＝ “PL” ＋ 到文本 (取随机数 (20000101, 20170129))
' c.Computer.ComputerVersion ＝ “Windows 7(6.1.7601” ＋ 到文本 (字符 (9)) ＋ “osbit ” ＋ 选择 (取随机数 (0, 1) ＝ 0, “32”, “64”) ＋ “)”
' c.Computer.Device.DeviceDisk ＝ “W-DCW1C5S” ＋ 到大写 (取随机字符串 (6))
' c.Computer.Device.DeviceMAC ＝ 到大写 (取随机字符串 (12))
' c.Computer.Device.DeviceCPU ＝ 到大写 (取随机字符串 (16))
' c.Computer.Device.DeviceID ＝ 取文本左边 (到小写 (到文本 (取数据摘要 (到字节集 (c.Computer.Device.DeviceMAC ＋ c.Computer.Device.DeviceDisk ＋ c.Computer.Device.DeviceCPU)))), 20)
' c.Computer.Device.DeviceInfo ＝ 取设备信息 (c.Computer.Device.DeviceID, c.Computer.Device.DeviceMAC, c.Computer.Device.DeviceDisk, c.Computer.Device.DeviceCPU)
' c.Computer.MAC ＝ “00” ＋ c.Computer.Device.DeviceMAC
' c.Computer.CONTEXTADD ＝ 取随机数 (10, 28)
' c.Computer.CONTEXT ＝ “YY_CONTEXT_1udbatuh10”
' c.Computer.StrMid ＝ 到小写 (取随机字符串 (32))
加入成员 (全局_用户信息, c)
超级列表框1.置标题 (e, 0, 到文本 (c.type))
.如果真结束

.计次循环尾 ()
超级列表框1.刷新显示 ()
全局_统计.导入总数 ＝ 取数组成员数 (全局_用户信息)
超级按钮_登录账号.禁止 ＝ 假
' 超级按钮_导入账号.标题 ＝ “账号个数 [” ＋ 到文本 (全局_统计.导入总数) ＋ “]”
标签3.标题 ＝ 到文本 (全局_统计.导入总数)