<SCRIPT language="VBScript">
function Test()
Dim obj
Set obj = CreateObject("MyCom.MyAPI")
obj.MsgBox( "こんにちは !" )
end function
</SCRIPT>
<INPUT type=button value="実行" onClick="Call Test()">
JavaScript
<SCRIPT language="JavaScript">
function Test() {
var obj = new ActiveXObject("MyCom.MyAPI");
obj.MsgBox( "こんにちは !" )
}
</SCRIPT>
<INPUT type=button value="実行" onClick="Test()">
