创建方法二:
<script event=onload for=window language=vbscript>
dim kkk
set kkk = CreateObject("Pmycom.mycomx")
If Err.Number <> 0 Then
msgbox "错"+Err.Number
Else
alert("创建成功"); //这句被执行了
End if
</script>
方法三:
<script language="javascript">
var aa = new ActiveXObject("Pmycom.mycomx")
alert(aa);
</script>