[VB6] Inviare comandi AT a cellulare Nokia 6630

[zorro77]

Salve a tutti
vorrei creare un'applicazione che mi permette di inviare comandi AT ad un cellulare Nokia collegato al pc tramite cavo, a tempi da me stabiliti, tipo cme si effettua con hyperterminal.
Qualcuno mi saprebbe dire come posso fare e i componenti da usare per effettuare la connessine al cellulare e il relativo invio dei comandi AT?

Ringrazio tutti per l'aiuto

[oregon]

Dipende da come e' collegato il PC al cellulare ...

Se utilizzi la porta seriale, allora puoi utilizzare il componente MSCOMM.

In modo simile se esiste un driver che emula la porta seriale a livello software, magari con un collegamento USB.

Altrimenti, devi indicare il tipo di collegamento ed utilizzare il supporto del costruttore ...

[zorro77]

Con hyperterminal viene visualizzato in automatico il cellulare, dal momento che ho installato pc nokia suite...
Il cellulare è connesso al pc attraverso cavo USB, cavo in dotazione con il Nokia 6630

[oregon]

Quindi la connessione e' su una porta COM emulata ... quindi MSCOMM dovrebbe andare bene ... prova ...

[zorro77]

Sto provando...ma non riesco ad effettuare chiamate...
come link di riferimento sto usando

http://support.microsoft.com/default...b;en-us;194922

[zorro77]

Per inviare i comandi AT, sto usando il seguente comando

MSComm1.Output = "comando AT" & vbCr

però noto, col comando per l'invio dei toni, ovvero AT+VTS non sempre il tono viene inviato.
Quale potrebbe essere il problema?

Premetto che per la connessione utilizzo questo codice

Private Sub Form_Load()
MSComm1.CommPort = 4 ' Selezioniamo la COM1
MSComm1.Settings = "9600,n,8,1" ' Le impostazioni della seriale
On Error Resume Next ' Abilito l'intercettazione degli errori
MSComm1.PortOpen = True ' Apriamo la porta.
If Err Then ' se è accaduto un errore lo notifico all'utente
    MsgBox "Impossibile aprire la COM" & MSComm1.CommPort & vbCrLf & Error$
End If
On Error GoTo 0
End Sub

[oregon]

Originariamente inviato da zorro77
Per inviare i comandi AT, sto usando il seguente comando

MSComm1.Output = "comando AT" & vbCr

Non devi inviare la parola "comando" ... !

Per esempio, il comando che compone un numero dovrebbe essere il comando ATDT seguito dal numero e quindi

MSComm1.Output = "ATDT061234567" & vbCr

[zorro77]

Si si...era scontato che non dovevo scrivere la parola 'comando', infatti con quanto hai riportato tu, per comporre un numero, funziona bene.

Se invece poi voglio mandare dei toni di alcuni tasti con il seguente codice

MSComm1.Output = "AT+VTS=0" & vbCr

alcune volte viene inviato il tono ed altre no...

quale potrebbe essere il problema?

con .Net le cose forse funzionano meglio?

[oregon]

Originariamente inviato da zorro77
Si si...era scontato che non dovevo scrivere la parola 'comando', infatti con quanto hai riportato tu, per comporre un numero, funziona bene.

Beh ... era scontato per te ... quello che includi nelle virgolette viene inviato al cellulare ...

Se invece poi voglio mandare dei toni di alcuni tasti con il seguente codice

MSComm1.Output = "AT+VTS=0" & vbCr

alcune volte viene inviato il tono ed altre no...

quale potrebbe essere il problema?

Strano ... se a volte funziona vuol dire che il comando e' corretto e viene riconosciuto.

Dovresti cercare di replicare con sicurezza la situazione in cui il comando non viene eseguito per capire da cosa dipenda ...

Quale e' il codice completo con cui stai operando?

Come sono impostate le varie proprieta' dell'oggetto MSCOMM ?

con .Net le cose forse funzionano meglio?

Non e' questione di linguaggio ...

[zorro77]

Pare risolto...era un'impostazione che avevo messo del componente che ogni tanto mi dava problemi
Ora come posso determinare se il telefono è in chiamata oppure no?
non riesco a trovare nessun metodo o evento che mi faccia tale controllo