利用API可以直接拨号

声明：

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
当然，该方法只适合小型的应用。->

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：用VB实现聊天讨论室和点对点会话   下一篇：用VB实现应用程序在局域网络上自动更新

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】