J
judaism
Unregistered / Unconfirmed
GUEST, unregistred user!
Private Sub cmdSend_Click()
MSComm1.Output = "at+cmgs=24" + Chr(13)
Do
dummyvar = DoEvents()
Loop Until MSComm1.InBufferCount >= 2
MSComm1.Output = "1234" + Chr(26)
Do
dummyvar = DoEvents()
Loop Until MSComm1.InBufferCount >= 2
End Sub
MSComm1.Output = "at+cmgs=24" + Chr(13)
Do
dummyvar = DoEvents()
Loop Until MSComm1.InBufferCount >= 2
MSComm1.Output = "1234" + Chr(26)
Do
dummyvar = DoEvents()
Loop Until MSComm1.InBufferCount >= 2
End Sub