VB 如何对webbrowse加载的网页中的alert()弹出的对框自动点击（或回车）？

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

sendkeys.send "{enter}"
就可以了