Imports System.Net, System.Text.RegularExpressions, Microsoft.Win32, System.Net.Sockets, System.Text, System.IO, System.Xml

Public Class frmMain
#Region "Declare´s"
    Dim sWDir As String = Directory.GetCurrentDirectory
    Dim xDoc As New XmlDocument
    Dim sUrl As String
    Dim sLog As String = ""
    Dim sEmail As String = ""
    Dim WithEvents wbAG As New WebBrowser
#End Region
#Region "ID Setz gedöns"
    Public Sub wbElementsWeb(ByVal cap As String, ByVal name As String)
        With wbAG.Document
            .All("personaldataPanel:salutation:choices").InvokeMember("click")
            .GetElementById("personaldataPanel:first-name:textfield").InnerText = "use"
            .GetElementById("personaldataPanel:last-name:textfield").InnerText = "net"
            .GetElementById("personaldataPanel:countryDependentZipCodeCity-form:zipCodeAndCity:zipCode-textfield").InnerText = "12345"
            .GetElementById("personaldataPanel:countryDependentZipCodeCity-form:zipCodeAndCity:city-textfield").InnerText = "irgendwo"
            .GetElementById("personaldataPanel:streetAndStreetNumber:streetName-textfield").InnerText = "am arsch"
            .GetElementById("personaldataPanel:streetAndStreetNumber:streetNumber-textfield").InnerText = "1"
            .GetElementById("personaldataPanel:birthday:birthdata:birthday-textfield").InnerText = "1"
            .GetElementById("personaldataPanel:birthday:birthdata:birthmonth-textfield").InnerText = "1"
            .GetElementById("personaldataPanel:birthday:birthdata:birthyear-textfield").InnerText = "1990"
            .GetElementById("wishnamePanel:wishname:subForm:alias").InnerText = name
            .GetElementById("passwordPanel:password-form:password:textfield").InnerText = "12345678."
            .GetElementById("passwordPanel:password-form:password-confirm:textfield").InnerText = "12345678."
            .GetElementById("passwordPanel:answer:textfield").InnerText = "DEINE_MUM"
            .GetElementById("captchaPanel:captcha-response:textfield").InnerText = cap
            .GetElementById("submitButton").InvokeMember("click")
        End With
    End Sub
    Public Sub wtXML(ByVal acc As String, ByVal pwd As String)
        Dim root As XmlNode = xDoc.DocumentElement
        Dim sNode, pName, sName As XmlNode

        sNode = xDoc.CreateElement("Acc")
        pName = xDoc.CreateElement("Name")
        pName.InnerText = acc
        sName = xDoc.CreateElement("Paswrd")
        sName.InnerText = pwd

        root.AppendChild(sNode)
        sNode.AppendChild(pName)
        sNode.AppendChild(sName)

        xDoc.Save(sWDir + "\iload.xml")
    End Sub
    Public Sub wbElementsIload(ByVal cap As String, ByVal email As String)
        With wbAG.Document
            .GetElementById("email").InnerText = email + "@web.de"
            .GetElementById("recaptcha_response_field").InnerText = cap
            Dim elements = .GetElementsByTagName("input")
            For Each element As HtmlElement In elements
                If element.GetAttribute("classname") = "uibutton large confirm" Then
                    element.InvokeMember("click")
                End If
            Next
        End With
    End Sub
#End Region
#Region "Events"
    Private Sub xmlLoad()
        If File.Exists(sWDir + "\iload.xml") = True Then
            xDoc.Load(sWDir + "\iload.xml")
        Else
            Dim RootNode As XmlElement = xDoc.CreateElement("IGen")
            RootNode.InnerText = vbCrLf
            xDoc.AppendChild(RootNode)
            xDoc.Save(sWDir + "\iload.xml")
            xDoc.Load(sWDir + "\iload.xml")
        End If
        cbAcc.Items.Clear()
        cbPaswrd.Items.Clear()
        xDoc.Load(sWDir + "\iload.xml")
        For Each nd As XmlNode In xDoc.DocumentElement.ChildNodes
            For Each cn As XmlNode In nd.SelectSingleNode("Name")
                cbAcc.Items.Add(cn.OuterXml)
            Next
            For Each pn As XmlNode In nd.SelectSingleNode("Paswrd")
                cbPaswrd.Items.Add(pn.OuterXml)
            Next
        Next
    End Sub
    Private Sub IPad()
        Threading.Thread.Sleep(2000)
        Dim client As New TcpClient
        client.Connect("fritz.box", 49000)
        Dim stream As NetworkStream = client.GetStream
        Dim bytes As Byte() = New Byte((My.Resources.ipadr.Length)) {}
        bytes = Encoding.ASCII.GetBytes(My.Resources.ipadr)
        stream.Write(bytes, 0, bytes.Length)
        bytes = New Byte(1024) {}
        Dim str As String = String.Empty
        Dim count As Integer = stream.Read(bytes, 0, bytes.Length)
        str = Encoding.ASCII.GetString(bytes, 0, count)
        stream.Close()
        client.Close()
        Dim rx As Match = Regex.Match(str, "([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})")
        tslIp.Text = rx.ToString
        Me.Refresh()
    End Sub
