VBS和頁(yè)面中響應(yīng)COM的事件的方法和代碼
更新時(shí)間:2007年03月05日 00:00:00 作者:
COM的CONNECTION POINT可以成為一種事件發(fā)生回調(diào)機(jī)制。
VBS中接收時(shí)間回調(diào)的方法是
Function myobject_onadd( v1, v2 )
MsgBox "add" & v1 & v2
End Function
Set Cnxn4 = WScript.CreateObject( "ATLCom.ATL3" , "myobject_")
頁(yè)面中使用的方法
<HTML>
<BODY ONLOAD="test()" LANGUAGE="VBS">
<SCRIPT LANGUAGE="VBS">
Function tt_onadd( v1, v2 )
MsgBox "add" & v1 & v2
End Function
Function test()
tt.Add 1, 2
End Function
</SCRIPT>
<SPAN ID="mySpan">SPAN</SPAN>
<object classid="clsid:1C6B8199-F7EA-4D8B-9F56-7F80ABAB16D0" id="tt">
</object>
</BODY>
</HTML>
感謝KEVIN給我提供的幫助。
VBS中接收時(shí)間回調(diào)的方法是
Function myobject_onadd( v1, v2 )
MsgBox "add" & v1 & v2
End Function
Set Cnxn4 = WScript.CreateObject( "ATLCom.ATL3" , "myobject_")
頁(yè)面中使用的方法
<HTML>
<BODY ONLOAD="test()" LANGUAGE="VBS">
<SCRIPT LANGUAGE="VBS">
Function tt_onadd( v1, v2 )
MsgBox "add" & v1 & v2
End Function
Function test()
tt.Add 1, 2
End Function
</SCRIPT>
<SPAN ID="mySpan">SPAN</SPAN>
<object classid="clsid:1C6B8199-F7EA-4D8B-9F56-7F80ABAB16D0" id="tt">
</object>
</BODY>
</HTML>
感謝KEVIN給我提供的幫助。
相關(guān)文章
TXT轉(zhuǎn)HTM、HTML「TXT轉(zhuǎn)網(wǎng)頁(yè)」的vbs實(shí)現(xiàn)代碼
試用過(guò)的Visual CHM,Power CHM,Easy CHM也非常令人失望??磥?lái)還是自給自足吧。本文介紹的方法不一定適用于所有用戶,看不懂的同學(xué)一律不要提問(wèn)和請(qǐng)教2011-11-11利用VBS發(fā)送短信的實(shí)現(xiàn)代碼(通過(guò)飛信)
無(wú)意中看到百度 VBS 貼吧里一個(gè)標(biāo)題為《無(wú)私的奉獻(xiàn)出我的用飛信免費(fèi)發(fā)短信接口》的帖子。2011-08-08VBS基礎(chǔ)篇 - vbscript動(dòng)態(tài)數(shù)組
VBS中的動(dòng)態(tài)數(shù)組需要使用System.Collections.ArrayList,需要的朋友可以參考下2018-05-05用vbscript得到注冊(cè)表中是否存在某個(gè)值
用vbscript得到注冊(cè)表中是否存在某個(gè)值...2007-04-04vbs 自動(dòng)復(fù)制U盤(pán)的內(nèi)容
運(yùn)行后當(dāng)把U盤(pán)插入電腦后能夠自動(dòng)把U盤(pán)里的PPT偷拷下來(lái)。下面用記事本就能實(shí)現(xiàn)的批處理或vbs。2009-12-12