Sub Globals
End Sub
Sub App_Start
' add and initialize a phone object
AddObject("ph1", "Phone")
ph1.New1
' query phonelib version
MsgBox(ph1.PhoneLibVersion,"PhoneLib version")
' check phone capability
MsgBox(ph1.PhoneAvailable,"Phone available")
' query number of call log entries
x = ph1.NumCallLogEntries
MsgBox(x, "Number of CallLogEntries")
' retrieve all call log entries
if x > 0 then
for y = 1 to x
MsgBox(ph1.GetCallLogEntry(y),"CallLogEntry #" & y)
next
end if
' initiate a phone call
if ph1.MakeCall("12345", "test", true) = false then Msgbox("Error", "MakeCall")
End Sub