Public Class Form1


    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim RandomClass As New Random()
        Dim number = RandomClass.Next(2)
        Dim username As String
        Dim pass As String
        If number = 0 Then
            username = My.Settings.user1
            pass = My.Settings.pass1
        Else
            username = My.Settings.user2
            pass = My.Settings.pass2
        End If


        Try
            WebBrowser1.Document.GetElementById("j_username").SetAttribute("value", username)
            WebBrowser1.Document.GetElementById("j_password").SetAttribute("value", "tinsko")
            loginTimer.Start()
        Catch ex As Exception

        End Try



    End Sub

    Private Sub loginTimer_Tick(sender As System.Object, e As System.EventArgs) Handles loginTimer.Tick
        Try
            WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
        Catch ex As Exception

        End Try

        loginTimer.Stop()

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")

            If element.InnerText = "Brezplačni SMS" Then

                element.InvokeMember("click")

            End If



        Next

    End Sub



    Private Sub SendButton_Click(sender As System.Object, e As System.EventArgs) Handles SendButton.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        If stevilka0.Text = "040" Then 'izbira omrezne stevilke : 040
            Dim omrezna As String = "40"
            Try
                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")(0).GetElementsByTagName("option")
                    If element.GetAttribute("value") = omrezna Then 'Tukaj vpiši svojo omrežno številko: 040 je 40, 031 je 31 itd.
                        element.SetAttribute("selected", "True")
                    End If
                Next
            Catch ex As Exception
            End Try
        ElseIf stevilka0.Text = "031" Then 'izbira omrezne stevilke : 031
            Dim omrezna As String = "31"
            Try
                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")(0).GetElementsByTagName("option")
                    If element.GetAttribute("value") = omrezna Then 'Tukaj vpiši svojo omrežno številko: 040 je 40, 031 je 31 itd.
                        element.SetAttribute("selected", "True")
                    End If
                Next
            Catch ex As Exception
            End Try
        ElseIf stevilka0.Text = "041" Then 'izbira omrezne stevilke : 041
            Dim omrezna As String = "41"
            Try
                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")(0).GetElementsByTagName("option")
                    If element.GetAttribute("value") = omrezna Then 'Tukaj vpiši svojo omrežno številko: 040 je 40, 031 je 31 itd.
                        element.SetAttribute("selected", "True")
                    End If
                Next
            Catch ex As Exception
            End Try
        ElseIf stevilka0.Text = "051" Then 'izbira omrezne stevilke : 051
            Dim omrezna As String = "51"
            Try
                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")(0).GetElementsByTagName("option")
                    If element.GetAttribute("value") = omrezna Then 'Tukaj vpiši svojo omrežno številko: 040 je 40, 031 je 31 itd.
                        element.SetAttribute("selected", "True")
                    End If
                Next
            Catch ex As Exception
            End Try
        ElseIf stevilka0.Text = "070" Then 'izbira omrezne stevilke : 070
            Dim omrezna As String = "70"
            Try
                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")(0).GetElementsByTagName("option")
                    If element.GetAttribute("value") = omrezna Then 'Tukaj vpiši svojo omrežno številko: 040 je 40, 031 je 31 itd.
                        element.SetAttribute("selected", "True")
                    End If
                Next
            Catch ex As Exception
            End Try
        ElseIf stevilka0.Text = "" Then 'omrezna stevilka prazna
            MsgBox("Vpisi omrezno stevilko!")
        Else                            'omrezna stevilka neveljavna
            MsgBox("Ta omrezna stevilka ni veljavna")
        End If

        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")

            If element.GetAttribute("value") = "" Then

                element.SetAttribute("value", "811 012") 'Tukaj vpiši svojo številko(zadnjih 6 številk s presledkom umes

            End If

        Next
        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("textarea")

            If element.GetAttribute("wrap") = "soft" Then

                element.SetAttribute("value", smsText.Text)

            End If

        Next
        Timer2.Start()
        Timer1.Stop()

    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick

        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")

            If element.GetAttribute("id") = "doitsms" Then

                element.InvokeMember("click")

            End If

        Next
        Timer2.Stop()
        WebBrowser1.Refresh()

    End Sub

    Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub smsText_TextChanged(sender As System.Object, e As System.EventArgs) Handles smsText.TextChanged

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)

    End Sub
End Class