I am using nokia 6230i and DKU-2 to connect mobile to PC. I can not read data through com port. It shows me an error '8020 Error reading comm device'. My code is below.
Private Sub Form_Load()
Dim Instring As String
MSComm1.CommPort = 4
MSComm1.Settings = "9600,N,8,1"
MSComm1.Handshaking = comRTSXOnXOff
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
MSComm1.PortOpen = True
' Send the attention command to the modem.
MSComm1.Output = "AT" + Chr$(13)
' Wait for data to come back to the serial port.
' Loop Until MSComm1.InBufferCount >= 5
' Read the "OK" response data in the serial port.
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Dim Buffer As String
Buffer = Buffer & MSComm1.Input
evmsg$ = "Change in CTS Detected"
'Buffer = MSComm1.Input
evmsg$ = "Change in DSR Detected"
evmsg$ = "Change in CD Detected"
evmsg$ = "The Phone is Ringing"
evmsg$ = "End of File Detected"
When I delete the line MSComm1.output from onload function, the output still shows me a "Change in CTS" event. So I couldn't understand where is the problem. I can send SMS but can not read..
So, I need help..