i have given below code for caller id
-----------------------
Place a MsComm Ctrl on the form names MSComm a textbox named txtIncomming
and a Command Button named cmdListen place the following code into the form
and try it out.
Code:
Option Explicit
Private Sub cmdListen_Click()
'Open Port to Listen
If Not MSComm.PortOpen Then
MSComm.PortOpen = True
End If
'Test to see if it is Open if it is not the display message
If Not MSComm.PortOpen Then
MsgBox "Cannot open comm port " & MSComm.CommPort
Exit Sub
End If
'Init Settings
MSComm.RThreshold = 1
MSComm.InputLen = 1
'Send the correct Modem Command to watch Caller ID Info
MSComm.Output = "AT+VCID=1" & vbCr
End Sub
Private Sub Form_Load()
MSComm.CommPort = CLng(InputBox("What CommPort is your modem?", "CommPort", 3))
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MSComm.PortOpen Then
MSComm.PortOpen = False
End If
End Sub
Private Sub MSComm_OnComm()
Dim sIncomming
Select Case MSComm.CommEvent
Case comEvReceive
Do
sIncomming = MSComm.Input
txtIncomming.Text = txtIncomming.Text & sIncomming
Loop While MSComm.InBufferCount
End Select
End Sub
=========
can any body help how to check this code is write .../
or any body have good idea to make pro. callerid ? ...
plz reply .....