'Form Load event:

        web_mod = New WebBrowser
        web_mod.Navigate("http://ikillcraft.a0001.net/modpacks.php?pass=test")
        web_mod.Height = 300
        web_mod.Width = 395
        web_mod.Top = 150
        web_mod.Left = 177
        web_mod.Visible = False
        web_mod.ScrollBarsEnabled = False
        'AddHandler web_mod.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
        Me.Controls.Add(web_mod)

        labelestado = New Label
        labelestado.Width = 395
        labelestado.Height = 50
        labelestado.Top = 400
        labelestado.Left = 177
        labelestado.Visible = False
        labelestado.TextAlign = ContentAlignment.MiddleCenter
        Me.Controls.Add(labelestado)

'prueba Function

Private Sub prueba()

        Try

            labelestado.Visible = True

            Windows.Forms.Cursor.Current = Cursors.WaitCursor

            labelestado.Text = "Obteniendo y creando nuevas variables"
            Dim getname As String = selectedHtmlElement_NAME
            Dim prueba1 As String = web_mod.Document.GetElementById(getname & "-nombre").GetAttribute("Value")
            Dim prueba2 As String = web_mod.Document.GetElementById(getname & "-dwl").GetAttribute("Value")
            Dim prueba6 As String = web_mod.Document.GetElementById(getname & "-ver").GetAttribute("Value")
            Dim prueba7 As String = web_mod.Document.GetElementById(getname & "-name").GetAttribute("Value")
            Dim prueba8 As String = web_mod.Document.GetElementById(getname & "-desc").GetAttribute("Value")
            Dim prueba9 As String = web_mod.Document.GetElementById(getname & "-vermc").GetAttribute("Value")
            Dim prueba10 As String = web_mod.Document.GetElementById(getname & "-id").GetAttribute("Value")

            'MsgBox(prueba1)
            'MsgBox(prueba2)
            'MsgBox(prueba6)
            'MsgBox(prueba7)
            'MsgBox(prueba8)
            'MsgBox(prueba9)
            'MsgBox(prueba10)

            labelestado.Text = "Comprando si el archivo Run.bat existe"
            If Not File.Exists(".\Minecraft\PackMods\" & prueba7 & "\run.bat") Then

                labelestado.Text = "Leyendo Ini"
                Dim value As String = File.ReadAllText(".\Test.ini")
                labelestado.Text = "Contando similitudes"
                Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k")
                labelestado.Text = "Creando variable"
                Dim prueba3 As String = ".\Temp\modpack-" & cuenta & ".zip"

                labelestado.Text = "Comprobado si el archivo existe"
                If File.Exists(prueba3) Then
                    labelestado.Text = "Borrando archivo para evitar conflictos"
                    File.Delete(prueba3)
                End If
                labelestado.Text = "descargando Paquete de Mods: " & prueba1
                My.Computer.Network.DownloadFile(
            prueba2,
            ".\Temp\modpack-" & cuenta & ".zip")

                labelestado.Text = "Extrayendo Paquete de Mods: " & prueba1
                Extraer.Extraer(prueba3, ".\Minecraft\PackMods\" & prueba7 & "\")

                labelestado.Text = "Definiendo variable del Splash"
                Dim prueba4 As String = ".\Minecraft\PackMods\" & prueba7 & "\Splash.png"

                labelestado.Text = "Introduciendo nuevos datos en el INI"
                INI_Manager.Set_Value(".\Test.ini", "Contar" & cuenta, "2ç0k")
                INI_Manager.Set_Value(".\Test.ini", "FuncId-" & cuenta, prueba10)
                INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1)
                INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba4)

                labelestado.Text = "Creando variable"
                Dim prueba5 As String = ".\Minecraft\PackMods\" & prueba7 & "\run.bat"

                labelestado.Text = "Introduciendo nuevos datos en el INI"
                INI_Manager.Set_Value(".\Test.ini", "FuncDir-" & cuenta, prueba5)
                INI_Manager.Set_Value(".\Test.ini", "FuncVer-" & cuenta, prueba6)
                INI_Manager.Set_Value(".\Test.ini", "FuncName-" & cuenta, prueba7)
                INI_Manager.Set_Value(".\Test.ini", "FuncDesc-" & cuenta, prueba8)
                INI_Manager.Set_Value(".\Test.ini", "FuncMcVer-" & cuenta, prueba9)

                labelestado.Text = "Creando variables"
                Dim sRenglon As String = Nothing
                Dim strStreamW As Stream = Nothing
                Dim strStreamWriter As StreamWriter = Nothing
                Dim ContenidoArchivo As String = Nothing
                Dim PathArchivo As String
                Dim ObjItemtot As Integer
                Dim ObjItemtot2 As Integer

                Try

                    PathArchivo = prueba5
                    labelestado.Text = "Comprobando si el archivo existe"
                    If File.Exists(PathArchivo) Then
                        labelestado.Text = "Abriendo el archivo"
                        strStreamW = File.Open(PathArchivo, FileMode.Open)
                    Else
                        labelestado.Text = "Creando archivo"
                        strStreamW = File.Create(PathArchivo)
                    End If

                    labelestado.Text = "Definiendo variable"
                    Dim ObjItem As String
                    labelestado.Text = "Obteniendo Memoria RAM disponible"
                    ObjItem = Int(((My.Computer.Info.TotalPhysicalMemory) / 1048576))

                    labelestado.Text = "Definiendo tope de Memoria RAM a usar"
                    ObjItemtot = ObjItem / 3

                    ObjItemtot2 = ObjItem / 4

                    labelestado.Text = "Editando archivo"
                    strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                    labelestado.Text = "Introduciendo líneas de texto dentro del archivo"
                    strStreamWriter.WriteLine("@echo off")
                    strStreamWriter.WriteLine("set APPDATA=" & Application.StartupPath & "\Minecraft\PackMods\" & prueba7)
                    strStreamWriter.WriteLine("java  -Xincgc -Xmx%1m -Xms%2m -cp ""%APPDATA%\.minecraft\bin\minecraft.jar;%APPDATA%\.minecraft\bin\lwjgl.jar;%APPDATA%\.minecraft\bin\lwjgl_util.jar;%APPDATA%\.minecraft\bin\jinput.jar"" -Djava.library.path=""%APPDATA%\.minecraft\bin\natives"" net.minecraft.client.Minecraft %3")
                    strStreamWriter.WriteLine("break")

                    labelestado.Text = "Cerrando el editor"
                    strStreamWriter.Close()

                Catch ex As Exception
                    MsgBox("Error al Guardar la ingormacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName)
                    strStreamWriter.Close()
                End Try

                labelestado.Text = "Introduciendo nuevos datos en el INI"
                INI_Manager.Set_Value(".\Test.ini", "Xmx-" & cuenta, ObjItemtot2)
                INI_Manager.Set_Value(".\Test.ini", "Xms-" & cuenta, ObjItemtot)

                labelestado.Text = "Borrando archivos temporales"
                File.Delete(prueba3)

                labelestado.Text = "¡" & prueba1 & " ha sido instalado correctamente!" & vbCrLf & "Muchas gracias por usar IkillLauncher"
                MsgBox("Debe reiniciar la app para que los cambios surtan efecto." & vbCrLf & "Pulse el botón ""Aceptar"" para continuar.")
                Application.Restart()
            Else
                MsgBox("Este ModPack ya lo tienes instalado!")
            End If


        Catch ex As Exception
            MsgBox(ex.Message & ex.ToString)
        End Try

        Windows.Forms.Cursor.Current = Cursors.Default
    End Sub