öncelikle dialup modemin caller id destekleyip desteklemediğini bilmen lazım bende iki tane conexant modem vardı ikiside desteklemiyordu neyse bunu kullanabilmen için mscomm.ocx ie ihtiyacın var bunu sistem32 içine atacaksın ve
Access de ekleyeceksin çalışmazsa çalıştırdan
regsvr32.exe mscomm.ocx
yapacaksın sonra formuna bir adet microsoft communications control versiyon 6.0 activex i ekleyeceksin
adınını MSComm1 diye değiştireceksin
sonrada denetim masası telefon modemler açıp ordan modemler sekmesine tıklayarak modemin hangi portu kullandığına bakacaksın
şimdi kodlara geçelim
Private Sub Form_Load()
modemin bağlı olduğu portu gösteririz benimki 4.portdu
MSComm1.CommPort = 4
modemin bağlantı hızı bit değeri vs vs
MSComm1.Settings = "9600,N,8,1"
modemin okuma tipi
MSComm1.RThreshold = 1
modemden gelen veri tipi 1 yada 0 olur modemin marka ve tipine göre değişir
MSComm1.InputLen = "0"
portu açarız
MSComm1.PortOpen = True
modeme daha önce gönderilmiş komutları temizler
MSComm1.Output = "ATZ" & Chr$(13)
modemin caller id sini açar bu komut (AT+VCID=1)modemin marka ve modeline göre değişir
MSComm1.Output = "AT+VCID=1" & Chr$(13)
End Sub
ben diğer caller id açma kodlarını da ekliyorum şayet şu an girili kodla metin kutusuna ok kelimesi gelirse doğru kod
eğer açmazsa diğerlerini denersin
AT#CID=1
AT%CCID=1
AT+VCID=1
AT#CC1
AT*ID1
buraya comm nesnesini açma ve ona caller id yükleme işini yaptık şimdi telefon çaldımı bunu farkedip numarayı getirme olayına bakacağız
Private Sub MSComm1_OnComm()
Dim hadinumaragel
Select Case MSComm1.CommEvent
Case comEvReceive
While MSComm1.InBufferCount
hadinumaragel = MSComm1.Input
txtname1.Value = txtname1.Value & hadinumaragel
Wend
End Select
End Sub
telefon çaldığında metin kutusunda
RING
DATE ......
TIME......
NUMBER ......
RING
diye bir sonuç vermesi gerekiyor yod eğere sadece
RİNG
RİNG
RİNG
diye devamlı ring ring yazıyorsa modeminiz CALLER İD desteklemiyordur
şayet numara ve tarihi görebiliyorsanız tarih numara saat diye ayırmasını sanırım yapabilirsiniz
örneğiniz ve active x ektedir
http://www.tolgasoft.com/?ts=download&id=494
burada usb caller id cihazı var sanırım sen başkalarınıda bulabilirsin ayrıca bazı cep telefonlarının da modem özelliği var
diğer gereksiz konuların fazla uzamasından dolayı bu konu geride kalmasın diye bu güncelleme yapılmıştır.