VB 求助如何对webbrowser加载网页中alert（）弹出的对话框自动点击

用VB写程序遇到一麻烦，想清您帮助。
这是网页代码：
//每播放隔二十分钟提示并暂停播放
if (secondIndex%1200 == 0 && CanPause && secondIndex != 0) {
doSelectPlay();
ClickPause();
//alert("您已经持续观看本视频" + secondIndex + "秒,请点击确认继续");
alert("请点击确认继续");
doSelectPause();
ClickPlay();
我想用VB自动点击这个代码出现的“确定”对话框。我是WebBrowser控件加载网页的。