• Home
 · 
• Windows System Services
 · 
• Phone Dialer in VB

Phone Dialer in VB

Phone Dialer in VB for windows 95. 'thanks to Andre Obelink
'De Visual Basic Groep
'https://www.plus.nl/vbg/

API Declarations
Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAdress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)

Rate Phone Dialer in VB

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'make a new project; 2 textboxen (index 0 & 1); 2 labels (index 0 & 1)
'1 command button
'Insert the next code in the right place (use Insert/File)
'Press F5
------------- code -------------------
Private Sub ChooseNumber(strNumber As String, strAppName As String, strName As String)
  Dim lngResult As Long
  Dim strBuffer As String
  
  lngResult = tapiRequestMakeCall&(strNumber, strAppName, strName, "")
  If lngResult <> 0 Then 'error
    strBuffer = "Error connecting to number: "
    Select Case lngResult
    Case -2&
      strBuffer = strBuffer & " 'PhoneDailer not installed?"
    Case -3&
      strBuffer = strBuffer & "Error : " & CStr(lngResult) & "."
    End Select
    
    MsgBox strBuffer
  End If
  
End Sub
Private Sub Command1_Click()
  Call ChooseNumber(Text1(0).Text, "PhoneDialer", Text1(1).Text)
  
End Sub

Private Sub Form_Load()
  Text1(0).Text = ""
  Text1(1).Text = ""
  
End Sub
Private Sub Form_Unload(Cancel As Integer)
  End
  
End Sub