#End Region
#Region "Controls"
    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For Each f In My.Computer.FileSystem.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Cookies))
            If f.ToLower.EndsWith(".txt") Then
                File.Delete(f)
            End If
        Next
        wbAG.Navigate("https://registrierung.web.de/")
        IPad()
        xmlLoad()
        wbLog.Navigate("https://mm.web.de")
    End Sub
    Private Sub btnGen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGen.Click
        sUrl = wbAG.Url.ToString()

        If sUrl.Contains("registrierung.web.de") = True Then
            Dim rENr As Random = New Random
            Dim rInt As Integer = CInt(rENr.Next(0, 99999))
            sEmail = "una" + rInt.ToString
            sLog = sEmail
            wbElementsWeb(tbGen.Text, sEmail)

        ElseIf sUrl.Contains("iload-usenet.com") = True Then
            wbElementsIload(tbGen.Text, sEmail)
        End If
    End Sub
    Private Sub wbAG_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wbAG.DocumentCompleted
        sUrl = wbAG.Url.ToString
        If sUrl.Contains("/willkommen") Then
            wbAG.Navigate("http://iload-usenet.com")
            MsgBox("Web.de Account wurde erfolgreich erstellt.")
        ElseIf sUrl.Contains("eval") Then
            MsgBox("Iload Account wurde erstellt.")
        End If
        Dim imgPath As String = ""
        Try
            Dim hdQCode As HtmlDocument = wbAG.Document
            Dim heCol As HtmlElementCollection = hdQCode.Images
            For Each htmlElement As HtmlElement In heCol
                Dim imgUrl As String = htmlElement.GetAttribute("src")
                If imgUrl.Contains("antiCache") Then
                    imgPath = imgUrl
                End If
            Next
            If sUrl.Contains("registrierung.web.de/") Then
                Dim cok As String = wbAG.Document.Cookie
                Dim a() As String = cok.Split(Chr(59))
                Dim b() As String = imgPath.Split(Chr(63))
                Dim finPath As String = b(0) + Chr(59) + a(3) + Chr(63) + b(1)
                finPath = finPath.Replace(" ", "").Replace("JSESSIONID", "jsessionid")
                pbCaptcha.ImageLocation = finPath
                pbCaptcha.Refresh()
            ElseIf sUrl.Contains("iload-usenet.com") Then
                Dim ohtml As String = wbAG.Document.GetElementById("recaptcha_image").OuterHtml
                Dim pat As String = " src=" + Chr(34) + "(.*?)" + Chr(34) + "\s"
                Dim rx As String = ohtml + vbCrLf + vbCrLf + Regex.Match(ohtml, pat).ToString
                Dim a() As String = rx.Split(Chr(34))
                pbCaptcha.ImageLocation = a(9)
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub wbAG_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles wbAG.ProgressChanged
        tspStatus.Maximum = e.MaximumProgress
        tspStatus.Value = e.CurrentProgress
    End Sub
    Private Sub btnRecon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecon.Click
        Dim client As New TcpClient
        client.Connect("fritz.box", 49000)
        Dim stream As NetworkStream = client.GetStream
        Dim bytes As Byte() = New Byte((My.Resources.recon.Length)) {}
        bytes = Encoding.ASCII.GetBytes(My.Resources.recon)
        stream.Write(bytes, 0, bytes.Length)
        bytes = New Byte(1024) {}
        Dim str As String = String.Empty
        Dim count As Integer = stream.Read(bytes, 0, bytes.Length)
        str = Encoding.ASCII.GetString(bytes, 0, count)
        stream.Close()
        client.Close()
        IPad()
    End Sub
    Private Sub cbAcc_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAcc.SelectedIndexChanged
        cbPaswrd.SelectedIndex = cbAcc.SelectedIndex
    End Sub
    Private Sub cbPaswrd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbPaswrd.SelectedIndexChanged
        cbAcc.SelectedIndex = cbPaswrd.SelectedIndex
    End Sub
    Private Sub btnFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFile.Click
        wtXML(cbAcc.Text, cbPaswrd.Text)
    End Sub
    Private Sub btnLoginClk(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        With wbLog.Document
            .GetElementById("username").InnerText = sLog + "@web.de"
            .GetElementById("password").InnerText = "12345678."
        End With
    End Sub
    Private Sub btnReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click
        Dim prock As System.Diagnostics.Process
        Dim pList() As Process
        pList = Process.GetProcessesByName("iload")
        For Each prock In pList
            prock.Kill()
        Next
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\ScriptPower OHG\iLoad\Connector", "Username", cbAcc.Text)
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\ScriptPower OHG\iLoad\Connector", "Password", cbPaswrd.Text)

        xDoc.DocumentElement.RemoveChild(xDoc.SelectSingleNode("IGen//Acc[Name='" & cbAcc.Text & "']"))
        xDoc.Save(sWDir + "\iload.xml")
        xmlLoad()

        Process.Start("C:\Program Files\iLoad\iload.exe")
    End Sub
#End Region
End Class