原码因有几位朋友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.发送数据 (到字节集 (“@##@” ＋ 发送数据 ＋ “@##@”))
.如果真结束
结束 ()
∨ 展开