vb 获取计算机硬件,vb获取电脑软硬件信息 示例源码

【实例简介】

【实例截图】

【核心代码】

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

'*************************************************

' Script : Check Computer Application List

'Last Mondify:By Alin(slin0511@163.com)

'*************************************************

On Error Resume Next

Const HKLM = &H80000002

Const strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"

Const ForReading = 1

Const ForAppending = 8

'*****************************************************************

'Please change the path of the file where you want to save it!!!!