用VS2015，创建的VB.NET应用程序，如何同时操作两个EXCEL工作簿

首先定义

成都创新互联公司是创新、创意、研发型一体的综合型网站建设公司，自成立以来公司不断探索创新，始终坚持为客户提供满意周到的服务，在本地打下了良好的口碑，在过去的10多年时间我们累计服务了上千家以及全国政企客户，如成都不锈钢雕塑等企业单位，完善的项目管理流程，严格把控项目进度与质量监控加上过硬的技术实力获得客户的一致称赞。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后创建对象

xlApp = CreateObject("Excel.Application") '创建EXCEL对象

xlBook = xlApp.Workbooks.Open("文件路径") '打开已经存在的EXCEL工件簿文件

xlSheet = xlBook.Worksheets("sheet1")

五子棋游戏程序设计（VB）

五子棋的AI构想 有句话叫“当局者迷，旁观者清。”，但这句话在由AI所控制的计算机玩家上是不成立的，因为计算机必须知道有那些获胜方式，并计算出每下一步棋到棋盘上任一格子的获胜几率，也就是说，一个完整的五子棋的AI构想必须：

　

1、能够知道所有的获胜组合； 2、建立和使用获胜表； 3、设定获胜的分数； 4、使电脑具有攻击和防守的能力； 一、求五子棋的获胜组合 在一场五子棋的游戏中，计算机必须要知道有那些的获胜组合，因此我们必须求得获胜组合的总数。我们假定当前的棋盘为10*10。 （1）计算水平方向的获胜组合数，每一列的获胜组合是：6，共10列，所以水平方向的获胜组合数为：6*10=60 （2）计算垂直方向的获胜组合总数，每一行的获胜组合是：6，共10行，则垂直方向的获胜组合数为：6*10=60 （3）计算正对角线方向的获胜组合总数，正对角线上的获胜组合总数为6+（5+4+3+2+1）*2=36 （4）计算反对角线方向的获胜组合总数，反对角线上的获胜组合总数为6+（5+4+3+2+1）*2=36 ，这样所有的获胜组合数为：60+60+36+36=192 二、建立和使用获胜表 我们已经计算出了一个10*10的五子棋盘会有192种获胜方式，这样我们可以利用数组建立获胜表，获胜表的主要作用是：1，判断当前的获胜方式是否有效；2，判断当前的获胜方式中到底有多少子落入该获胜组合中。详细的使用您将在后面的程序中可以看出。 三，分数的设定 在游戏中为了让计算机能够决定下一步最佳的走法，必须先计算出计算机下到棋盘上任一空格的分数，而其中最高分数便是计算机下一步的最佳走法。 原理：我们判定当前讨论的空格与当前讨论的点有几种获胜的方式，有几种该空格就加几分。这种原理初听起来似乎是无法入手，没关系，当您了解我们后面的程序后您就会明白这种决策原理了。 这种决策有一些缺陷，因为如果只根据这个模型设计，就有可能出现电脑或玩家有三个子连成一线的时候，计算机却判断不出，它认为其他某些空格是当前的获胜的最佳位置而不去攻击或防守。没关系我们完全可以通过一个加强算法来改变当前的分值情况，也就是说当电脑或玩家有三个子或四个子连成一线时，我们通过加强算法将当前与三个子或四个子有关的空格的分值提高，从而可以弥补这一缺憾。 四、攻击与防守 以上的方式，事实上计算机只是计算出了最佳的攻击位置，为了防守我们还应计算当前玩家的最佳的攻击位置。这样有什么用呢？道理很简单，如果玩家最佳攻击位置的分数大于计算机最佳攻击位置上的分数，那么计算机就将下一步的棋子摆在玩家的最佳攻击位上以阻止玩家的进攻，否则计算机便将棋子下在自己的最佳攻击位置上进行攻击。 事实上，这个AI构想是很强大的如果你不是很厉害的五子棋高手的话，可能很快会被计算机打败。我在联众上可是中级棋手啊，跟这种构想打的时候胜率也不是很高。 使用vb.net编写五子棋 一、编写前的准备： 1、用计算机的思想描述整个下棋的过程 考虑步骤： （1）为了简便我们可以先让电脑先走第一步棋，电脑每走一步就会封掉许多玩家的获胜可能情况。 （2）当玩家走棋的时候我们首先应该考虑玩家走棋的合法性。 （3）如果合法，那么玩家也会封掉许多电脑的获胜的可能情况。 （4）电脑的思考路径：首先判断当前玩家和电脑的所有获胜组合是否需要进行加强赋值，

