一个用VBScrip写的只有几十行的来电显示程序

最新推荐文章于 2015-09-25 20:36:36 发布

gaoykosen

最新推荐文章于 2015-09-25 20:36:36 发布

阅读量714

点赞数

文章标签： vbscript button input forms 编程 border

本文链接：https://blog.csdn.net/gaoykosen/article/details/4418585

版权

电话的来电显示功能为大家辨别呼叫者是谁提供的极大的方便。固话的来电显示功能很好，但不能像手机那样直接显示出者的姓名。要是把固话的来电显示

功能搬到电脑里去，那就可以帮到我们迅速了解来者的信息，对我们的日常工作带来极大的帮助。一直以为在要在我们的系统里加上这一功能是一件很艰难的事

情，不管是用带来电显示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>

    <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>

gaoykosen

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
一个用VBScrip写的只有几十行的来电显示程序

电话的来电显示功能为大家辨别呼叫者是谁提供的极大的方便。固话的来电显示功能很好，但不能像手机那样直接显示出者的姓名。要是把固话的来电显示功能搬到电脑里去，那就可以帮到我们迅速了解来者的信息，对我们的日常工作带来极大的帮助。一直以为在要在我们的系统里加上这一功能是一件很艰难的事情，不管是用带来电显示MODEN还是用市面上的一些来电显示盒,我们都要跟一系列的硬件打交道让我不知从何入手。
复制链接

扫一扫