系统信息查看器

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

没有源码放出来干嘛

		自动登录	找回密码
密码			加入

[原创] 系统信息查看器