zxhou1 发表于 2014-5-22 09:38:06

没缘嘛啊，求源码

ooxxgod 发表于 2014-6-2 22:29:39

这个不错 可以参考

tianya_jiang 发表于 2014-6-4 15:23:56

Good!!!!~~~

tianya_jiang 发表于 2014-6-4 15:24:00

Good!!!!~~~

tianya_jiang 发表于 2014-6-4 15:24:05

Good!!!!~~~

chenking84 发表于 2014-6-6 13:59:28

感谢楼主分享~

秀才110 发表于 2014-11-15 14:49:00

学习。。。。。。。。。。。

逆水风帆 发表于 2014-11-30 12:33:32

很给力，支持一下！

charming 发表于 2015-10-21 11:22:54

便宜弟弟顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

charming 发表于 2015-10-21 11:23:31

咋还是要钱呢啊，以前回帖不是挺贵的吗

deepfish 发表于 2015-11-24 13:01:07

好东西！！！顶一下！！！！

yeahbeen 发表于 2017-3-26 00:15:38

不是源码！！！！！

skysmile 发表于 2017-3-26 22:19:10

本帖最后由 skysmile 于 2017-3-26 22:21 编辑

我有类似功能的源码


;将常用系统信息存储到 sysinfo.ini文件
Func _sysinfo()
        local $mem1, $mem3
        $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        $colBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_computersystem")
        $colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
        $colCPU = $objWMIService.ExecQuery("Select * from CIM_Processor")
        $colVideoinfo = $objWMIService.ExecQuery("Select * from Win32_VideoController")
        $wnc = $objwmiservice.execquery("select * from win32_physicalmemory")

;获取主机型号
        For $object In $colBoard
                IniWrite($temp & "\sysinfo.ini", "系统信息", "主机型号", $object.Model)
        Next

;获取CPU信息
        For $object In $colCPU
                IniWrite($temp & "\sysinfo.ini", "系统信息", "CPU", $object.Name)
        Next

;获取显卡信息
        For $object In $colVideoinfo
                IniWrite($temp & "\sysinfo.ini", "系统信息", "显卡", $object.Description)
        Next

;获取操作系统信息
        For $objOperatingSystem In $colSettings
                IniWrite($temp & "\sysinfo.ini", "系统信息", "操作系统", $objOperatingSystem.Caption & " 版本 " & $objOperatingSystem.BuildNumber & " " & @OSArch)
        Next

;获取启动方式
        If _WinAPI_GetLastError() = $ERROR_INVALID_FUNCTION Then
                IniWrite($temp & "\sysinfo.ini", "系统信息", "启动方式", 'UEFI Boot Mode')
        Else
                IniWrite($temp & "\sysinfo.ini", "系统信息", "启动方式", 'Legacy BIOS')
        EndIf

;获取内存大小
        For $object In $wnc
                $mem = String(Int($object.capacity / 1048576))
                If $mem1 = "" Then
                                $mem1 = $mem & "MB"
                                $mem2 = ""
                Else
                                $mem1 &= "/" & $mem & "MB"
                                $mem2 = "(" & $mem1 & ")"
                EndIf
                $mem3 += $mem
       Next
        $nc = $mem3 & "MB" & $mem2
        IniWrite($temp & "\sysinfo.ini", "系统信息", "内存", $nc)
EndFunc

hjq766 发表于 2017-9-16 19:47:03

感谢分享··

grubby618 发表于 2017-10-12 11:19:23

没有源码放出来干嘛
页: 1 [2] 3
查看完整版本: 系统信息查看器