Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB6
Can we send sms using vb6 by connecting any free sms sender site like way2sms.com or anything else...?
Posted 23-Oct-11 1:50am
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

  Permalink  
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 2

try u can try http://www.smslib.org
  Permalink  
v2
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 3

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub cmdSend_Click()
On Error Resume Next
With objcom
.CommPort = CInt(txtPort.Text)
.Settings = "9600,N,8,1"
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
.Output = "AT" & vbCrLf
.Output = "AT+CMGF=1" & vbCrLf
.Output = "AT+CMGS=" & Chr(34) & Trim(txtNumber) & Chr(34) & vbCrLf
.Output = "HRL : " & tagabilang & vbCrLf & Trim(txtMsg) & Chr(26)
Sleep 5000
.PortOpen = False
End With
MsgBox ("Message Sent!")
End Sub
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



Advertise | Privacy | Mobile
Web02 | 2.8.150327.1 | Last Updated 27 Mar 2013
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100