• Home
 · 
• Internet/HTML
 · 
• SMS Texter

SMS Texter

The Code will Login to Breathe.com, An SMS Based Web Site which allows it's users to send SMS Message to mobile phones throughout the UK.
( Please RATE this code )

Assumes
You will need 4 Text Boxes: txtnumber, txtmsg,txtpass & txtlogin. 2 Command Buttons: Cmdsendmessage & Cmdreset 1 Timer: Timer1 1 Web Browser: Webbrowser1

Rate SMS Texter

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Private Sub cmdSendMessage_Click()
 
If txtlogin.Text <> "" And txtpass.Text <> "" Then
 login = "http://www.breathe.com/cgi-bin/login.cgi?&extension-attribute-11=" & txtlogin.Text & "&extension-attribute-12=" & txtpass.Text & "&SUBMIT"
 
 WebBrowser1.Navigate login
 Timer1.Enabled = True
 
 
 Else
 
 
 End If
End Sub
Private Sub cmdReset_Click()
txtlogin.Text = ""
txtpass.Text = ""
txtnumber.Text = ""
txtmsg.Text = ""
End Sub
Private Sub Timer1_Timer()
 If WebBrowser1.LocationURL = "http://www.breathe.com/?loggedin" Then
 message = "http://www.breathe.com/services/textmessaging.html?number=" & txtnumber.Text & "&message=" & txtmsg.Text & "&charleft=113%2F146&submit.x=19&submit.y=7"
 WebBrowser1.Navigate2 message
 
 Timer1.Enabled = False
 End If
End Sub