source code caller id in vb [بایگانی]

mohammad.y

شنبه 28 مرداد 1385, 10:05 صبح

باسلام
sorce code خوندن نمره تلفن از مودم (caller id)رو در vb می خواستم اگر کسی راهنمائی کنه ممنون میشم.

mpmsoft

شنبه 28 مرداد 1385, 10:30 صبح

چندین راه وجود داره
1 - استفاده از کامپوننت MSCOMM

سیستمهای مخابراطی با یکدیگر فرق می کنه
یعنی بعضی مودمها تو بعضی مناطق جواب می ده و بعضی ها نه
به همین منظور من دستگاه کالر آیدی ساختم که بدون مودم کار می کنه و تمامی مناطق ایران رو جواب می ده قیمتش 80 هزارتومانه
اگر با مودم می خوای کار کنی تو وی بی این کد جواب کارتو می ده

Private sub Form_Load()
MsComm.ComPort=3
MsComm.PortOpen=True
MsComm.OutPut="AT#CID"
End Sub

private sub Timer1_Timer()
if MsComm.inputBufferCount >0 then
msgbox mscomm.input
end if
End Sub