telefono

[magnus]

Ciao ragazzi,
Qualcuno mi sa dire perchè non riesco a far chiamare con il mio modem?

Dovrebbe essere un utilità che eviti di fare il numero di telefono...

Private Sub cmdDial_Click()
If Tel.Text = "" Then
MsgBox "Error!!!"
Exit Sub
End If
Com1.CommPort = 3
Com1.Settings = "9600,N,8,1"
Com1.PortOpen = True
Com1.Output = "ATDT" & Tel.Text & vbCr
MsgBox "Dialing " & Tel.Text & vbCrLf & "Pick up the phone...", vbOKOnly, "Dial-A-Phone"
Com1.PortOpen = False
End Sub

Aiuto!

[xegallo]

perchè devi usare tapi

[magnus]

Scusa, potresti spiegarti meglio ( e magari postare qualche link )?

Grazie

[xegallo]

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        msgbox "chiamata non riuscita"
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "numero di telefono", ""
End Sub

[magnus]

Riesco a chiamare ma non riesco a parlare...
Devo utilizzare per forza il microfono?

[xegallo]

Originariamente inviato da magnus
Riesco a chiamare ma non riesco a parlare...
Devo utilizzare per forza il microfono?

no parla pure al monitor :quipy:

[magnus]

Forse mi sono spiegato male...

Dicevo non riesco a parlare direttamente al telefono...

Inoltre come posso evitare di far aprire l'intero programma "connessione telefonica"?

Ciao.

[xegallo]

spiacente non posso provare niente non ho un modem