是进行加强赋值，否则进行普通的赋值。 （5）比较当前玩家和电脑谁的分值最大。将分值最大的点作为电脑的下一步走法。 2、利用vb.net窗体和图形工具建立五子棋的棋盘界面 （1）添加一个picturebox控件 作用：使用picturebox控件绘制棋子和棋盘 （2）添加一个label控件 作用：显示当前的获胜标志，也就是当某一方获胜或和棋时显示此标签。 （3）添加一个mainmenu控件 作用：控制游戏的开始或结束 （4）添加一个mediaplay组件 作用：使程序可以播放音乐。 3、设置整体框价 我们采取10*10的棋盘，为主要的平台。利用数组定义整个棋盘桌面，利用数组定义获胜组合以及获胜标志等。 二，声明全局数组和变量 定义虚拟桌面： Dim table(9, 9) As Integer 定义当前玩家桌面空格的分数： Dim pscore(9, 9) As Integer 定义当前电脑桌面空格的分数： Dim cscore(9, 9) As Integer 定义玩家的获胜组合： Dim pwin(9, 9, 191) As Boolean 定义电脑的获胜组合： Dim cwin(9, 9, 191) As Boolean 定义玩家的获胜组合标志： Dim pflag(191) As Boolean 定义电脑的获胜组合标志：

Dim cflag(191) As Boolean 定义游戏有效标志： Dim theplayflag As Boolean 三、初始化游戏 '*****************************************************************************

'** 模块名称: initplayenvironment

'**

'** 描述: 此函数主要功能如下:

'** 1. 设置背景音乐。

'** 2. 设置游戏状态有效。

'** 3. 初始化游戏状态标签。

'** 4. 直接指定电脑的第一步走法。

'** 5. 初始化基本得分桌面。

'** 6. 电脑和玩家获胜标志初始化。

'** 7. 初始化所有获胜组合。

'** 8. 重新设定玩家的获胜标志。

'**

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

Sub initplayenvironment()

player.FileName = ".\music\zhyu01.mid"

player.Play()

theplayflag = True

'游戏有效

Label1.Visible = False

'游戏状态标签不显示

PictureBox1.Refresh()

'清空picturebox1的内容

yuandian(130, 130)

'调用绘图函数绘制当前电脑先走的位置

Dim i, j, m, n As Integer

For i = 0 To 9

For j = 0 To 9

table(i, j) = 0

Next

Next

'桌面初始化

For i = 0 To 191

pflag(i) = True

cflag(i) = True

Next

'获胜标志初始化

table(4, 4) = 1

'由于我们设定电脑先手，并下了4，4位所以将其值设为1

''' ******** 初始化获胜组合 ********

n = 0

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i, n) = True

cwin(j + m, i, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(i, j + m, n) = True

cwin(i, j + m, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 5

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i + m, n) = True

cwin(j + m, i + m, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 5

For j = 9 To 4 Step -1

For m = 0 To 4

pwin(j - m, i + m, n) = True

cwin(j - m, i + m, n) = True

Next

n = n + 1

Next

Next

''' ******** 初始化获胜组合结束 ********

For i = 0 To 191

If pwin(4, 4, i) = True Then

pflag(i) = False

End If

Next

'由于电脑已下了4，4位所以我们需要重新设定玩家的获胜标志

End Sub

四，处理鼠标事件 '*****************************************************************************

'** 模块名称: themousedown

'**

'** 描述: 此函数主要实行以下功能：

'** 1. 判定当前游戏标志是否有效。

'** 2. 将实际坐标转化成虚拟坐标。

'** 3. 绘制玩家的棋子。

'** 4. 执行检查获胜函数。

'** 5. 执行电脑算法函数。

'**

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

Sub themousedown(ByVal x As Integer, ByVal y As Integer)

If theplayflag = False Then

Exit Sub

End If

'检查游戏状态是否有效

Dim i, j As Integer

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

For i = 0 To 9

For j = 0 To 9

If table(zhx, zhy) 0 Then

Exit Sub

End If

Next

Next

'检查当前鼠标点击的格子是否有效

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

mycolor = Color.White

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

'绘制玩家的棋子

table(zhx, zhy) = 2

For i = 0 To 191

If cwin(zhx, zhy, i) = True Then

cflag(i) = False

End If

Next

'重设电脑的获胜标志

checkwin()

