Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取系统位数


  共有2391人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jiskin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
[求助]如何获取系统位数  发帖心情 Post By:2016/6/2 20:22:00 [只看该作者]

想在FT里获取系统是32位还是64 有什么简单的方法么?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/2 20:24:00 [只看该作者]

msgbox(IntPtr.Size)

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2016/6/2 20:31:00 [只看该作者]

以下是引用大红袍在2016/6/2 20:24:00的发言:

msgbox(IntPtr.Size)

 

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

 

袍爷,我的是win8.1企业版 x64 运行结果是 4……………………


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/2 20:41:00 [只看该作者]

要添加 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)

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
jiskin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:5207 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2016/6/2 20:51:00 [只看该作者]

以下是引用大红袍在2016/6/2 20:41:00的发言:

要添加 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)

 

 

 

 

感谢袍爷! 问题解决了


 回到顶部