VB怎么实现中断

使用 Windows media player控件 或 PlaySoundAPI函数，结合 MsgBox() 函野侍数均可。

例如：使用 Windows media player控件 结合 MsgBox() 函数

①在窗历山体上放一个Windows media player控件，假设其名称为WindowsMediaPlayer1。（如果不想让其出现在窗体上，将WindowsMediaPlayer1的visible属性肢脊中设为“False”即可）

②在你的程序需要原地等待并持续播放声音报警的地方插入下列几句代码：

WindowsMediaPlayer1.URL = "F:\_MP3\草原的微香.mp3" '指定声音文件

WindowsMediaPlayer1.Controls.play '持续播放声音文件报警

K = MsgBox("请按 确定按钮 停止声音报警，继续程序运行。", vbOKOnly, " 提示") ' *** 作提示

WindowsMediaPlayer1.Controls.stop '关闭播放声音文件，停止报警

比如中断散困轮qq，十秒后再运行：

private

sub

command1_click()

shell

"tskill

qq2010"

timer1.enabled

=

true

end

sub

private

sub

form_load()

timer1.enabled

=

false

timer1.interval

=

10000

end

sub

private

sub

timer1_timer()

shell

"qqpath\qq.exe"

timer1.enabled

=

false

end

sub

其冲信中qqpath是qq的路径尺培

---