'检查当前玩家是否获胜

diannao()

'调用电脑算法

End Sub 五、获胜检查算法。 '*****************************************************************************

'** 模块名称: checkwin

'**

'** 描述: 此模块执行以下功能:

'** 1. 检查是否和棋。

'** 2. 检查电脑是否获胜。

'** 3. 检查玩家是否获胜。

'**

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

Sub checkwin()

Dim i, j, k, m, n As Integer

Dim ca As Integer

Dim pa As Integer

Dim cnormal As Integer = 0

For i = 0 To 191

If cflag(i) = False Then

cnormal = cnormal + 1

End If

Next

If cnormal = 190 Then

Label1.Visible = True

Label1.Text = "和棋，请重新开始！"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

'设定和棋规则

For i = 0 To 191

If cflag(i) = True Then

ca = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

ca = ca + 1

End If

End If

Next

Next

If ca = 5 Then

Label1.Visible = True

Label1.Text = "电脑获胜,请重新开始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

End If

Next

'检查电脑是否获胜

For i = 0 To 191

If pflag(i) = True Then

pa = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pa = pa + 1

End If

End If

Next

Next

If pa = 5 Then

Label1.Visible = True

Label1.Text = "玩家获胜,请重新开始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

End If

Next

'检查玩家是否获胜

End Sub 　六、电脑算法 '*****************************************************************************

'** 模块名称: diannao

'**

'** 描述: 此程序主要执行以下功能：

'** 1. 初始化赋值系统。

'** 2. 赋值加强算法。

'** 3. 计算电脑和玩家的最佳攻击位。

'** 4. 比较电脑和玩家的最佳攻击位并决定电脑的最佳策略。

'** 5. 执行检查获胜函数。

'**

'***************************************************************************** Sub diannao()

Dim i, j, k, m, n As Integer

Dim dc As Integer

Dim cab As Integer

Dim pab As Integer

For i = 0 To 9

For j = 0 To 9

pscore(i, j) = 0

cscore(i, j) = 0

Next

Next

'初始化赋值数组

''' ******** 电脑加强算法 ********

For i = 0 To 191

If cflag(i) = True Then

cab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

cab = cab + 1

End If

End If

Next

Next

Select Case cab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

cscore(m, n) = cscore(m, n) + 5

End If

End If

Next

Next

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

Next

End If

End If

Next

Next

End Select

End If

Next

For i = 0 To 191

If pflag(i) = True Then

pab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pab = pab + 1

End If

End If

Next

Next

Select Case pab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

pscore(m, n) = pscore(m, n) + 30

End If

End If

Next

Next

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

Next

End If

End If

Next

Next

End Select

End If

Next

''' ******** 电脑加强算法结束 ******** ' ******** 赋值系统 ********

For i = 0 To 191

If cflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If cwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 1 Then

If cwin(m, n, i) = True Then

cscore(j, k) = cscore(j, k) + 1

End If

End If

Next

Next

End If

End If

Next

Next

End If

Next

For i = 0 To 191

If pflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If pwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 2 Then

If pwin(m, n, i) = True Then

pscore(j, k) = pscore(j, k) + 1

End If

End If

Next

Next

End If

End If

Next

Next

End If

Next

''' ******** 赋值系统结束 ********

''' ******** 分值比较算法 ********

Dim a, b, c, d As Integer

Dim cs As Integer = 0

Dim ps As Integer = 0

For i = 0 To 9

For j = 0 To 9

If cscore(i, j) cs Then

cs = cscore(i, j)

a = i

b = j

End If

Next

Next

For i = 0 To 9

For j = 0 To 9

If pscore(i, j) ps Then

ps = pscore(i, j)

c = i

d = j

End If

Next

Next

If cs ps Then

yuandian(a * 30 + 10, b * 30 + 10)

table(a, b) = 1

For i = 0 To 191

If pwin(a, b, i) = True Then

pflag(i) = False

End If

Next

Else

yuandian(c * 30 + 10, d * 30 + 10)

table(c, d) = 1

For i = 0 To 191

If pwin(c, d, i) = True Then

pflag(i) = False

End If

Next

End If

