Code:
Imports System
Imports System.IO
Imports System.IO.Stream
Imports System.IO.StreamWriter
Imports System.IO.StreamReader
Public Class Form1
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
webBrowser1.Navigate(textBox1.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
working.Text = "0"
Nonworking.Text = "0"
alreadyin.Text = "0"
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Clipboard.SetText(TextBox2.Text)
End Sub
Private Sub webBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted
If TextBox2.Text.Contains(textBox1.Text) Then
AlreadyIn.text = AlreadyIn.text + 1
ElseIf webBrowser1.Document.Body.InnerText.Contains("UDP") Then
working.Text = working.Text + 1
TextBox2.Text = TextBox2.Text & textBox1.Text & vbCrLf & vbCrLf
ElseIf webBrowser1.Document.Body.InnerText.Contains("(Don't DoS yourself nub)") Then
working.Text = working.Text + 1
TextBox2.Text = TextBox2.Text & textBox1.Text & vbCrLf & vbCrLf
Else
Nonworking.Text = Nonworking.Text + 1
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim SaveFile As New SaveFileDialog
SaveFile.FileName = "Shells.txt"
SaveFile.Filter = "Text Files|*.txt"
SaveFile.FilterIndex = "1"
SaveFile.Title = "Save file as"
SaveFile.ShowDialog()
Try
Dim HurrHaa As New StreamWriter(SaveFile.FileName)
HurrHaa.Write(TextBox2.Text)
HurrHaa.Close()
Catch ex As Exception
End Try
End Sub
