下面是个例子,你可以尝试一下 dim s as string Set webdoc = WebBrowser1.Document s = webdoc.all(0).outerhtml //获取网页源码 if InStrRev(s, "恭喜你,注册成功!")<>0 then //判断是否存在内容 msgbox "注册成功",,"提示" else msgbox "注册失败",,"提示" endif
展开全部
收起
热心网友回答时间:2024-05-16 17:36
if InStr(WebBrowser1.Document innerHTML, "恭喜你,注册成功!")<>0 then msgbox "注册成功",,"提示" else msgbox "注册失败",,"提示" endif