''' ******** 分值比较算法结束 ********

checkwin()

End Sub 七、绘制棋子 '*****************************************************************************

'** 模块名称: yuandian

'**

'** 描述: 此函数主要进行电脑棋子的绘制。

'**

'***************************************************************************** Sub yuandian(ByVal x As Integer, ByVal y As Integer)

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

mycolor = Color.Black

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

End Sub

VBAI 和 Vision Assistant的区别

DVBAI全称叫Vision Builder for Automation Inspection，NI官方的中文名称叫用于自动检测的视觉生成器。其可以理解为NI的工程师使用NI Vision Developments Module（视觉开发包VDM）开发的一款功能比较强大的应用程序。使用VBAI，可以直接用于项目检测，而不需要工程师再花太多的心思用于搭建程序框架，实现逻辑功能等。因此很多时候，一些简单的项目，使用VBAI，可能几分钟就可以完成了。VBAI的优点是可以快速的检测一些常规的视觉项目，而不需要花费太多的时间精力于编程上，入门相对简单。但是其缺点也是明显的，那就是其界面框架已经是固定的，要想有太多的修改编辑，是不可能的；目前还只有英文版的，要想弄成中文版的，也不方便；其支持的硬件，一般只能是NI的硬件，或NI认证的，或者是一些标准通信协议的硬件，才能被支持，比较受限制，如许多国产相机、采集卡、IO卡，在VBAI中就无法使用；VBAI做的项目，一般不能集成运动控制，如果有运动控制，只能考虑使用PLC，然后利用通信的方式与PLC交换数据。其它的一些问题，如数据保存等也只能TXT、CSV等几种格式。另外VBAI的脚本执行是顺序方式的，不能发挥LabVIEW的并行特性，因此其执行效率相对来讲，会慢一些。VBAI也可以生成开发程序的代码，但是因为其本身的复杂性（变量系统、附加工具等），其生成的代码相对比较复杂，难以看明白，调用起来不是很方便。VBAI的加密也很简单，只能保护脚本。如果给客户安装了VBAI，那么想要他可以修改参数，就得告诉其密码，这样对于软件产品的保护，是不利的。

# H8 { w c2 q, b7 K4 I

9 W9 c9 B. e5 p- a: ^/ I. |NI Vision Developments Module（视觉开发包VDM），则是NI的所有视觉函数的集成总合，所有NI视觉相关的程序、软件都是调用VDM中的函数，VBAI也是调用VDM里的函数。在安装完成VDM后，会附带生成视觉助手Vision Assistant。当然视觉助手本身也是一个EXE应用程序。其实现模式与VBAI非常类似，但是功能上没有VBAI那么强大，他不能实时的进行采集、处理、判断这样的过程。因为其采集与分析是分开的，然后没有变量系统，也就不能做规格判断。只能验证找没找到特征，可以测量得到特征的数据。但是正因为其相对简单，所以他生成的代码相简单明了许多。这也是NI出视觉助手的根本目的，就是为了让用户使用助手可以完成大部分的视觉功能，则不用去直接调用VDM中的函数，这样可以更方便的使用VDM。) U, e3 I+ S2 h6 @! T9 y. Q8 `

; _* v) c7 E' xVBAI就像部门经理，VDM像总经理，部门经理能干的事，总经理基本都能干。视觉助手就是总经理的秘书。秘书可以帮总经理做一些事，但是不是所有事都可以做，要都做了，还要总经理干嘛。) O; p) H S( U" m* ?

. v, j5 t4 B( c! N" V) e8 T- v ~5 UVBAI和视觉助手，都只能完成VDM中的大部分功能，有一些其它的特殊功能函数是无法完成的。因此如果想要有比较好、全面的开发，当然是使用LabVIEW这样的开发平台直接调用VDM中的函数。这时如果对VDM不是很熟悉，可以使用视觉助手来生成代码（LabVIEW、C、.NET），以方便开发平台的调用。而如果只是为了简单的应用、验证，使用VBAI即可。如果是比较有量的商业项目，肯定还是考虑使用LabVIEW+VDM这样的模式自己开发软件，这样可以有效的保护自己的软件产品，而不会被客户随意复制。+ L" b @9 l2 m* Q u ], \

4 ~3 T6 V! Q6 Z9 {6 N0 V9 J# H

在VB.net中如何取变量、结构、数组、函数的地址？

当然可以的，需要System.Runtime.InteropServices 命名空间中的 Marshal 类

Imports System.Runtime.InteropServices '这里一定要有 

Public Class Form1

Public Structure m_Point

Dim x As Integer

Dim y As Integer

End Structure

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer = 50

Dim ai() As Integer = {1, 2, 3, 4, 5}

Dim pi As IntPtr = GCHandle.Alloc(i, GCHandleType.Pinned).AddrOfPinnedObject() '取得整形变量的指针 

Dim pai As IntPtr = GCHandle.Alloc(ai, GCHandleType.Pinned).AddrOfPinnedObject() '取得整形数组首地址指针

MsgBox(Marshal.ReadInt32(pi, 0)) '读回整形变量指针指向的值

MsgBox(Marshal.ReadInt32(pai, 0 * 4)) '读回数组的第一个元素

MsgBox(Marshal.ReadInt32(pai, 1 * 4)) '读回数组的第二个元素

MsgBox(Marshal.ReadInt32(pai, 2 * 4)) '读回数组的第三个元素

'-----下面是结构--------------------------

Dim m_p As New m_Point

m_p.x = 100

m_p.y = 50

Dim pm_p As IntPtr = GCHandle.Alloc(m_p, GCHandleType.Pinned).AddrOfPinnedObject() '取得结构首地址指针 

MsgBox(Marshal.ReadInt32(pm_p, 0 * 4)) '读回结构的第一个值

MsgBox(Marshal.ReadInt32(pm_p, 1 * 4)) '读回结构的第二个值

End Sub

End Class

vb.net python哪个好

要去专业学习，建议选Python

个人认为二者各有利弊。

vb.net是由vb化来的，Python被称为“最贴近自然语言的编程语言”，都比较容易上手；

vb.net可以高效开发有图形界面的应用，Python需要Gui库等，可能稍逊一筹；

但Python作为十分高级的脚本语言，十分适合AI开发，也因此具有潜力。

最后，祝你在编程的路上渐行渐远，乐此不疲。蓦然回首数载，尽享编程美好！

多媒体 音频 声音 音量 大小 如何得到系统实时音量大小，用VB.net易的win7声音控制软件，

驱动程序，设置，文件，注册表四个方面，震动，如看它是否可以恢复全面检查，案件的接口是坏的，这是为配件

首先，请检查声音卡驱动程序，右键单击“我的电脑” - 属性 - 硬件 - 设备管理器 - 声音，视频和游戏控制器 - 右击 - ReaItek - 更新或扫描，卸载并重新安装。 （如果你下载的驱动程序生命没有驱动程序包 - 驱动更新 - 声音，视频 - 开始更新 - 自动找到的官方驱动程序 - 重新启动计算机。）

调试麦克风：控制面板 - 高清晰音频配置 - 混频器 - 重放 - 小扳手 - 选择 - OK - - 后粉红色 - X'静音，推高了麦克风插孔前面板 - 选择 - OK，然后打X麦克风静音，然后在右边拉点音频I/O--小扳手 - 选择“禁用前面板插孔检测 - OK - 返回混频器 - 录制 - 小扳手 - 点击麦克风的音量（版本不一致需打X-静音立体声混音）

加强麦克风：右键单击右下角的小喇叭（小喇叭的音量上） - 调整音频属性 - 音量 - 设备音量 - 高级 - （主音??量全推到上） - 选项 - 属性 - 麦克风音量打勾 - 确定返回选项 - 高级控制 - 高级 - 麦克风加强了钩。

右下角的小喇叭显示：开始---设置---控制面板 - 声音和音频设备 - 音量 - （勾选）将音量图标放入任务栏上。

5。在网页中，网页声音的操作方法：打开网页 - 工具 - 选项 - 高级 - （勾选）播放的声音。

6。游戏耳机出声来：控制面板---高清晰音频配置 - 音频I/O--耳机 - 选举8CH喇叭。

7。前部和后部面板插孔调试：控制面板 - 高清晰音频配置 - 音频I/O--模拟 - 后面板插孔图标 - 单击 - 你插入的设备吗？ （需插入的设备，如插耳机） - 当选耳机 - OK，所以

8。使用QQ聊天的语言时，MIC音量无法调整，请下载补丁。

9，如声卡驱动安装不上的解决方法：控制面板 - 管理工具 - 服务 - Windows音频 - 启动类型设置为“自动”重新启动它。

10。注册表的方法：

开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\的Windows \ CurrentVersion \ Run在右侧窗口中新建字符串”系统托盘“点右键（在运行于新的）键（在系统托盘中双击编辑）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系统，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”

开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\ WINDOWSNT \ CURRENTVERSION \ Drivers32创建一个新的字符串值，命名为”wavemapper“值”msacm32。DRV“。重新启动计算机。

当前文章：vb.netai的简单介绍
文章分享：http://pwwzsj.com/article/docheeo.html