vb.net录音 vbs脚本录制

vb.net怎么编程实现从音频输出口输出指定频率指定时长和占空比的单音信号。

1.用Win32 API PlaySound

我们提供的服务有：做网站、网站制作、微信公众号开发、网站优化、网站认证、荆门ssl等。为成百上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的荆门网站制作公司

PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：

先声明：

Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = H20000

Const SND_ALIAS As Integer = H10000

Const SND_SYNC As Integer = H0

具体还有很多常量，不一一列举，下面是播放一个wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。

当然我们也可以调用系统的声音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式调用系统启动时候的声音。

2． 调用媒体播放器控件

VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。

首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\爱不爱我.mp3"

.Play()

End With

End Sub

vb.net 中 如何实现 播放mp3文件

在.NET里，没有托管的音乐播放器，用API只能播放WAV格式，对于MP3等形式的音频文件，就要依赖于其他控件了，常用的就是

MediaPlayer。使用方法：

在工具箱上点右键，选择“选择项目(Choose Items)”，切到COM选项卡，找到 Windows Media Player， 勾选，确定

在t工具箱上，把刚才加入的MediaPlayer控件，拖放到窗体上

代码：

WindowsMediaPlayer1.URL = "mp3文件路径，支持网络路径"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作诸如下一曲上一曲暂停停止，直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。

vb.net 录音&保存

A simple Sound Recorder~

1. Add Three buttons (button1, button2, button3) and a label (label1) to the form.

2. Set the Text of Button1 to Start, Button2 to Stop, and Button3 to Play.

3. Add this code:

Public Class Form1

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

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

Button1.Enabled = False

Button2.Enabled = True

mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)

mciSendString("record recsound", "", 0, 0)

Label1.Text = "Recording..."

Label1.Visible = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button1.Enabled = True

Button2.Enabled = False

Button3.Enabled = True

mciSendString("save recsound c:\recsound.wav", "", 0, 0)

mciSendString("close recsound", "", 0, 0)

MsgBox("File Created: C:\recsound.wav")

Label1.Text = "Stopped..."

Label1.Visible = False

My.Computer.Audio.Stop()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Label1.Text = "Playing..."

Label1.Visible = True

My.Computer.Audio.Play("c:\recsound.wav", AudioPlayMode.Background)

End Sub

End Class