1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Web.Navigate "about:blank"
End Sub
Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is Web.Object Then
With Web.Document
.open
.write ("<script src='http://s11.cnzz.com/stat.php?id=2084855&web_id=2084855' language='JavaScript'></script>")
.Close
End With
End If
End Sub