Sending SMS in VB 6
Last post was 19 Oct 2009 at 06:41
-
MSComm1.CommPort = 3 MSComm1.Settings = "9600,N,8 ,1" For j = 1 To 2 ' THIS IS NOT WORKING MSComm1.InputLen = 0 MSComm1.PortOpen = True MSComm1.Output = "AT" & Chr$(13) MSComm1.Output = "AT+CMGF=1" & Chr$(13) MSComm1.Output = "AT+CMGS= " & Chr(34) & txtRecpMobileNo.Text & Chr(34) & Chr$(13) & Chr(10) MSComm1.Output = j & " " & txtMesg.Text & Chr$(26) MSComm1.PortOpen = False Next MsgBox "Sms Send", , ""
-
Plz let me know when anybody replies, thanks
-
Hi there! Welcome to developerFusion. You haven't really said what the problem is, so you're unlikely to get an answer at the moment? :)
-
I notice that you have & Chr$(13) & Chr(10). I'm not sure about your version, (I use Visual Studio Express), but you may want to replace them with vbCr or vbCrLf. I have SMS working. You may want to try your commands in Hyperterminal first to make sure your code will work.
-
sir my problem is that SMS are not going in bulk, like more than one at a time. plz guie me
-
If MSComm1.PortOpen Then MSComm1.PortOpen = False End If For j = 1 To 2 ' SMS are going one by one, bUT IF I PUT A LOOP, THEN THEY ARE NOT GOING CONTINOUSLY With MSComm1 .CommPort = 3 .Handshaking = comNone .Settings = "57600,N,8,1" .InputLen = 0 .InBufferSize = 1024 .InputMode = comInputModeText .OutBufferSize = 512 .InBufferCount = 0 .RThreshold = 1 .SThreshold = 1 .PortOpen = True End With MSComm1.Output = "AT" & Chr$(13) & Chr(10) MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10) MSComm1.Output = "AT+CMGS= " & Chr(34) & txtRecpMobileNo.Text & Chr(34) & ",129" & Chr$(13) & Chr(10) 'MSComm1.Output = "AT+CMGS= " & Chr(34) & txtRecpMobileNo.Text & Chr(34) & Chr$(13) & Chr(10) MSComm1.Output = "No. " & j & Chr$(26) MSComm1.Output = "AT+CNMI=1,2,0,0,0 " & Chr$(13) Do DoEvents ' Buffer$ = Buffer$ & MSComm1.Input Loop Until MSComm1.InBufferCount > 2 MSComm1.PortOpen = False Next j
-
It looks like you open and close the port each time the loop cycles. Can you leave the port open and keep sending messages? I have a function that does that. I can share more if you need. will this work? ----> With MSComm1 .CommPort = 3 .Handshaking = comNone .Settings = "57600,N,8,1" .InputLen = 0 .InBufferSize = 1024 .InputMode = comInputModeText .OutBufferSize = 512 .InBufferCount = 0 .RThreshold = 1 .SThreshold = 1 .PortOpen = True End With For j = 1 To 2 ' SMS are going one by one, bUT IF I PUT A LOOP, THEN THEY ARE NOT GOING CONTINOUSLY MSComm1.Output = "AT" & Chr$(13) & Chr(10) MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10) MSComm1.Output = "AT+CMGS= " & Chr(34) & txtRecpMobileNo.Text & Chr(34) & ",129" & Chr$(13) & Chr(10) 'MSComm1.Output = "AT+CMGS= " & Chr(34) & txtRecpMobileNo.Text & Chr(34) & Chr$(13) & Chr(10) MSComm1.Output = "No. " & j & Chr$(26) MSComm1.Output = "AT+CNMI=1,2,0,0,0 " & Chr$(13) Do DoEvents ' Buffer$ = Buffer$ & MSComm1.Input Loop Until MSComm1.InBufferCount > 2 Next j MSComm1.PortOpen = False
-
any sample vb6 program for sending and receiving sms just want to learn how to do it in vb6. what i need to know? thanks
Post a reply
VB 6 forum discussion
-
CorelDRAW VBA: cdrTraceLineDrawing FAILS, producing single linear path instead of Centerline trace?
by dancemanj (0 replies)
-
client/server application using activex
by beautifulheart (0 replies)
-
System Error &H8007007E. The specifed module could not be found.
by swiftsafe (5 replies)
-
Invitation to take part in an academic research study
by researchlab (0 replies)
-
Send SMS with SMPP
by mmahmoud (0 replies)
Quick links
Recent activity
- arif ahmad replied to How to receive data in web ...
- William Thompson replied to What is the name of the Win...
- Sameera Piyadigamage replied to Point of Sale Developers: H...
- Scott Carline replied to 4 x C# Developers for large...
- Rajendra Dhakal replied to Restore SQL Server text dat...
- cloud rainda replied to How to convert between TS f...
Enter your message below
Sign in or Join us (it's free).