主题：[求助]如何获取系统位数

msgbox(IntPtr.Size)

如果是4，就是32位，如果是8，就是64位

要添加 System.Management.Dll 引用

Dim oConn As New System.Management.ConnectionOptions()
Dim oMs As New System.Management.ManagementScope("\\localhost", oConn)
Dim oQuery As New System.Management.ObjectQuery("select AddressWidth fr om Win32_Processor")
Dim oSearcher As New System.Management.ManagementObjectSearcher(oMs, oQuery)
Dim oReturnCollection = oSearcher.[Get]()
Dim addressWidth As String = Nothing

For Each oReturn As object In oReturnCollection
   
    addressWidth = oReturn("AddressWidth").ToString()
Next
msgbox(addressWidth)