点击这里给我发消息 点击这里给我发消息

在网页调用 WINDOWS 控件两例

添加时间:2010-1-5
    相关阅读: 网页 HTML CSS JavaScript

一、这个是netmting的例子


<HTML>
<head>
<title>OCX</title>
<meta http-equiv="Content-Type" content="text/HTML; charset=gb2312">


<script language="JavaScript">
var flag=true
function 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=http://www.blue1000.com/article/"
L_="<br><b> <a href=""vbscript:op(-1)"" class=""color""><img src='http://www.blue1000.com/article/msn_icons/msn_ppl.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=http://www.blue1000.com/article/"
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 = OffC

本文作者:
咨询热线:020-85648757 85648755 85648616 0755-27912581 客服:020-85648756 0755-27912581 业务传真:020-32579052
广州市网景网络科技有限公司 Copyright◎2003-2008 Veelink.com. All Rights Reserved.
广州商务地址:广东省广州市黄埔大道中203号(海景园区)海景花园C栋501室
= 深圳商务地址:深圳市宝源路华丰宝源大厦606
研发中心:广东广州市天河软件园海景园区 粤ICP备05103322号 工商注册