关于麦克疯缓存的加密WMV文件的解密播放

麦 克疯是目前比较流行的K歌软件。但是其缓存到本地的WMV文件都是经过加密的,无法在其他计算机播放。
软件在播放时,会在本机生成 127.0.0.1的HTTP服务器,并将所选择的WMV文件解密后放入TEMP文件夹,再由内置MEDIA PLAYER调用By Jason Sun
所以在解密算法破解出来之前,可以采取在播放时将TEMP文件夹中的 WMV文件拷贝出来这一方法实现临时解密。 By Jason Sun
C:\Documents and Settings\当前登陆用户名\Local Settings\Temp

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 在VB6中编写播放麦克风声音的程序,首先需要引用Windows API函数来实现该功能。 1. 首先,在VB6的代码编辑器中,点击菜单栏的"项目",然后选择"引用"。 2. 在弹出的"引用"对话框中,找到并勾选"Windows Multimedia"或"winmm.dll",然后点击"确定"。 3. 在代码编辑器中,在模块的声明部分添加以下代码: ```vb Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long ``` 以上代码将引入"mciSendString"函数,该函数用于向Windows多媒体控制器发送命令。 4. 在点击按钮或者其他事件中,添加以下代码: ```vb Sub PlayMicrophoneSound() ' 打开麦克风输入 mciSendString "open new type waveaudio alias mymic", "", 0, 0 ' 开始录制声音 mciSendString "record mymic", "", 0, 0 End Sub ``` 以上代码使用`mciSendString`函数打开了一个新的波音频文件别名为"mymic",然后开始录制来自麦克风的声音。 5. 另外,你还可以添加以下代码来停止录音并播放录制的声音: ```vb Sub StopAndPlayRecording() ' 停止录制声音 mciSendString "stop mymic", "", 0, 0 ' 播放录制的声音 mciSendString "play mymic", "", 0, 0 End Sub ``` 以上代码使用`mciSendString`函数停止录制声音,然后立即播放刚刚录制的声音。 这样,当你点击按钮或者其他事件触发`PlayMicrophoneSound`函数后,程序将开始录制麦克风的声音。当你再次点击按钮或触发其他事件后,将执行`StopAndPlayRecording`函数来停止录音并播放录制的声音。 ### 回答2: 要在VB6中编写播放麦克风声音,可以使用Windows API函数来实现这个功能。下面是一个简单的示例代码: 首先,我们需要声明所需的Windows API函数的原型: Private Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMATEX, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long Private Declare Function waveInStart Lib "winmm.dll" (ByVal hWaveIn As Long) As Long Private Declare Function waveInClose Lib "winmm.dll" (ByVal hWaveIn As Long) As Long 接下来,我们需要定义WAVEFORMATEX结构体,来设置音频输入的格式: Private Type WAVEFORMATEX wFormatTag As Integer nChannels As Integer nSamplesPerSec As Long nAvgBytesPerSec As Long nBlockAlign As Integer wBitsPerSample As Integer cbSize As Integer End Type 然后,我们需要创建一个窗体,加入一个按钮和一个文本框,用来启动麦克风音频的录制和播放。按钮的Click事件代码如下: Private Sub Command1_Click() Dim hWaveIn As Long Dim res As Long ' 设置音频输入格式 Dim format As WAVEFORMATEX format.wFormatTag = 1 ' PCM格式 format.nChannels = 1 ' 单声道 format.nSamplesPerSec = 44100 ' 采样率为44.1kHz format.nAvgBytesPerSec = format.nSamplesPerSec * 2 ' 每秒字节数 format.nBlockAlign = 2 ' 数据块大小 format.wBitsPerSample = 16 ' 每个样本的位数 format.cbSize = 0 ' 不使用额外的格式信息 ' 打开麦克风 res = waveInOpen(hWaveIn, 0, format, 0, 0, 0) If res <> 0 Then MsgBox "无法打开麦克风" Exit Sub End If ' 启动麦克风 res = waveInStart(hWaveIn) If res <> 0 Then MsgBox "无法启动麦克风" Exit Sub End If ' 开始录制和播放麦克风音频,可以使用Windows API函数来处理音频数据 End Sub 最后,在窗体的Unload事件中,记得关闭麦克风: Private Sub Form_Unload(Cancel As Integer) ' 关闭麦克风 waveInClose hWaveIn End Sub 这只是一个基础的示例代码,要实现更复杂的音频处理功能,还需要使用其他的Windows API函数和相关的逻辑处理。 ### 回答3: 在VB6中,我们可以使用Windows API函数来播放麦克风的声音。首先,我们需要声明API函数,使用以下代码: 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 接下来,我们可以使用以下代码来播放麦克风的声音: mciSendString "open new Type waveaudio Alias mic", "", 0, 0 '打开麦克风设备 mciSendString "set mic bitspersample 16", "", 0, 0 '设置采样位数为16 mciSendString "set mic channels 1", "", 0, 0 '设置声道数为1 mciSendString "set mic samplespersec 44100", "", 0, 0 '设置采样频率为44100Hz mciSendString "record mic", "", 0, 0 '开始录制麦克风声音 '等待一段时间进行录制 Sleep 5000 '等待5秒 mciSendString "save mic C:\path\to\output.wav", "", 0, 0 '保存录制的声音到指定路径 '停止录制麦克风声音 mciSendString "stop mic", "", 0, 0 mciSendString "close mic", "", 0, 0 以上代码的关键是使用"MCI"命令来控制麦克风的打开、配置和录制操作。请确保麦克风设备正常连接并且已安装正确的驱动程序。如果需要修改录制的时长或输出路径等参数,请根据实际情况进行调整。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值