易语言获取本机信息源码

易语言获取本机信息源码

@flfkhn2

.版本 2
.支持库 iext
.支持库 sock
.支持库 internet
.支持库 eAPI

.子程序 取硬盘信息, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 硬盘型号1, 文本型
.局部变量 硬盘型号2, 文本型
.局部变量 硬盘型号3, 文本型
.局部变量 硬盘型号4, 文本型
.局部变量 硬盘型号5, 文本型
.局部变量 硬盘型号6, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 移动硬盘, 文本型
.局部变量 硬盘型号, 文本型
.局部变量 硬盘品牌, 文本型
.局部变量 硬盘信息, 文本型

.如果真 (取文本注册项 (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”, )
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)
.如果真 (硬盘型号1 ≠ “”)
    硬盘信息 ＝ 硬盘型号1
.如果真结束
.如果真 (硬盘型号2 ≠ “”)
    硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号2
.如果真结束
.如果真 (硬盘型号3 ≠ “”)
    硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号3
.如果真结束
.如果真 (硬盘型号4 ≠ “”)
    硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号4
.如果真结束
.如果真 (硬盘型号5 ≠ “”)
    硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号5
.如果真结束
.如果真 (硬盘型号6 ≠ “”)
    硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 硬盘型号6
.如果真结束
.如果真 (移动硬盘 ≠ “”)
    硬盘信息 ＝ 硬盘信息 ＋ #换行符 ＋ 移动硬盘
.如果真结束
.如果真 (取文本左边 (硬盘信息, 3) ＝ “WDC”)
    硬盘品牌 ＝ “西部数据:”
    标签信息.标题 ＝ 硬盘品牌 ＋ 硬盘信息
.如果真结束
.如果真 (取文本左边 (硬盘信息, 8) ＝ “KINGSTON”)
    硬盘品牌 ＝ “金士顿:”
    标签信息.标题 ＝ 硬盘品牌 ＋ 硬盘信息
.如果真结束
.如果真 (取文本左边 (硬盘信息, 6) ＝ “SAMSUN”)
    硬盘品牌 ＝ “三星:”
    标签信息.标题 ＝ 硬盘品牌 ＋ 硬盘信息
.如果真结束
.如果真 (取文本左边 (硬盘型号, 3) ≠ “WDC” 且 取文本左边 (硬盘型号, 8) ≠ “KINGSTON” 且 取文本左边 (硬盘信息, 6) ≠ “SAMSUN”)
    标签信息.标题 ＝ 硬盘信息
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 获取用户网络信息
.参数 本机名, 文本型, 参考
.参数 本机IP, 文本型, 参考
.参数 本机掩码, 文本型, 参考
.参数 本机网关, 文本型, 参考
.参数 本机首DNS, 文本型, 参考
.参数 本机副DNS, 文本型, 参考
.参数 本机MAC, 文本型, 参考
.参数 本机网卡名称, 文本型, 参考
.参数 本机外网IP, 文本型, 参考
.参数 本机外网归属地, 文本型, 参考
.参数 本机CPU, 文本型, 参考
.参数 本机内存, 文本型, 参考
.参数 主板品牌, 文本型, 参考
.参数 主板型号, 文本型, 参考
.参数 显卡型号, 文本型, 参考
.参数 显卡驱动, 文本型, 参考
.参数 本机操作系统, 文本型, 参考
.参数 操作系统版本号, 文本型, 参考
.参数 当前用户, 文本型, 参考
.参数 安装日期, 文本型, 参考
.参数 开机时间, 文本型, 参考
.局部变量 网卡信息, 精易_网卡信息_彗星, 静态, "0"
.局部变量 i, 整数型

系统_取网卡信息_彗星版 (网卡信息)
本机名 ＝ 取本机名 ()
本机外网IP ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (“http://2019.ip138.com/ic.asp”)), “您的IP是：[”, “]”, )
本机外网归属地 ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (“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].网卡描述
        .如果真结束

    .如果真结束

.计次循环尾 ()

Tags：易语言获取本机信息源码

来源：三叶资源网，欢迎分享，公众号：iisanye，（三叶资源网⑤群：21414575 ）