vb如何扫描电脑安装了什么程序

vb扫描电脑安装了什么程序的步骤有以下：

1、菜单，点搜索功码春能。

2、查找进程，如果发现目标当然腔誉说明已安装了。迟圆耐

3、目标名称就是安装软件名称。

将Text1设置成多行属性，代码如下：

' 显示 C:\ 目录下的名称或握老。

Dim MyDirectory As String

MyDirectory = ""

Dim MyPath As String

Dim MyDirectoryName As String

MyPath = "C:\" ' 指定路径。

MyDirectoryName = Dir(MyPath, vbDirectory) ' 找寻第一项。

Do While MyDirectoryName <>"" ' 开始循环。

' 跳过当前的目录及上层目录。

If MyDirectoryName <>"." And MyDirectoryName <>".." Then

'皮卖 使用位比较来确定 MyName 代表一目录。

If (GetAttr(MyPath &MyDirectoryName) And vbDirectory) = vbDirectory Then

MyDirectory = MyDirectory &MyDirectoryName &vbCrLf

End If

End If

MyDirectoryName = Dir '衫升 查找下一个目录。

Loop

Text1.Text = MyDirectory

---