[VB6] Disattivare emissione di suoni del modem

[marco.santilli]

Ho questo codice per effettura una chiamata premendo un pulsante

Lui alza la linea comporre il numero scritto in una textbox.

C'è un problema

Dopo aver effettuto la composizione del numero, il modem inizia a fare il solito.....biiiiiiiiiii.....................biiiii iiiiiiiiiiiiiiii...................biiiiiiiiiiiiii iiiiiii (bello il suono!! hahah)
come se si messe in ascolto con il server aspettando una ripsosta dati per una connessione.

Questo suono è odioso in quanto disturba la chiamata

C'è un modo per eliminarlo????

Ciao e grazieeeeeeeee



Private Sub Command2_Click()
Const MAX_TRIES = 10000
Dim results As String
Dim num_tries As Long
Screen.MousePointer = vbHourglass
DoEvents
On Error GoTo Oops
' Chiude la porta se è aperta
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
DoEvents
' Legge la porta COM
MSComm1.CommPort = CInt(rsRecordSet2![Porta1])
MSComm1.InputLen = 0
' 9600 baud, no parity, 8 data bits, 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Apre la porta, alza la linea
MSComm1.PortOpen = True
' Errore in cas0 di porta errata
MSComm1.Output = "ATV1Q0" & Chr$(13)
' Attendere.
Do
DoEvents
results = results & MSComm1.Input
num_tries = num_tries + 1
If num_tries > MAX_TRIES Then
MsgBox "Did not get OK response in " & MAX_TRIES & " tries"
Exit Do
End If
Loop Until InStr(results, "OK" & vbCrLf) > 0
' Compone il numero
MSComm1.Output = "ATDT " & CleanPhoneNumber(Text4.Text) & vbCr
' Domanda per chiusura
MsgBox "Premi OK per terminare la chiamata", vbInformation Or vbOKOnly, "Please Wait"
' Chiudi la linea
MSComm1.PortOpen = False
Screen.MousePointer = vbDefault
Exit Sub

Oops:
MsgBox "Error " & Err.Number & vbCrLf & _
Err.Description, _
vbExclamation Or vbOKOnly, _
"Error"
Screen.MousePointer = vbDefault
Exit Sub
End Sub

[oregon]

Non ho capito completamente la richiesta ... in ogni caso, puoi eliminare il volume del modem con un comando AT

ATL0

[marco.santilli]

Hai presente quando con un modem effettui una connessione??

Senti prima la composizione del numero a TONI, poi emette due o tre fischi aspettando che il provider accetti la connessione e restituisca la risposta

In pratica mi fa uguale quando effettuo una chiamata, lui si mette in attesa emettendo quei fischi, che logicamente non avranno mai una risposta perchè si tratta di una telefonata vera e non di una connessione ad internet

Il volume lo volevo alto per sentire la composizione del numero, c'è un comando che ad esempio specifica che questa chiamata è solo VOCALE e non DATI

Non so se mi sono spiegato

Ciao e grazieeeeee

[marco.santilli]

Un aiutino

Ciao e grazieeeeeee

[marco.santilli]

Nessuno sa aiutarmi!!!!!!!




Ciao e grazieeeeeee