电话的来电显示功能为大家辨别呼叫者是谁提供的极大的方便。固话的来电显示功能很好,但不能像手机那样直接显示出者的姓名。要是把固话的来电显示
功能搬到电脑里去,那就可以帮到我们迅速了解来者的信息,对我们的日常工作带来极大的帮助。一直以为在要在我们的系统里加上这一功能是一件很艰难的事
情,不管是用带来电显示MODEN还是用市面上的一些来电显示盒,我们都要跟一系列的硬件打交道让我不知从何入手。用ActiveX控件来开发这方面的应用提供了极
大的便利,编程者只要打开设备,其它的一切工作就由控件去完成,使编程人员用寥寥数行的代码就可以得道的来电号码,而不必为复杂的硬件、协议等等花费
太多的精力。
以下就是这段程序
要想得到这个ActiveX控件可以到这里下
http://www.kosen.com.cn/news/showatc.asp?id=123
<HTML>
<TITLE>JDComPort VBScript Sample</TITLE>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
Sub SetSate
Call JDComPort1.SetSate
end sub
Sub SetupPorts
call JDComPort1.SetupPorts
end sub
Sub Open
call JDComPort1.Open
end sub
Sub Close
call JDComPort1.Close
end sub
Sub ClearmBox
Document.forms.mbox.value=""
end sub
dim vartxt
vartxt="kosen co.td"
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Sub JDComPort1_OnKeyPress(key, devid)
Document.forms.str3.value = devid & ":" & key
Document.forms.mbox.value = Document.forms.str3.value & chr(10) & Document.forms.mbox.value
end sub
Sub JDComPort1_OnRead(s,t,devid,wavefile)
Document.forms.textfieldk.value = devid & ":" & s
Document.forms.mbox.value = Document.forms.textfieldk.value & chr(10) & Document.forms.mbox.value
end sub
</SCRIPT>
</HEAD>
<BODY><center>
<OBJECT ID="JDComPort1" WIDTH=36 HEIGHT=36
CLASSID="CLSID:C4751F74-C039-4272-8532-11F7ACBAD184">
<PARAM NAME="_ExtentX" VALUE="953">
<PARAM NAME="_ExtentY" VALUE="953">
</OBJECT>
<FORM ACTION="#" NAME="forms"><table width="100%" border="1" cellpadding="0" cellspacing="0" onload height="330">
<tr>
<td width="9%" height="30"><center><h3>JDComPort.OCX 控件来电实例 </h3></center></td>
</tr>
<tr>
<td width="9%" height="30"><center>
来电
<INPUT TYPE=text SIZE=52 NAME="textfieldk" >
按键
<INPUT TYPE=text SIZE=10 NAME="str3">
</center></td>
</tr>
<tr>
<td width="9%" height="30"><center>
消息窗口<br>
<textarea name="mbox" cols="80" rows="10">
</textarea>
</center></td>
</tr>
<tr>
<td width="9%" height="30"><center>
<INPUT TYPE=button VALUE="系统设置" ONCLICK="SetSate" NAME="Button1">
<INPUT TYPE=button VALUE="查找设备" ONCLICK="SetupPorts" NAME="Button4">
<INPUT TYPE=button VALUE="打开设备" ONCLICK="Open" NAME="DialChar">
<INPUT TYPE=button VALUE="关闭设备" ONCLICK="Close" NAME="Button11">
<INPUT TYPE=button VALUE="清除显示" ONCLICK="ClearmBox" NAME="DialChar">
</center></td>
</tr>
</table>
</FORM></center>
</BODY>
</HTML>