simple modem dialer

right, this is just a simple quick ask. i want a program that will ring a number and then hang up about 2 seconds after it starts ringing... This is NOT for prank calling, it is to turn on call forwarding before hittin the net.

cheers,

I Think You Can Use The MsComm Control but i dont know what versions of Vb Have it

Or This But I Dont Know How To Hang It Up

Code:

---

Public Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Public Sub PhoneCall(sNumber As String, sName As String)
Dim lRetVal As Long
lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
If lRetVal <> 0 Then
'Couldn't make the call.
'Take appropriate action
End If
End Sub

---

Example:

Code:

---

Call PhoneCall("1234567", "Person")

---