硬件信息收集机V1(天下网盟测试版)+E原码

原码因有几位朋友Q我要!我也放出来给大家研究!没有什么水准!不好不要怪!

客户端原码:

.版本 2

.支持库 eAPI

.支持库 sock

.支持库 shell

.子程序 查信息

.局部变量 IP, 文本型, , "0"

.局部变量 cpu信息, CPU信息

.局部变量 bios, BIOS信息

.局部变量 硬盘信息, 硬盘信息

.局部变量 硬盘1, 文本型, , "0"

.局部变量 硬盘2, 文本型

.局部变量 I, 整数型

.局部变量 o, 整数型

.局部变量 文件号, 整数型

.局部变量 文本, 文本型

.局部变量 位置1, 整数型

.局部变量 位置2, 整数型

机名 ＝ 取本机名 ()

IP ＝ 取本机IP ()

I ＝ 取数组成员数 (IP)

.如果 (I ＞ 0)

IPMAC ＝ IP [1] ＋ “：” ＋ 取本机网卡物理地址 ()

.否则

IPMAC ＝ “--失败--”

.如果结束

取BIOS信息 (bios)

主板 ＝ bios.制造商 ＋ “/” ＋ bios.序列号

取CPU信息 (cpu信息)

CPU ＝ cpu信息.名称

内存 ＝ 到文本 (取内存容量信息 ()) ＋ “M”

取硬盘信息 (硬盘信息, )

硬盘 ＝ 硬盘信息.型号 ＋ “：” ＋ 到文本 (硬盘信息.容量) ＋ “MB ”

硬盘1 ＝ 取驱动器列表 (1)

I ＝ 取数组成员数 (硬盘1)

.如果真 (I ＞ 0)

.计次循环首 (I, o)

t硬盘2 ＝ 硬盘2 ＋ 硬盘1 [o] ＋ 到文本 (取磁盘总空间 (硬盘1 [o])) ＋ “MB剩” ＋ 到文本 (取磁盘剩余空间 (硬盘1 [o])) ＋ “MB ”

.计次循环尾 ()

硬盘 ＝ 硬盘 ＋ 硬盘2

.如果真结束

网卡 ＝ 取本机网卡名 ()

声卡 ＝ 取声卡名称 ()

.如果真 (文件是否存在 (取特定目录 (11) ＋ “Card.txt”) ＝ 假)

运行 (“cmd /c dxdiag /t %temp%Card.txt”, 真, 1)

.如果真结束

文件号 ＝ 打开文件 (取特定目录 (11) ＋ “Card.txt”, 1, )

文本 ＝ 读入文本 (文件号, )

关闭文件 (文件号)

位置1 ＝ 寻找文本 (文本, “Card name: ”, , 假) ＋ 11

位置2 ＝ 寻找文本 (文本, #换行符, 位置1, 假)

.如果 (位置1 ＜ 11)

显卡 ＝ “..取显卡信息失败..”

.否则

显卡 ＝ 取文本中间 (文本, 位置1, 位置2 － 位置1)

位置1 ＝ 寻找文本 (文本, “Display Memory: ”, 位置2, 假) ＋ 16

位置2 ＝ 寻找文本 (文本, #换行符, 位置1, 假)

显卡 ＝ 显卡 ＋ “/” ＋ 取文本中间 (文本, 位置1, 位置2 － 位置1)

.如果结束

发送数据 ＝ 机名 ＋ “@#@” ＋ IPMAC ＋ “@#@” ＋ 主板 ＋ “@#@” ＋ CPU ＋ “@#@” ＋ 内存 ＋ “@#@” ＋ 硬盘 ＋ “@#@” ＋ 显卡 ＋ “@#@” ＋ 网卡 ＋ “@#@” ＋ 声卡

.子程序 __启动窗口_创建完毕

运行 (“cmd /c dxdiag /t %temp%Card.txt”, 假, 1)

延时 (5000)

.如果真 (客户1.连接 (读配置项 (取运行目录 () ＋ “cfg.ini”, “配置”, “服务器IP”, ), 到整数 (读配置项 (取运行目录 () ＋ “cfg.ini”, “配置”, “端口”, ))))

查信息 ()

客户1.发送数据 (到字节集 (“@##@” ＋ 发送数据 ＋ “@##@”))

.如果真结束

结束 ()