获取系统信息

精意源码

• 怎么快速的取系统信息？

• 在百度搜索取系统信息，出现的大多数取cmd回执行的结果，也就是用提示符取，电视台这样有一个缺点-慢，读取系统信息要等个5,6秒

• 有什么办法解决？

  
  首先想的是对象了，用易语言代码实现获取处理器信息：
•   

  子程序名	返回值类型	公开	备 注
  处理器信息	文本型

  变量名	类 型	静态	数组	备 注
  脚本	对象
  返回值	文本型

  脚本.创建 (“MSScriptControl.ScriptControl”, )
  脚本.写属性 (“Language”, “VBScript”)
  脚本.数值方法 (“AddCode”, #取处理器信息 )
  返回值 ＝ 脚本.通用方法 (“Eval”, “GetA()”).取文本 ()
  返回 (返回值)
  

  .版本 2<br /> <br /> .子程序 处理器信息, 文本型<br /> .局部变量 脚本, 对象<br /> .局部变量 返回值, 文本型<br /> <br /> 脚本.创建 (“MSScriptControl.ScriptControl”, )<br /> 脚本.写属性 (“Language”, “VBScript”)<br /> 脚本.数值方法 (“AddCode”, #取处理器信息)<br /> 返回值 ＝ 脚本.通用方法 (“Eval”, “GetA()”).取文本 ()<br /> 返回 (返回值)
  
  

#取处理器信息：Function GetA()
Dim R, wmi, obj, i
    Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set A = wmi.ExecQuery("Select * from Win32_Processor")
    For Each obj In A
        i=i+1
        R = "处理器型号=" & obj.Name & vbCrLf
        R = R& "处理器架构_数据=" & obj.Description & vbCrLf
        R = R& "处理器厂商=" & obj.Manufacturer & vbCrLf
        R = R& "处理器核心数=" & obj.NumberOfCores & vbCrLf
        R = R& "处理器线程数=" & obj.NumberOfLogicalProcessors & vbCrLf
        R = R& "处理器接口=" & obj.SocketDesignation & vbCrLf
        R = R& "处理器位宽=" & obj.DataWidth & "位" & vbCrLf
        R = R& "处理器外频=" & obj.ExtClock & "MHz" & vbCrLf
        R = R& "处理器主频=" & obj.MaxClockSpeed & "MHz" & vbCrLf
    Next
        R = R & "处理器数量=" & Cstr(i) & vbCrLf
GetA = R
End Function

缺点与优点

缺点：稍微复制一点
优点：相对与 系统_取DOS执行结果(systeminfo,假) 要快上很多；能够获取的信息足够详细。

a1095592614

        支持开源~！感谢分享

zhendejun

!!! 警告： 发现子程序“文本_取出中间文本_批量”中的参数或局部变量名称“文本”与另一程序集变量重名 !!! 警告： 发现子程序“子程序_十进制转二进制”中的参数或局部变量名称“变量1”与另一全局变量重名 !!! 警告： 发现子程序“十六到二”中的参数或局部变量名称“变量1”与另一全局变量重名 !!! 警告： 发现子程序“文本_标签适合长度”中的参数或局部变量名称“文本”与另一程序集变量重名 正在预处理现行程序 正在编译易模块"窗口阴影模块", 文件名: "C:\Users\Administrator\Desktop\取配置\窗口阴影模块.ec", 版本号: "2.0", 创建号: "0.0", 作者: "a2002". 正在进行名称连接... 错误(10002): 指定子程序或类方法名称“文本_取出中间文本”未找到。

hbqjb

学习了，谢谢！

lucky109

666666666666666666666666

lucky109

666666666666666666666666

Akari

感谢分享

POLICE察

6666正需要  感谢

红色恋曲

666666666666666666666666666

wangdiaodiao

wangdiaodiao 发表于 2022-11-11 18:59
666666666666666666666666666666666

6666666666666666666666666666666666666

wangdiaodiao

666666666666666666666666666666666