Im Ron and i have just recently started using VB and have written a small application for sending SMSes.
Code: Imports System.Net Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 'Dim strUrl As String = "xxxxxxxxxxxxxx?user=Username:Password&senderID=xxx&receipientno=xxxx&msgtxt=This is a testxxxx API&state=4" Dim strUrl As String = "xxxxxxxxxuser=xxx:xxxxx&senderID=xxxxx&receipientno= " & TextBox3.Text & "&msgtxt=" & TextBox4.Text & "&state=" & TextBox5.Text & "" Dim request As WebRequest = HttpWebRequest.Create(strUrl) Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse) Dim s As Stream = DirectCast(response.GetResponseStream(), Stream) Dim readStream As New StreamReader(s) Dim dataString As String = readStream.ReadToEnd() RichTextBox1.Text = dataString.ToString response.Close() s.Close() readStream.Close() End Sub Private Sub Button2_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim mybut As New OpenFileDialog mybut.Filter = "Text Files (*.txt)|*.txt" mybut.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop If mybut.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub Dim myfile As String = mybut.FileName Dim reader As New System.IO.StreamReader(myfile) TextBox4.Text = reader.ReadToEnd End Sub Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged End Sub Private Sub TextBox4_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox4.TextChanged End Sub Private Sub TextBox5_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox5.TextChanged End Sub Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RichTextBox1.TextChanged End Sub Private Sub Label4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Label4.Click End Sub Private Sub Label5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Label5.Click End Sub Private Sub Label6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Label6.Click End Sub Private Function strUrl() As String Throw New NotImplementedException End Function End Class
What the code currently does: Button2 Selects a txt file and dumps its contents in the message box.
the Recipient No. needs to be entered manually.
Status needs to be entered as 4.
Now once button 1 is clicked once the rest of the details are furnished, an SMS is sent to the recipient number with the
message box contents as the message.
confirmation of message delievery is sent to the Rich text box.
the SMS sending is already tested and i have been able to manually send messages using the application.
What I require: the process to be automated,
eg once i click a Start Button the program runs and performs the following tasks:
it selects ALL the text files in a particular folder with the text files named as the number to be messaged (eg 99124124124.txt, 923523423.txt etc)
the name of the txt document is fed to the recipient number box which was created while the messages are fed into the message box respectively and the button 1 ie send should be used once the
details are filled in automatically once the valid details are filled in.
these txt files have to be sent on a user defined basis (eg once a day/twice a day the same txt file should be sent to the same number.and this has to be done for that particular text file) (user maybe able to select the numbers using a checkbox etc)
also a STOP button will be needed to ensure that the user can stop the sending of SMS to a particular number (eg stop sending sms to 9212323423) which should not affect the other
Is this possible and could some expert guide me with a brief picture of how the code should look like?