注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

王娟娟-廊坊师范学院信息技术提高班11期

信心要靠力量去支撑,爱要靠力量去付诸于实践。

 
 
 

日志

 
 

[作品展]电脑免费拨打电话之问题  

2014-04-03 19:53:41|  分类: 学习之总结 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
       最近都在忙着作品展的事情,我也不例外。在做作品的时候我和美红一组,我们分工合作。其中在开始我做的一个功能就出现的了问题——拨打电话。我是这样做的。在我运行程序的时候,需要设置很多项,然后才可以通话。所以我就各种查,各种试,但最后结果还是不行。其中用到了Modem调制解调器,这是一个硬件,在这时候我就知道这程序试不可能运行成功的,至少是现在。但我还是觉得如果有这个硬件,这个程序也不会实现,中间还是有问题的,那就是
TAPIERR_NOREQUESTRECIPIENT = -2&东东,由于我的知识和搜索能力太欠缺,所以我查不到任何关于他的信息。后来我就问师傅,师傅告诉我说,这个才是这个软件实现的核心,因为这段代码,是我从网上找来的。师傅说这个软件没有吧根本性的核心内容发表出来,所以做不了了。就这样我心有余而力不足,没在继续。我项把它写下来,毕竟人多力量大嘛,有谁知道怎样可以修改一下可以实现这个程序的,感激不尽。下面是程序的界面及代码:[作品展]电脑免费拨打电话之问题 - 王娟娟 - 王娟娟-廊坊师范学院信息技术提高班11期
 




Option Explicit
Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAddress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Const TAPIERR_NOREQUESTRECIPIENT = -2&
Private Const TAPIERR_REQUESTQUEUEFULL = -3&
Private Const TAPIERR_INVALDESTADDRESS = -4&


Private Sub cmdDial_Click()
    Dim buff As String
    Dim nResult As Long

    nResult = tapiRequestMakeCall&(Trim$(txtNumber), CStr(Caption), "电话拨号上网", "")
    If nResult <> 0 Then
        buff = "Error dialing number : "
        Select Case nResult
            Case TAPIERR_NOREQUESTRECIPIENT
                buff = buff & "No Windows Telephony dialing application is running and none could be started."
            Case TAPIERR_REQUESTQUEUEFULL
                buff = buff & "The queue of pending Windows Telephony dialing requests is full."
            Case TAPIERR_INVALDESTADDRESS
                buff = buff & "The phone number is not valid."
            Case Else
                buff = buff & "Unknown error."
        End Select
        MsgBox buff
    End If
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    EnableDial
End Sub

Private Sub txtNumber_Change()
    EnableDial
End Sub

Private Sub EnableDial()
    cmdDial.Enabled = Len(Trim$(txtNumber)) > 0
End Sub
在接通的时候显示这样:
[作品展]电脑免费拨打电话之问题 - 王娟娟 - 王娟娟-廊坊师范学院信息技术提高班11期
在点击 “接电话”后,显示:
[作品展]电脑免费拨打电话之问题 - 王娟娟 - 王娟娟-廊坊师范学院信息技术提高班11期
其中还有问题是,程序设置那里有误。
 
 

  评论这张
 
阅读(27)| 评论(8)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017