利用API可以直接拨号

最新推荐文章于 2021-03-29 15:05:02 发布

原创最新推荐文章于 2021-03-29 15:05:02 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

广告专栏收录该内容

3 篇文章

订阅专栏

本文介绍了两种通过Visual Basic for Applications (VBA) 实现自动拨打电话的方法。一种方法是利用TAPI32.DLL库函数tapiRequestMakeCall进行电话呼叫；另一种则是通过串口(COM2)发送AT命令来实现电话拨打。后者适用于小型应用。

部署运行你感兴趣的模型镜像

PrivateDeclareFunctiontapiRequestMakeCallLib"TAPI32.DLL"　 (ByValDestAddr$,ByValAppNameAsString,　 ByValCalledPartyAsString,ByValCommentAsString)AsLong
例子：
PublicSubCallPhone(NumberAsString,NameAsString)
　DimlResAsLong
　If(Trim(Number)="")Then
　　ExitSub
　EndIf
　 If(MsgBox("Abouttocall"&Trim(Name)　 &"atphonenumber"&Trim(Number)&vbCrLf&"Doit?",　 vbYesNo,App.Title)=vbYes)Then
　　lRes=tapiRequestMakeCall(Trim(Number),App.Title,Trim(Name),"")
　　Debug.PrintNow;"CallPhone->tapiRequestMakeCallResultcode=";lRes
　EndIf
EndSub

还有一种方法是：
PhoneNumber$="(123)456-7890"
Open"COM2:"ForOutputAs#1'orCOM1
Print#1,"ATDT"&PhoneNumber$&Chr$(13)
Close#1
当然，该方法只适合小型的应用。->

您可能感兴趣的与本文相关的镜像