VB快速获得CPUID
小弟是VB初学者,从网上搜到如下获取CPUID的代码,但是这段代码反映比较慢需要2秒时间.希望高手能加快运行速度.或者提供调用DLL的方法代码如下:OptionExpli...
小弟是VB初学者,从网上搜到如下获取CPUID的代码,但是这段代码反映比较慢需要2秒时间.希望高手能加快运行速度.
或者提供调用DLL的方法
代码如下:
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
'读取CPU的方法
Sub GetCPUID()
Dim CPUID, strComputer As String
Dim objWMIService, colDevices, objDevice
strComputer = "."
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colDevices = objWMIService.ExecQuery _
("Select * From Win32_Processor")
For Each objDevice In colDevices
CPUID = objDevice.ProcessorID
Next
'MsgBox "CPUID=" & CPUID
Text1.Text = CPUID
End Sub
楼下的朋友:
即便我在从安装系统后仍然如此,完全可以排除中毒和机器的影响 展开
或者提供调用DLL的方法
代码如下:
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
'读取CPU的方法
Sub GetCPUID()
Dim CPUID, strComputer As String
Dim objWMIService, colDevices, objDevice
strComputer = "."
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colDevices = objWMIService.ExecQuery _
("Select * From Win32_Processor")
For Each objDevice In colDevices
CPUID = objDevice.ProcessorID
Next
'MsgBox "CPUID=" & CPUID
Text1.Text = CPUID
End Sub
楼下的朋友:
即便我在从安装系统后仍然如此,完全可以排除中毒和机器的影响 展开
2个回答
展开全部
朋友，这是你的电脑“丢失”或“误删”了“系统文件”，或“系统文件”被病
毒和“顽固”木马“破坏”，我给你8套方案！
（答案原创，严禁盗用，如有雷同，纯属山寨！）
（提示：360急救箱不能联网，就先用：（5）网络修复，重启电脑，或者使
用：离线模式）
1.下载个：“360系统急救箱”！（安全模式下，联网使用，效果更好！）
（注意：已经安装了“360安全卫士”的朋友，直接打开“木马云查杀”，
点击:快速扫描，扫描结束后，中间有：没有问题，请用360急救箱，点击它！）
【1】先点：“开始急救”查杀病毒，删除后，“立即重启”！
【2】重启开机后，再点开“文件恢复区”，全选，点：“彻底删除文件”和“可
疑启动项”！
【3】再点开“系统修复”，“全选”，再“立即修复”文件！（关键一步）
【4】再点开：“dll文件恢复”，扫描一下，如果没有就行了，如果有丢失，添
加恢复，手动添加，立即恢复！
【5】点开：“网络修复”，点：“开始修复”，重启电脑！（关键一步）
2。用“360安全卫士”里“系统修复”，点击“使用360安全网址导航”，“一
键修复”！（关键一步）
3。用“360安全卫士”的“扫描插件”，然后再“清理插件”，把它删除！
4。再用“360杀毒双引擎版”，勾选“自动处理扫描出的病毒威胁”，用“全盘
扫描”和“自定义扫描”，扫出病毒木马，再点删除！
重启电脑后，来到“隔离区”，点“彻底删除”！
5。使用360安全卫士的“木马查杀”，全盘扫描，完毕再“自定义扫描”！
扫出木马或恶意病毒程序，就点删除！
重启电脑后，来到“文件恢复区”，点“彻底删除”！
6。如果还是不行，试试：“金山急救箱”的扩展扫描和“金山网盾”，一键修
复！或者：可牛免费杀毒，浏览器医生，浏览器修复，立即扫描，立即修复！
7。再不行，重启电脑，开机后，按F8，回车，回车，进到“安全模式”里，
“高级启动选项”里，“最后一次正确配置”，按下去试试，看看效果！
8。实在不行，做“一键还原”系统！（
毒和“顽固”木马“破坏”，我给你8套方案！
（答案原创，严禁盗用，如有雷同，纯属山寨！）
（提示：360急救箱不能联网，就先用：（5）网络修复，重启电脑，或者使
用：离线模式）
1.下载个：“360系统急救箱”！（安全模式下，联网使用，效果更好！）
（注意：已经安装了“360安全卫士”的朋友，直接打开“木马云查杀”，
点击:快速扫描，扫描结束后，中间有：没有问题，请用360急救箱，点击它！）
【1】先点：“开始急救”查杀病毒，删除后，“立即重启”！
【2】重启开机后，再点开“文件恢复区”，全选，点：“彻底删除文件”和“可
疑启动项”！
【3】再点开“系统修复”，“全选”，再“立即修复”文件！（关键一步）
【4】再点开：“dll文件恢复”，扫描一下，如果没有就行了，如果有丢失，添
加恢复，手动添加，立即恢复！
【5】点开：“网络修复”，点：“开始修复”，重启电脑！（关键一步）
2。用“360安全卫士”里“系统修复”，点击“使用360安全网址导航”，“一
键修复”！（关键一步）
3。用“360安全卫士”的“扫描插件”，然后再“清理插件”，把它删除！
4。再用“360杀毒双引擎版”，勾选“自动处理扫描出的病毒威胁”，用“全盘
扫描”和“自定义扫描”，扫出病毒木马，再点删除！
重启电脑后，来到“隔离区”，点“彻底删除”！
5。使用360安全卫士的“木马查杀”，全盘扫描，完毕再“自定义扫描”！
扫出木马或恶意病毒程序，就点删除！
重启电脑后，来到“文件恢复区”，点“彻底删除”！
6。如果还是不行，试试：“金山急救箱”的扩展扫描和“金山网盾”，一键修
复！或者：可牛免费杀毒，浏览器医生，浏览器修复，立即扫描，立即修复！
7。再不行，重启电脑，开机后，按F8，回车，回车，进到“安全模式”里，
“高级启动选项”里，“最后一次正确配置”，按下去试试，看看效果！
8。实在不行，做“一键还原”系统！（
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
