用VC能不能写一个实现了这个功能的ActiveX

网页有以下代码<head> <meta http-equiv="Refresh" content="30; URL=/user/timedout/?p1=0&p2=0&p3=863&p4=678118468" />
</head> 在DocumentCompleted里加代码：Dim meta As IHTMLMetaElement
Dim ee As HTMLDocument
ee = WB1.Document.DomDocument
meta = ee.getElementsByTagName("META").item(2)
MsgBox(meta.content)
meta.content = Replace(meta.content, "30", "5000")不行啊，网页还是30秒刷新用VC能不能写一个实现了这个功能的ActiveX