VBS和頁面中響應(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_")
頁面中使用的方法
<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_")
頁面中使用的方法
<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)頁」的vbs實(shí)現(xiàn)代碼
試用過的Visual CHM，Power CHM，Easy CHM也非常令人失望?？磥磉€是自給自足吧。本文介紹的方法不一定適用于所有用戶，看不懂的同學(xué)一律不要提問和請(qǐng)教2011-11-11
用vbs實(shí)現(xiàn)編碼轉(zhuǎn)換2008-06-06
利用VBS發(fā)送短信的實(shí)現(xiàn)代碼(通過飛信)
無意中看到百度 VBS 貼吧里一個(gè)標(biāo)題為《無私的奉獻(xiàn)出我的用飛信免費(fèi)發(fā)短信接口》的帖子。2011-08-08
VBS教程：VBscript屬性-Number 屬性...2006-11-11
VBS基礎(chǔ)篇 - vbscript動(dòng)態(tài)數(shù)組
VBS中的動(dòng)態(tài)數(shù)組需要使用System.Collections.ArrayList,需要的朋友可以參考下2018-05-05
已經(jīng)第二次了，上班后沒把電話解除，總記不起這件事。做了個(gè)備忘錄，放在啟動(dòng)項(xiàng)里，每次啟動(dòng)系統(tǒng)后都會(huì)執(zhí)行，彈出相關(guān)事項(xiàng)，即便自己沒有記住也可以給個(gè)提醒了2008-06-06
用vbscript得到注冊(cè)表中是否存在某個(gè)值
用vbscript得到注冊(cè)表中是否存在某個(gè)值...2007-04-04
vbs病毒的簡單例子源代碼解析...2007-03-03
運(yùn)行后當(dāng)把U盤插入電腦后能夠自動(dòng)把U盤里的PPT偷拷下來。下面用記事本就能實(shí)現(xiàn)的批處理或vbs。2009-12-12
昨天說了下用 htmlfile 來解析 html，今天依然用他來解析，htmlfile 是一個(gè) COM 版的 BOM 和 DOM，所以解析 html, 執(zhí)行 js 完全不在話下，今天就繼續(xù)解析 json 和 jsonp 吧2014-06-06