home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap26 / call.frm next >
Text File  |  1995-06-11  |  1KB  |  44 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   4545
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15. End
  16. Attribute VB_Name = "Form1"
  17. Attribute VB_Creatable = False
  18. Attribute VB_Exposed = False
  19. Private Sub Form_Load()
  20.      phone_num$ = Command$
  21.  
  22.      i = Len(phone_num$)
  23.      If i = 0 Then End
  24.  
  25.      retval& = tapiRequestMakeCall(phone_num$, "", phone_num$, "")
  26.      If retval& = 0& Then End
  27.  
  28.      infostr$ = "Unable to dial " + phone_num$ + " because "
  29.  
  30.      Select Case retval&
  31.      Case TAPIERR_NOREQUESTRECIPIENT
  32.           infostr$ = infostr$ + "a call-manager is unavailable."
  33.      Case TAPIERR_REQUESTQUEUEFULL
  34.           infostr$ = infostr$ + "the Windows Telephony dialing queue is full."
  35.      Case TAPIERR_INVALDESTADDRESS
  36.           infostr$ = infostr$ + "the phone number is invalid."
  37.      Case Else
  38.           infostr$ = infostr$ + "of an unknown problem."
  39.      End Select
  40.  
  41.      MsgBox infostr$
  42.  
  43. End Sub
  44.