by Found on the World Wide Web (15 Submissions)
Category: Windows System Services
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
Phone Dialer in VB for windows 95. 'thanks to Andre Obelink
'De Visual Basic Groep
'https://www.plus.nl/vbg/
API DeclarationsPrivate Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAdress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
'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