Imports System.Text.RegularExpressions
Imports System
Imports System.IO
Imports System.Net
Public Class Form1
    Dim shell(0 To 9000) As String

  
    Private Sub check()

        For i = 0 To txtShells.Lines.Count - 1
            Try
                Dim URL As String = shell(i)

                Dim request As WebRequest = WebRequest.Create(URL)
                Dim response As WebResponse = request.GetResponse()
                Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
                Dim str As String = reader.ReadToEnd
                If str.Contains(\"UDP Flood\") Then
                    txtGreenDos.Text = txtGreenDos.Text + shell(i) & vbNewLine
                ElseIf str.Contains(\"PHP DoS\") Then
                    txtPhpDos.Text = txtPhpDos.Text + shell(i) & vbNewLine
                Else
                    txtDead.Text = txtDead.Text + shell(i) & vbNewLine
                End If
            Catch ex As Exception
                txtDead.Text = txtDead.Text + shell(i) & vbNewLine
            End Try

        Next
     

    End Sub
    Private Sub cmdClipBoard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Clipboard.SetText(txtPhpDos.Text)

    End Sub

    Private Sub cmdCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCheck.Click
        Call check()

    End Sub

    Private Sub txtShells_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtShells.TextChanged
        For i = 0 To txtShells.Lines.Count - 1
            shell(i) = txtShells.Lines(i)
            i = i + 1
        Next
    End Sub

   
    Private Sub cmdExit_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdExit.MouseEnter
        cmdExit.BackgroundImage = My.Resources.Untit3led
    End Sub

    Private Sub cmdExit_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdExit.MouseLeave
        cmdExit.BackgroundImage = My.Resources.Untitle2d
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
    End Sub
End Class