一、这个是netmting的例子
<html><head><title>OCX</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script language="JavaScript">var flag=truefunction showall(){ alist = new Array(); newocx(); list1.value = ""; list2.value = ""; list1.value = ocxtype.outerHTML; j = 0; for (i in ocxtype) { alist[j] = i; j++; } for (i = 0; i < alist.length; i++) for (j = (alist.length-1); j > 0; j--) { if (alist[j] < alist[j-1]) { temps = alist[j]; alist[j] = alist[j-1]; alist[j-1] = temps; } } for (i = 0; i < alist.length; i++) list2.value += alist[i] + "\n"; alert("共有 "+alist.length+" 个属性方法")}function newocx(){ ocxfield.innerHTML = "<OBJECT ID='ocxtype' WIDTH='0px' HEIGHT='0px'" + "CLASSID='CLSID:" + ocxid.value + "'></OBJECT>";}</script></head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"> <p>classid <input type="text" id="ocxid" style="width:400" value="F3A614DC-ABE0-11d2-A441-00C04F795683" onchange="jscript:flag=true"> <input type="button" id="look" value="查看" onclick="showall()"> </p> <table width="75%" border="1"> <tr> <td height="24"> <div align="center">html中的写法</div> </td> <td height="24"> <div align="center">OCX中的属性事件</div> </td> </tr> <tr> <td> <textarea id="list1" style="width: 500px; height: 400px;" readonly></textarea> </td> <td> <textarea id="list2" style="width:250px; height:400px;" readonly></textarea> </td> </tr> </table></div><div id="ocxfield"></div></body></html>
<script language="Javascript">function ShowMessenger() { if (messengerUI.object != null) { var MsgrWindow if (messengerUI.myStatus == 2) { MsgrWindow = messengerUI.window; MsgrWindow.show(); } else messengerUI.Signin(0,"",""); } }
function ShowElement(element) { element.style.display=""; document.msn.offline.value="ON"; } function HideElement(element) { //rowShow.style.visibility="hidden"; element.style.display="none"; document.msn.offline.value="OFF"; }
function ShowHide(element) { if (document.msn.offline.value=="ON") { HideElement(element); } else { ShowElement(element); }
} </script> <style type="text/css"> <!-- .small { font-size: 11px; font-family: Verdana, Arial, Helvetica, sans-serif} body { font-family: Verdana, Arial, Helvetica, sans-serif} a { color:#3D55C4 ; text-decoration: none} a:link { color:#3D55C4 ; text-decoration: none} a:hover { color:#000000 ; text-decoration: none} --> </style> </head>
<body bgcolor="#FFFFFF" text="#000000" vlink="##3D55C4" onclick="(mUser.innerHTML)"> <table cellpadding="1" cellspacing="1" bgcolor="#3D55C4" width="150" id="abc"> <script language="VBScript" id="mcvbs">' this script is loosely based on the original script from Microsoft. ' Various flags and such for god-knows what... Dim A_ A_=False Dim B_,C_,D_ B_=False C_=False D_=False Dim E_,F_,G_ E_=False F_=False G_=3000 ' Ooohhh! I know what this is! This is the amount of milliseconds for refresh Dim H_(),I_ ' H_() is an object array of users. This is also the cache I_=0 ' Variables for different links to different images representing state in Messenger... I think Dim J_,K_,L_,M_,N_,O_,P_,OffL J_="<OBJECT classid="""&"clsid:FB7199AB-79BF-11d2-8D94-0000F875C541"""&" codeType=application/x-oleobject id=MsgrApp width=0 height=0></OBJECT>" K_="<font class=""small"">" M_="<img align=absbottom width=16 height=17 border=0 src=" L_="<br><b> <a href=""vbscript:op(-1)"" class=""color""><img src='http://webdesign.chinaitlab.com/UploadFiles_8014/200605/20060512101437118.gif' border='0' alt=''>"&" Sign in now... "&"</a></b>" N_=M_&"msn_icons/online1.gif"&" ALT="""&"Online"&""">" O_=M_&"msn_icons/busy1.gif"&" ALT="""&"Busy"&""">" P_=M_&"msn_icons/idle1.gif"&" ALT="""&"Away"&""">" 'Added by JH OffL = M_&"msn_icons/offline1.gif"&" ALT="""&"Offline"&""">" M_="<img align=absbottom width=16 height=17 border=0 src=" Dim Q_ Q_=False Dim ttl ttl=0 ' added arrays for online and offline contacts Dim OnA() ' online contacts Dim OffA() ' offline contacts ' counters for amount of online and offline Dim OnCtr OnCtr=0 Dim OffCtr OffCtr=0 ' Online/Offline?
Sub DrawInitialState On Error Resume Next Dim R_ R_=MsgrObj.LocalState If Err Then A_=False Else A_=True End If Err.Clear If A_=True Then document.all.getmsgr.style.display="none" DrawContacts Else document.all.getmsgr.style.display="block" End If End Sub
Function HasMsgrApp() appload.innerHTML = J_ On Error Resume Next Dim R_ Set R_=MsgrApp If Err.description="" Then HasMsgrApp=True Else HasMsgrApp=False End If Err.Clear End Function
Sub RefreshMC() If A_ Then If C_ Then D_=True Else D_=False DrawContacts SetRefreshTimer End If End If End Sub
Sub SetRefreshTimer() If Not C_ Then C_=True setTimeout "DoRefresh",G_,"VBScript" End If End Sub
Sub DoRefresh() C_=False If D_ Then RefreshMC End If End Sub
Sub DrawContacts '******************************************************************** ' Modified by JH ' DrawContacts: ' On Error Resume Next ' new list of contacts to iterate thru ' ctr for list loop Dim i i = 0 ' strings for output Dim z, zz z="" zz="" ' for div visibility Dim mU,mO,msgL,noneL,notOn,onli mU="none" mO="none" msgL="none" noneL="none" notOn="block" onli="block" If E_ Then mcClearCache End If ' The heart of the matter If MsgrObj.LocalState And 2 Then 'Online If Not F_ Then mcLoadCache End If If I_>0 Then For i = 0 To ttl select case H_(i).State case 1 OffCtr = OffCtr + 1 case else OnCtr = OnCtr + 1 end select Next ReDim OnA(OnCtr) ReDim OffA(OffCtr) OnCtr = 0 OffCtr = 0 ' loop to get FriendlyNames of contacts and put them in their respective arrays For i = 0 To ttl If H_(i).State=1 then Set OffA(OffCtr)=H_(i) OffCtr = OffCtr + 1 Else Set OnA(OnCtr) = H_(i) OnCtr = OnCtr + 1 End If Next ' sort online users SortUsers2 0,OnCtr-1,True For i = 0 to OnCtr-1 Dim onl Dim h onl="" h="" h = " href='VBScript:op(" & i & ")'" onl = fixName(OnA(i).FriendlyName,17) z = z & "<a" & h & " class=""color"">" & getStateImage(OnA(i).State) & "</a> " & "<a " & h & " title=""" z = z & "Send an instant message to " & onl & "." z = z & """ class=""color"">" & K_ & onl z = z & "</font></a><br>" Next ' sort offline users SortUsers2 0,OffCtr-1,False For i = 0 to OffCtr-1 Dim ofn ofn="" ofn = fixName(OffA(i).FriendlyName,17) zz = zz & getStateImage(OffA(i).State) & " " zz = zz & K_ & ofn & "<br>" Next if OnCtr > 0 Then mU="block" mO="block" document.all.mUser.innerHTML=z document.all.mOff.innerHTML=zz else mU="block" mO="block" document.all.mUser.innerHTML="<font class=""small"">None</font>" document.all.mOff.innerHTML=zz end if Else noneL="block" document.all.noneol.innerHTML=K_&"Your contact list is empty. <br><a href=vbscript:op(-2) class=""color"">Add contacts to your list.</a>"&"</font>" end if Else If MsgrObj.LocalState=256 Or MsgrObj.LocalState=512 Then msgL="block" notOn="none" onli="none" B_ = True document.all.statu.innerHTML = "<br> <img src='http://webdesign.chinaitlab.com/UploadFiles_8014/200605/20060512101437118.gif' border='0' alt=''> <b>Connecting...</b></div>" Else msgL="block" notOn="none" onli="none" if Not B_ Then document.all.statu.innerHTML = L_ End If End
[1] [2] 下一页
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
