.版本 2 .支持库 iext .支持库 sock .支持库 internet .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 ' 系统_取MAC地址 () Skin_加载_从资源 (#皮肤_Itunes) 取硬盘信息 () .子程序 取硬盘信息 .局部变量 硬盘型号1, 文本型 .局部变量 硬盘型号2, 文本型 .局部变量 硬盘型号3, 文本型 .局部变量 硬盘型号4, 文本型 .局部变量 硬盘型号5, 文本型 .局部变量 硬盘型号6, 文本型 .局部变量 移动硬盘, 文本型 .局部变量 硬盘型号, 文本型 .局部变量 硬盘品牌, 文本型 .局部变量 硬盘信息, 文本型 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 硬盘型号1 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 硬盘型号2 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 2\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 硬盘型号3 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 2\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 3\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 硬盘型号4 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 3\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 4\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 硬盘型号5 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 4\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 5\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 硬盘型号6 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 5\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 0\Target Id 0\Logical Unit Id 0\Identifier”, ) ≠ “”) 移动硬盘 ＝ 取文本注册项 (4, “HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 0\Target Id 0\Logical Unit Id 0\Identifier”, ) .如果真结束 .如果真 (硬盘型号1 ≠ “”) 硬盘信息 ＝ 硬盘型号1 .如果真结束 .如果真 (硬盘型号2 ≠ “”) 硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号2 .如果真结束 .如果真 (硬盘型号3 ≠ “”) 硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号3 .如果真结束 .如果真 (硬盘型号4 ≠ “”) 硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号4 .如果真结束 .如果真 (硬盘型号5 ≠ “”) 硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号5 .如果真结束 .如果真 (硬盘型号6 ≠ “”) 硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号6 .如果真结束 .如果真 (移动硬盘 ≠ “”) 硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 移动硬盘 .如果真结束 .如果真 (取文本左边 (硬盘信息, 3) ＝ “WDC”) 硬盘品牌 ＝ “西部数据:” 标签信息.标题 ＝ 硬盘品牌 ＋ 硬盘信息 .如果真结束 .如果真 (取文本左边 (硬盘信息, 8) ＝ “KINGSTON”) 硬盘品牌 ＝ “金士顿:” 标签信息.标题 ＝ 硬盘品牌 ＋ 硬盘信息 .如果真结束 .如果真 (取文本左边 (硬盘信息, 6) ＝ “SAMSUN”) 硬盘品牌 ＝ “三星:” 标签信息.标题 ＝ 硬盘品牌 ＋ 硬盘信息 .如果真结束 .如果真 (取文本左边 (硬盘型号, 3) ≠ “WDC” 且 取文本左边 (硬盘型号, 8) ≠ “KINGSTON” 且 取文本左边 (硬盘信息, 6) ≠ “SAMSUN”) 标签信息.标题 ＝ 硬盘信息 .如果真结束 .子程序 获取用户网络信息 .参数 本机名, 文本型, 参考 .参数 本机IP, 文本型, 参考 .参数 本机掩码, 文本型, 参考 .参数 本机网关, 文本型, 参考 .参数 本机首DNS, 文本型, 参考 .参数 本机副DNS, 文本型, 参考 .参数 本机MAC, 文本型, 参考 .参数 本机网卡名称, 文本型, 参考 .参数 本机外网IP, 文本型, 参考 .参数 本机外网归属地, 文本型, 参考 .参数 本机CPU, 文本型, 参考 .参数 本机内存, 文本型, 参考 .参数 主板品牌, 文本型, 参考 .参数 主板型号, 文本型, 参考 .参数 显卡型号, 文本型, 参考 .参数 显卡驱动, 文本型, 参考 .参数 本机操作系统, 文本型, 参考 .参数 操作系统版本号, 文本型, 参考 .参数 当前用户, 文本型, 参考 .参数 安装日期, 文本型, 参考 .参数 开机时间, 文本型, 参考 .局部变量 网卡信息, 精易_网卡信息_彗星, 静态, "0" .局部变量 i, 整数型 系统_取网卡信息_彗星版 (网卡信息) 本机名 ＝ 取本机名 () 本机外网IP ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (“//2019.ip138.com/ic.asp”)), “您的IP是：[”, “]”, ) 本机外网归属地 ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (“//2019.ip138.com/ic.asp”)), “来自：”, “</center>”, ) 本机CPU ＝ 系统_取CPU名称 () .如果真 (取文本右边 (取文本左边 (到文本 (取内存容量信息 (0)), 2), 1) ≠ “0”) ' 如果取内存容量左边2位数，第二位数不为0 本机内存 ＝ 取文本左边 (本机内存, 2) ＋ “G” ' 本机内存容量=左边2位数 .如果真结束 本机内存 ＝ 取文本左边 (到文本 (取内存容量信息 (0)), 1) ＋ “G” 主板品牌 ＝ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardManufacturer”, ) .如果真 (取文本左边 (主板品牌, 7) ＝ “ASUSTeK”) 主板品牌 ＝ “华硕” .如果真结束 .如果真 (取文本左边 (主板品牌, 3) ＝ “MSI”) 主板品牌 ＝ “微星” .如果真结束 .如果真 (取文本左边 (主板品牌, 6) ＝ “LENOVO”) 主板品牌 ＝ “联想” .如果真结束 主板型号 ＝ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, ) 显卡型号 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}\0000\DriverDesc”, ) 显卡驱动 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}\0000\DriverDate”, ) 本机操作系统 ＝ 取文本注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName”, ) 操作系统版本号 ＝ 取文本注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId”, ) 当前用户 ＝ 系统_取用户名 () 安装日期 ＝ 文本_替换 (文本_取出中间文本 (系统_取系统信息 (), “初始安装日期: ”, “系统启动时间: ”, ), 20, 1, , “ ”, “”) 开机时间 ＝ 文本_取出中间文本 (系统_取系统信息 (), “系统启动时间: ”, “系统制造商: ”, ) .如果真 (当前用户 ＝ “Administrator”) 当前用户 ＝ “Administrator (超级用户)” .如果真结束 .计次循环首 (取数组成员数 (网卡信息), i) 跳到 (i) .如果真 (取文本左边 (网卡信息 [i].连接名称, 5) ≠ “VMwar”) .如果真 (网卡信息 [i].IP地址 ≠ “0.0.0.0”) 本机IP ＝ 网卡信息 [i].IP地址 本机掩码 ＝ 网卡信息 [i].子网掩码 本机网关 ＝ 网卡信息 [i].网关地址 本机首DNS ＝ 网卡信息 [i].首选DNS服务器 本机副DNS ＝ 网卡信息 [i].备用DNS服务器 本机MAC ＝ 网卡信息 [i].MAC地址 本机网卡名称 ＝ 网卡信息 [i].网卡描述 .如果真结束 .如果真结束 .计次循环尾 () .子程序 _按钮1_被单击 .局部变量 局_网络信息, 文本型, , "0" .局部变量 本机名, 文本型 .局部变量 本机IP, 文本型 .局部变量 本机掩码, 文本型 .局部变量 本机网关, 文本型 .局部变量 本机首DNS, 文本型 .局部变量 本机副DNS, 文本型 .局部变量 本机MAC, 文本型 .局部变量 本机网卡名称, 文本型 .局部变量 本机外网IP, 文本型 .局部变量 本机外网归属地, 文本型 .局部变量 本机CPU, 文本型 .局部变量 本机内存, 文本型 .局部变量 主板品牌, 文本型 .局部变量 主板型号, 文本型 .局部变量 本机显卡, 文本型 .局部变量 显卡驱动, 文本型 .局部变量 本机操作系统, 文本型 .局部变量 操作系统版本号, 文本型 .局部变量 当前用户, 文本型 .局部变量 安装日期, 文本型 .局部变量 开机时间, 文本型 按钮1.禁止 ＝ 真 获取用户网络信息 (本机名, 本机IP, 本机掩码, 本机网关, 本机首DNS, 本机副DNS, 本机MAC, 本机网卡名称, 本机外网IP, 本机外网归属地, 本机CPU, 本机内存, 主板品牌, 主板型号, 本机显卡, 显卡驱动, 本机操作系统, 操作系统版本号, 当前用户, 安装日期, 开机时间) 编辑框内容.内容 ＝ “计算机名: ” ＋ 本机名 ＋ #换行符 ＋ “操作系统: ” ＋ 本机操作系统 ＋ “ (” ＋ 操作系统版本号 ＋ “)” ＋ #换行符 ＋ “当前帐户: ” ＋ 当前用户 ＋ #换行符 ＋ “系统安装日期: ” ＋ 安装日期 ＋ “本次开机时间: ” ＋ 开机时间 ＋ #换行符 ＋ “IP 地址: ” ＋ 本机IP ＋ “/” ＋ 本机掩码 ＋ “/” ＋ 本机网关 ＋ #换行符 ＋ “DNS服务: ” ＋ 本机首DNS ＋ “/” ＋ 本机副DNS ＋ #换行符 ＋ “物理地址: ” ＋ 本机MAC ＋ #换行符 ＋ “网卡名称: ” ＋ 本机网卡名称 ＋ #换行符 ＋ “公网地址: ” ＋ 本机外网IP ＋ “/” ＋ 本机外网归属地 ＋ #换行符 ＋ #换行符 ＋ “处 理 器: ” ＋ 本机CPU ＋ #换行符 ＋ “内 存: ” ＋ 本机内存 ＋ #换行符 ＋ “主板品牌: ” ＋ 主板品牌 ＋ “(” ＋ 主板型号 ＋ “)” ＋ #换行符 ＋ “显卡型号: ” ＋ 本机显卡 ＋ “(” ＋ 显卡驱动 ＋ “)” .子程序 _编辑框内容_内容被改变