Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] caller id - identificativo del chiamante - chi e'

devo realizzare un'applicazione che visualizzi il numero del tizio che
chiama
Armato di buona volonta' e fiducia(non so in cosa...) ho compiuto i seguenti
passi:
1.Ho verificato se il mio modem supportasse il callerID con il seguente
comando at#cid=1
ottengo in risposta OK (deduco di si...). Controllo... at#cid? risponde 1.
2.Mi faccio abilitare dalla telecom il servizio "chi c?!*o e'" ed aspetto...
3.Verifico che sia abilitato digitando il seguente codice al telefono *#65#
il quale mi dice si e' abilitato...
4.In HyperTerminal inserisco i seguenti comandi:
    at#cid=1        /ho provato anche at#cid=2 per l'unformatted mode
    at#cls=8        /ho provato anche senza metterlo in voice-mode
5.Mi chiamo con il cellulare
6.Aspetto i dati dopo il primo squillo ma ...nada
Il modem e' uno SpeedCom + voice/fax/modem 56000bps chip Rockwell
Dove potrebbe essere il problema? Ho letto di tutto in rete al riguardo, so
anche chi l'ha inventato (Carolyn A. Doughty) e il num di brevetto, le
specifiche tecniche, le frequenze... tutto, ma non riesco a capire perche
non funziona...
Aspetto fiducioso...:)
Ciao!
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
_____________________________

 ha scritto nel messaggio
news:vH2A7.55382$1H1.6...@news.infostrada.it...


 ha scritto nel
messaggio news:9qqh91$q99fc$1...@ID-111705.news.dfncis.de...


Provo a rispondere a delle domande che ho ricevuto in email perchè magari la
cosa interessa anche altri.
Tutto quello che c'e' da sapere sulle CAPI e anche qualcosa di più si trova
su 
http://www.capi.org/document.htm
.
Sul mio PC "adesso" ho i riferimenti alle CAPI da vb perchè c'e' installato
Winfax, "tempo fa" avevo una scheda
TA (Terminal Adapter Us-Robotics ISDN) che veniva montata come scheda di
rete e tra i protocolli veniva
installato CAPI con altre DLL.
Penso che ci siano in giro dll di terze parti, dei vari produttori di modem
o "fatte in casa" ma come dicevo nel
precedente messaggio non ho mai approfondito.
Di seguito ti mando comunque il pezzetto di codice con cui verificai il
funzionamento del CID sui modem che
dicevo nel messaggio precedente.
Ciao a presto
Stephen
Private Sub pausa(tempo)
   Dim pausetime, start
   pausetime = tempo
   start = Timer
   Do While Timer < start + pausetime
      DoEvents
   Loop
End Sub
Private Sub Command1_Click()
   Call RESETTA
   Unload Me
End Sub
Sub INIZIALIZZA()
   Call pausa(1)
   MSComm1.Output = "ATS67.1=1" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "ATS67.4=1" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "AT*V1=1" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "ATZ!" + Chr$(13)
   Call pausa(5)
   MSComm1.Output = "ATZ" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "ATE1" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "AT#CID=1" + Chr$(13)
End Sub
Sub RESETTA()
   Call pausa(1)
   MSComm1.Output = "ATS67.1=0" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "ATS67.4=0" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "AT*V1=0" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "ATZ!" + Chr$(13)
   Call pausa(5)
   MSComm1.Output = "ATZ" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "ATE1" + Chr$(13)
   Call pausa(1)
   MSComm1.Output = "AT#CID=1" + Chr$(13)
   Call pausa(1)
End Sub
Private Sub Form_Load()
   On Error GoTo Modem_Error
   Dim Instring As String
   MSComm1.CommPort = 1
   ' 9600 baud, no parity, 8 data, and 1 stop bit.
   MSComm1.Settings = "9600,N,8,1"
   ' Tell the control to read entire buffer when Input
   ' is used.
   MSComm1.InputLen = 0
   ' Open the port.
   MSComm1.PortOpen = True
   Call INIZIALIZZA
   Exit Sub
Modem_Error:
   MsgBox Error & " " & Err
End Sub
Private Sub Form_Unload(Cancel As Integer)
   ' Close the serial port.
   MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
   Select Case MSComm1.CommEvent
   ' Events
      Case comEvReceive ' Received RThreshold # of chars.
         Text1.SelText = StrConv(MSComm1.Input, vbUnicode)
      Case comEvCD   ' Change in the CD line.
      Case comEvCTS  ' Change in the CTS line.
      Case comEvDSR  ' Change in the DSR line.
      Case comEvRing ' Change in the Ring Indicator.
      Case comEvSend ' There are SThreshold number of
                     ' characters in the transmit
                     ' buffer.
      Case comEvEOF  ' An EOF charater was found in                        '
the input stream
   ' Errors
      Case comEventBreak   ' A Break was received.
      Case comEventCDTO    ' CD (RLSD) Timeout.
      Case comEventCTSTO   ' CTS Timeout.
      Case comEventDSRTO   ' DSR Timeout.
      Case comEventFrame   ' Framing Error
      Case comEventOverrun ' Data Lost.
      Case comEventRxOver  ' Receive buffer overflow.
      Case comEventRxParity   ' Parity Error.
      Case comEventTxFull  ' Transmit buffer full.
      Case comEventDCB  ' Unexpected error retrieving DCB]
   End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text2.Text = Text2.Text + Chr$(KeyAscii)
    If KeyAscii = 13 Then
       MSComm1.Output = Text2.Text
       Text2.Text = ""
    End If
    Text1.SelStart = Len(Text1.Text)
End Sub

 > trovi tra i riferimenti del VB......chissŕ se con queste riesci a cavare
