首页 > 学院 > 开发设计 > 正文

利用API可以直接拨号

2019-11-18 17:35:58
字体:
来源:转载
供稿:网友
声明:

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


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表