利用API可以直接拨号
2016-02-19 18:10
下面图老师小编要向大家介绍下利用API可以直接拨号，看起来复杂实则是简单的，掌握好技巧就OK，喜欢就赶紧收藏起来吧！
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
当然，该方法只适合小型的应用。->
