首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
您找到你想要的搜索结果了吗?
是的
没有找到

vb.net python哪个好_VS VB

大家好,又见面了,我是你们的朋友全栈君。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load get_CPU_info() get_net_info() get_op_info() get_net2_info() get_disk_info() get_disk_2_info() get_disp_info() get_bois_info() get_base_info() get_PhysicalMemoryy_info() End Sub Private Sub get_CPU_info() Dim info(40) As String Dim name(40) As String name(0) = “DeviceID” name(1) = “ProcessorID” name(2) = “Manufacturer” name(3) = “Name” name(4) = “Description” name(5) = “UniqueId” name(6) = “SocketDesignation” name(7) = “AddressWidth” name(8) = “DataWidth” name(9) = “Family” name(10) = “Level” name(11) = “Stepping” name(12) = “MaxClockSpeed” name(13) = “CurrentClockSpeed” name(14) = “InstallDate” name(15) = “PNPDeviceID” name(16) = “L2CacheSize” name(17) = “L2CacheSpeed” name(18) = “L3CacheSize” name(19) = “L3CacheSpeed” name(20) = “Architecture ” name(21) = “Availability” name(22) = “CurrentVoltage” name(23) = “ProcessorType” name(24) = “StatusInfo” name(25) = “UpgradeMethod” name(26) = “VoltageCaps” name(27) = “VoltageCaps” Dim i As Integer Dim cpu As New System.Management.ManagementObjectSearcher(“SELECT * FROM Win32_Processor”) For Each obj1 As System.Management.ManagementObject In cpu.Get Try info(0) = obj1(“DeviceID”) Catch ex As Exception info(0) = “” End Try Try info(1) = obj1(“ProcessorID”).ToString.Trim Catch ex As Exception info(1) = “” End Try Try info(2) = obj1(“Manufacturer”).ToString.Trim

04
领券