"https%3A%2F%2Fes.noticias.locas.com%2Fdescubren-un-jupitiano-en-j%C3%BApiter-666999.html"

Option Strict Off
Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strUrl As String = ("https%3A%2F%2Fes.noticias.locas.com%2Fdescubren-un-ni%C3%B1o-jupitiano-en-j%C3%BApiter-666999.html")        'Enlace
        MsgBox(NormalizarURL(strUrl))
    End Sub
 
    Public Function NormalizarURL(ByVal strUrl as String) As String
        'strUrl = strUrl.Replace("%3A%2F%2F", "://")
        Dim PatternUTF8_1 As String = "(%..%..?)"                                                       'Expresiones regular
        Dim PatternUTF8_2 As String = "(%..?)"                                                          'Expresiones regulares
        Dim MyRegexUTF8_1 As New Regex(PatternUTF8_1, RegexOptions.IgnoreCase)                          'Regex para doble PatternUTF8_1
        Dim MyRegexUTF8_2 As New Regex(PatternUTF8_2, RegexOptions.IgnoreCase)                          'Regex para doble PatternUTF8_2
        Dim MyMatchUTF8_1 As Match = MyRegexUTF8_1.Match(CStr(strUrl))
        Dim MyMatchUTF8_2 As Match = MyRegexUTF8_2.Match(CStr(strUrl))
        While MyMatchUTF8_1.Success
            Dim UTFChar As String = MyMatchUTF8_1.Groups(0).Value                                       'Obtiene el primer valor de cada coincidencia           
            Dim HexChar1 As Byte = CType(Convert.ToInt32(UTFChar.Substring(1, 2), 16), Byte)                'Obtiene el valor entero del primer valor hexadecimal obtenido del código utf-8
            Dim HexChar2 As Byte = CType(Convert.ToInt32(UTFChar.Substring(4, 2), 16), Byte)                    'Obtiene el valor entero del segundo valor hexadecimal obtenido del código utf-8
            '//Convierte carácter hexadecimal UTF-8 a UNICODE por ejemplo "C3 BA" a "ú"
            Dim CharUnicode As String = System.Text.Encoding.UTF8.GetString(New Byte() {HexChar1, HexChar2})
            strUrl = strUrl.Replace(UTFChar, CharUnicode)                                                      'Reemplaza el carácter hexadecimal UTF-8 por Unicode
            MyMatchUTF8_1 = MyMatchUTF8_1.NextMatch()                                                   'Continúe el bucle hasta la siguiente coincidencia.
        End While
        While MyMatchUTF8_2.Success
            Dim UTFChar As String = MyMatchUTF8_2.Groups(0).Value
            '//Convierte y remplaza un carácter hexadecimal a Unicode por ejemplo "2F" a "/"
            strUrl = strUrl.Replace(UTFChar, Convert.ToChar(Convert.ToInt32(UTFChar.Substring(1, 2), 16)))
            MyMatchUTF8_2 = MyMatchUTF8_2.NextMatch()                                                       'Continúe el bucle hasta la siguiente coincidencia.
        End While
        Return CStr(strUrl)
    End Function
End Class

                Dim UTFString As String = Convert.ToChar(Convert.ToInt32("C3A1", 16))
        Dim Result As String = Encoding.Unicode.GetString(Encoding.UTF8.GetBytes(UTFString))
        TextBox1.Text = Result

https://www.google.es/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiK3Ii9zr7KAhXD0RQKHekoC9kQFggcMAA&url=http%3A%2F%2Fwww.recursosvisualbasic.com.ar%2Fhtm%2Fvb-net%2F54-obtener-links-de-una-pagina-web.htm&usg=AFQjCNGMpwVIQ7z-vWEq6Urag9Vf_UAKGg&bvm=bv.112454388,d.d24

http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm

#Region "Normalizar URL"
    Public Function ResolverURL(ByVal strUrl As String) As String
        Dim RedirectUrl As String = Nothing
         strUrl = DecodeUrl(strUrl)
        Try
            Dim WebRequest As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(strUrl), System.Net.HttpWebRequest)
            With WebRequest
                .UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
                'WebRequest.MaximumAutomaticRedirections = 1
                .AllowAutoRedirect = True  '<==importante
                '.ProtocolVersion = System.Net.HttpVersion.Version11
                 .Method = "GET"
                '.Timeout = 1000
            End With
 
            Using webResponse As System.Net.HttpWebResponse = DirectCast(WebRequest.GetResponse, Net.HttpWebResponse)
                RedirectUrl = webResponse.ResponseUri.AbsoluteUri
                webResponse.Close() '<===importante
            End Using
        Catch ex As System.Net.WebException
            If ex.Status = Net.WebExceptionStatus.NameResolutionFailure Then
                MessageBox.Show("El Sitio no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End Try
        Return RedirectUrl
    End Function
   Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function
#End Region
 

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ResolverURL(URL)
    End Sub
 

 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strUrl as String = "https://www.google.es/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwidgYbs98HKAhUJLhoKHRwBBzYQFggcMAA&url=https%3A%2F%2Fes.wikipedia.org%2Fwiki%2FAlbert_Einstein&usg=AFQjCNEpx7ZvmsTJayPwnY-RF0W1AbWLGw&bvm=bv.112454388,d.d2s"
 
         strUrl = DecodeUrl(strUrl)
 
        Dim uri As New Uri(strUrl)
        Dim dirs As String = uri.GetComponents(UriComponents.AbsoluteUri, UriFormat.UriEscaped)
 
        Try
            Dim dirArray As String() = dirs.Split(CChar("="))
            For I As Integer = 1 To dirArray.Length - 1
                If dirArray(I).Length > 4 Then
                    If dirArray(I).Substring(0, 4) = "http" Then
                        strUrl = dirArray(I).Replace("&usg", "")
                        Exit For
                    End If
                End If
            Next
        Catch ex As Exception
        End Try
 
        TextBox1.Text = strUrl
 
End Sub
    Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function
 

#Region "Normalizar URL"
    Public Function NormalizarUrl(ByVal strUrl As String) As String
        strUrl = DecodeUrl(strUrl)
        Task.Factory.StartNew(Sub()
                                  If strUrl.Contains("www.google.es/url?") = True Then
                                      '//Obtiene la Url a la que redirecciona 
                                      strUrl = ResolverUrlGoogle(strUrl)
                                  Else
                                      '//Si el Url redireciona a otra Url obtiene la Url a la que redirecciona
                                      strUrl = ResolverURL(strUrl)
                                  End If
                                  ComboBox1.Invoke(DirectCast(Sub() ComboBox1.Text = strUrl, MethodInvoker))
                              End Sub)
 
 
        Return strUrl
    End Function
    Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function
    Public Function ResolverUrlGoogle(ByVal strUrl As String) As String
 
        Dim uri As New Uri(strUrl)
        Dim dirs As String = uri.GetComponents(UriComponents.AbsoluteUri, UriFormat.UriEscaped)
        Try
            Dim dirArray As String() = dirs.Split(CChar("="))
            For I As Integer = 1 To dirArray.Length - 1
                If dirArray(I).Length > 4 Then
                    If dirArray(I).Substring(0, 4) = "http" Then
                        strUrl = dirArray(I).Replace("&usg", "")
                        Exit For
                    End If
                End If
            Next
        Catch ex As Exception
        End Try
        Return strUrl
    End Function
    Public Function ResolverURL(ByVal strUrl As String) As String
        Dim RedirectUrl As String = Nothing
        strUrl = DecodeUrl(strUrl)
 
        Try
            Dim WebRequest As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(strUrl), System.Net.HttpWebRequest)
            With WebRequest
                WebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
                'WebRequest.MaximumAutomaticRedirections = 1
                WebRequest.AllowAutoRedirect = True  '<==importante
            End With
            Using webResponse As System.Net.HttpWebResponse = DirectCast(WebRequest.GetResponse, Net.HttpWebResponse)
                RedirectUrl = webResponse.ResponseUri.AbsoluteUri
                webResponse.Close() '<===importante
            End Using
        Catch ex As System.Net.WebException
            If ex.Status = Net.WebExceptionStatus.NameResolutionFailure Then
                MessageBox.Show("El Sitio no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End Try
        Return RedirectUrl
    End Function
#End Region
 

 Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function

Dim Pattern As String = "<img[^>]+(src)\s*=\s*""?([^ "">]+)""?(?:[^>]+(width|height)\s*=\s*""?([^ "">]+)""?\s+(height|width)\s*=\s*""?([^ "">]+)""?)?(?:[^>]+(alt)\s*=\s*""?([^"">]+)""?)?"
 
        Dim re As New Regex(Pattern, RegexOptions.IgnoreCase)
        Dim m As Match = re.Match(code)
 
        While m.Success
 
            For I As Integer = 0 To m.Groups.Count - 1
                ListBox1.Items.Add(m.Groups(I).Value)
            Next
 
        End While

Class clsGetDataWeb
    Dim Lista As New List(Of String)
    Dim WB As New WebBrowser
    Dim strUrl As String = "http://www...."
    Dim WebSource As String = Nothing
 
 
    Public Sub GetDataWeb()
 
        '//OBTIENE EL CÓDIGO FUENTE DE LA PÁGINA
        Try
            WebSource = GetWebSource(strUrl) 'Obtiene el código de la página
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Exit Sub
        End Try
 
        'LLama al evento DocumentCompletes
        AddHandler WB.DocumentCompleted, AddressOf WB_DocumentCompleted
 
        'Carga el código html en WB
        WB.ScriptErrorsSuppressed = True
        WB.DocumentText = WebSource
 
 
    End Sub
    Private Sub WB_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
            ReadWeb(WB)
    End Sub
    Private Sub ReadWeb(ByVal WBrowser As WebBrowser)
        Dim document As System.Windows.Forms.HtmlDocument = WBrowser.Document
        Dim doc As HtmlDocument = WBrowser.Document
        Dim divs As HtmlElementCollection = doc.GetElementsByTagName("td")
        Lista.Clear()
        For Each div As HtmlElement In divs
            If div.GetAttribute("classname") = "Canción" Then Lista.Add(div.InnerText)
        Next
        Lista= Lista.Distinct.ToList
    End Sub
 
    Private Function GetWebSource(ByVal strUrl As String) As String
           ...AQUÍ CÓDIGO PARA OBTENER EL CÓDIGO FUENTE DE LA PÁGINA WEB
		Return CódigoFuente
    End Function
 
    Public ReadOnly Property ParameterNames() As IEnumerable(Of String)
        Get
            Return New List(Of String)(Lista)
        End Get
    End Property
 
End Class
 
#End Region

'//Llamo a 
Dim ClassDW As New clsGetDataWeb
        ClassDW.GetDataWeb()
        For Each N As String In ClassDW.ParameterNames
            ListBox1.Items.Add(n)
        Next

    Public ReadOnly Property ParameterNames() As System.Collections.Generic.ICollection(Of String)
        Get
 
            While [LISTA].Count = 0
                My.Application.DoEvents()
            End While
 
            Return New List(Of String)([LISTA])
        End Get
    End Property

#Region "Cambiar estilo de la ventana"
Public Module modChangeStyleWindow
    Const GWL_ID = (-12)
    Const GWL_STYLE = (-16)
    Const HWND_NOTOPMOST = -2
    Const SWP_NOZORDER = &H4
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_FRAMECHANGED = &H20
    Const SWP_DRAWFRAME = SWP_FRAMECHANGED
 
    Enum WindowsStyle
        WS_SIZABLE = &H0                                'Con todos los botones y la barra de título
        WS_SIZABLE_DISABLEMAXB = &HFFFFFFFFFFFFFFFF     'Desactiva el botón maximizar
        WS_SIZABLE_DISABLEMINB = &HFFFFFFFFFFFE5E08     'Desactiva el botón minimizar
        WS_DLGFRAME_DISABLE = &H5FD8220                 'Cuadro diálogo desactivado (no permite ninguna interacción con el form) 
        WS_DLGFRAME_FIXEDSINGLE = &HFFFFFFFFFFF9CA28    'Cuadro diálogo no redimensionable
        WS_DLGFRAME_SIZABLE = &HFFFFFFFFFFFDC5B0        'Cuadro diálogo redimensionable
        WS_DISABLED = &H8000000                         'Desactivado (no permite ninguna interacción con el form)
        WS_SYSMENU_DISABLE = &H5F5E100                  'Desactiva el menú y desactivado               
        WS_SYSMENU_SIZABLE = &HFFFFFFFFFFF8F350         'Desactiva el menú y redimensionable
        WS_SYSMENU_FIXEDSINGLE = &HFFFFFFFFFFF4EC10     'Desactiva el menú y no es redimensionable
        WS_FIXEDSINGLE = &HFFFFFFFFFFFCEAF0             'No redimensionable
        WS_FIXEDSINGLE_DISABLEMAXB = &HFFFFFFFFFFFBBA40 'No redimensionable y desactiva el botón maximizar
        WS_FIXEDSINGLE_DISABLEMINB = &HFFFFFFFFFFFAEF20 'No redimensionable y desactvia el botón minimizar
        WS_NOBORDER = &H325AA0                          'Sin bordes
        WS_FLAT3D = &HB1FE68                            'Sin bordes con línea exterior
        WS_POPUP = &H712CA8                             'Menú Popup
    End Enum
 
    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Function SetWindowLong(ByVal hwnd As IntPtr, _
                                          ByVal nIndex As Integer, _
                                          ByVal dwNewLong As Integer) As Integer
    End Function
 
 
    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=False)> _
    Private Function SetWindowPos(ByVal hwnd As IntPtr, _
                                         ByVal hWndInsertAfter As IntPtr, _
                                         ByVal X As Integer, _
                                         ByVal y As Integer, _
                                         ByVal cx As Integer, _
                                         ByVal cy As Integer, _
                                         ByVal wFlags As Integer) As Integer
    End Function
 
 
    <System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="GetWindowLongA", SetLastError:=True)> _
    Private Function GetWindowLong(ByVal hWnd As IntPtr, _
                                          <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.I4)> ByVal nIndex As Integer) As Integer
    End Function
 
    Public Sub ChangeStyleWindow(ByVal hwnd As IntPtr, ByVal StyleForm As Integer, ByVal SetStyle As Boolean)
        'mantiene el tamaño de la ventana
        Dim stl As Integer = GetWindowLong(hwnd, GWL_STYLE)
 
        Select Case SetStyle
            '//Solo Ventana 'Sizable'
            'Case True : If stl = &H16CF0000 Then stl += StyleForm
            'Case False : If stl = &H16CF0000 + StyleForm Then stl -= StyleForm
            '//Cualquier tipo de ventana u objeto con handle
            Case True : stl += StyleForm
            Case False : stl -= StyleForm
        End Select
 
        SetWindowLong(hwnd, GWL_STYLE, stl)
        Call SetWindowPos(hwnd, HWND_NOTOPMOST, Nothing, Nothing, Nothing, Nothing, _
        SWP_NOZORDER + SWP_NOSIZE + SWP_NOMOVE + SWP_DRAWFRAME)
    End Sub
 
End Module
#End Region
 

Region "Cambiar estilo de la Barra de Título"
Module modChangeStyleBar
    Const GWL_ID = (-12)
    Const GWL_STYLE = (-16)
    Const GWL_EXSTYLE = (-20)
    Const HWND_NOTOPMOST = -2
    Const SWP_NOZORDER = &H4
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_FRAMECHANGED = &H20
    Const SWP_DRAWFRAME = SWP_FRAMECHANGED
 
    Enum WStyleBarTitle
        WStB_NORMAL_THICKBORDER = &H200                             'Normal con borde ancho
        WStB_NORMALCAPTIONLEFT = &H0                                'Título a la izquierda
        WStB_NORMAL_CAPTIONRIGHT = &H1000                           'Título a la derecha 
        WStB_INVERT_CAPTIONLEFT = &H405000                          'Invertido con título a la izquierda
        WStB_INVERT_CAPTIONRIGHT = &H400000                         'Invertido con título a la derecha
        WStB_TOOLWINDOW_CAPTIONLEFT = &H6590                        'Tool window con título a la izquierda y borde fino
        WStB_TOOLWINDOW_CAPTIONRIGHT = &H5580                       'Tool window con título a la derecha y borde fino
        WStB_TOOLWINDOW_THICKBORDER_CAPTONLEFT = &H68F              'Tool window con título a la izquierda y borde grueso
        WStB_TOOLWINDOW_THICKBORDER_CAPTONRIGHT = &H5A80            'Tool window con título a la derecha y borde grueso
        WStB_TOOLWINDOWS_INVERT_CAPTIONLEFT = &H401080              'Tool window Invertido con título a la izquierda y borde fino
        WStB_TOOLWINDOWS_INVERT_CAPTIONRIGHT = &H400180             'Tool window invertido con título a la derecha y borde fino
        WStB_TOOLWINDOWS_INVERT_THICKBORDER_TITLELEFT = &H403390    'Tool window Invertido con título a la izquierda y borde grueso
        WStB_TOOLWINDOWS_INVERT_THICKBORDER_TITLERIGHT = &H400290   'Tool window invertido con título a la derecha y borde grueso
        WS_EX_DLGMODALFRAME = &H1
        WS_EX_NOPARENTNOTIFY = &H4
        WS_EX_TOPMOST = &H8
        WS_EX_ACCEPTFILES = &H10                                    'Cambia el cursor cuando se arrastr un archivo a la ventana 
        WS_EX_TRANSPARENT = &H20
        WS_EX_MDICHILD = &H40
        WS_EX_TOOLWINDOW = &H80
        WS_EX_WINDOWEDGE = &H100
        WS_EX_CLIENTEDGE = &H200
        WS_EX_CONTEXTHELP = &H400
        WS_EX_RIGHT = &H1000
        WS_EX_LEFT = &H0
        WS_EX_RTLREADING = &H2000
        WS_EX_LTRREADING = &H0
        WS_EX_LEFTSCROLLBAR = &H4000
        WS_EX_RIGHTSCROLLBAR = &H0
        WS_EX_CONTROLPARENT = &H10000
        WS_EX_STATICEDGE = &H20000
        WS_EX_APPWINDOW = &H40000
        WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE)
        WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST)
        WS_EX_LAYERED = &H80000
        WS_EX_NOINHERITLAYOUT = &H100000 ' Disable inheritence of mirroring by children
        WS_EX_LAYOUTRTL = &H400000 ' Right to left mirroring
        WS_EX_COMPOSITED = &H2000000
        WS_EX_NOACTIVATE = &H8000000
    End Enum
    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Function SetWindowLong(ByVal hwnd As IntPtr, _
                                          ByVal nIndex As Integer, _
                                          ByVal dwNewLong As Integer) As Integer
    End Function
 
 
    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=False)> _
    Private Function SetWindowPos(ByVal hwnd As IntPtr, _
                                         ByVal hWndInsertAfter As IntPtr, _
                                         ByVal X As Integer, _
                                         ByVal y As Integer, _
                                         ByVal cx As Integer, _
                                         ByVal cy As Integer, _
                                         ByVal wFlags As Integer) As Integer
    End Function
 
 
    <System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="GetWindowLongA", SetLastError:=True)> _
    Private Function GetWindowLong(ByVal hWnd As IntPtr, _
                                          <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.I4)> ByVal nIndex As Integer) As Integer
    End Function
 
    'Estilo de la barra de título
    Public Sub ChangeStyleBarWindow(ByVal hwnd As IntPtr, ByVal StyleBar As Integer)
        SetWindowLong(hwnd, GWL_EXSTYLE, StyleBar)
        Call SetWindowPos(hwnd, HWND_NOTOPMOST, Nothing, Nothing, Nothing, Nothing, _
        SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
    End Sub
End Module
#End Region

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To 5
            modChangeStyleWindow.ChangeStyleWindow(Me.Handle, WindowsStyle.WS_SYSMENU_FIXEDSINGLE, True)
        Next i
    End Sub

   modChangeStyleWindow.ChangeStyleWindow(Me.Handle, WindowsStyle.WS_POPUP, True)

       Call modChangeStyleBar.ChangeStyleBarWindow(Me.Handle, modChangeStyleBar.WStyleBarTitle.WStB_INVERT_CAPTIONRIGHT)

   Call modChangeStyleWindow.ChangeStyleWindow(Me.Handle, modChangeStyleWindow.WindowsStyle.WS_DISABLED, True)
        Call modChangeStyleBar.ChangeStyleBarWindow(Me.Handle, modChangeStyleBar.WStyleBarTitle.WStB_INVERT_CAPTIONRIGHT)

 Call modChangeStyleWindow.ChangeStyleWindow(Me.Handle, modChangeStyleWindow.WindowsStyle.WS_DISABLED, True)

 Call modChangeStyleWindow.ChangeStyleWindow(Me.Handle, modChangeStyleWindow.WindowsStyle.WS_DISABLED, False)

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DialogoAbrir As New System.Windows.Forms.OpenFileDialog
        DialogoAbrir.Title = "Abrir..."
        DialogoAbrir.FilterIndex = 1
        DialogoAbrir.Filter = "*.dll|*.dll|*.exe|*.exe"
        DialogoAbrir.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.System)
        If DialogoAbrir.ShowDialog() = DialogResult.OK Then
		ImportAPI(DialogoAbrir.FileName)
        End If
 
 
 
    End Sub
    Sub ImportAPI(ByVal Path_Dll As String)
 
        '//VB6
        'Dim Path_Link As String = DirProgramFiles & "\Microsoft Visual Studio\VB98\link.exe" 
 
        '****IMPORTANTE****: 
        '//VB2010
        'link.exe se encuentra en:
        'C:\Archivos de programa\Microsoft Visual Studio 10.0\VC\bin\
        'Tiene dependencia con 'mspdb100.dll' que se encuentra en:
        'C:\Archivos de programa\Microsoft Visual Studio 10.0\Common7\IDE
        'Haz una copia de link.exe en  ...\Common7\IDE de lo contrario dará error al no encontrar 'mspdb100.dll'
 
        '//VS2012 64bits
        'link.exe se encuentra en: 
        'C:\Program Files (x86)\Microsoft Visual Studio 11.0\VC\bin
        'mspdb100.dll' se encuentra en:
        'C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE
 
        Dim DirProgramFiles As String
 
        If Environment.Is64BitOperatingSystem Then
            DirProgramFiles = (Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86))
        Else
            DirProgramFiles = (Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles))
        End If
 
        Dim Path_Link As String  = (DirProgramFiles & "\Microsoft Visual Studio 10.0\Common7\IDE\link.exe")
        Dim FileTemp As String = System.IO.Path.GetTempFileName     'Crea un archivo temporal
        Dim C34 As String = Convert.ToChar(34)
 
        'Linea de comandos para link.exe
        Dim StartLink As String = String.Format("{0}{1}{2} /dump /exports {3}{4}{5} /out:{6}{7}{8}", _
                                                C34, Path_Link, C34, _
                                                C34, Path_Dll, C34, _
                                                C34, FileTemp, C34)
        Try
            'Ejecuta link.exe
            Dim myProcess As New Process()
            myProcess.StartInfo.UseShellExecute = False
            myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            myProcess.StartInfo.FileName = StartLink
            myProcess.StartInfo.CreateNoWindow = True
            myProcess.Start()
        Catch ex As Exception
            MessageBox.Show("No se encuentra link.exe")
        End Try
 
 
         Me.Cursor = Cursors.WaitCursor
        System.Threading.Thread.Sleep(2000)
        Me.Cursor = Cursors.Default
 
        Dim strBuffer As New System.IO.StreamReader(FileTemp)
        TextBox1.Text = strBuffer.ReadToEnd
        strBuffer.Close()
        FileIO.FileSystem.DeleteFile(FileTemp)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim sCommand As String = String.Format("""{0}"" /r ping {1} >", "cmd.exe", "www.elhacker.net")
        TextBox1.Text = GetResultCommand(sCommand)
    End Sub
 
#Region "GetResultCommand"
    Public Function GetResultCommand(ByVal sCommandLine As String) As String
        Dim FileTemp As String = System.IO.Path.GetTempFileName     'Crea un archivo temporal
        Dim C34 As String = Convert.ToChar(34)
        Dim Result As String = Nothing
 
 
        sCommandLine = String.Format(sCommandLine & "{0}{1}{2}", C34, FileTemp, C34)
 
 
        Try
            Dim myProcess As New Process()
            With myProcess
                .StartInfo.UseShellExecute = False
                .StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                .StartInfo.FileName = sCommandLine
                .StartInfo.CreateNoWindow = True
                .Start()
            End With
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Me.Cursor = Cursors.WaitCursor
        System.Threading.Thread.Sleep(2000)
 
        Dim FileAccesible As Boolean = False
        While FileAccesible = False
            Try
                Dim strBuffer As New System.IO.StreamReader(FileTemp, System.Text.Encoding.GetEncoding("ibm850"))
                Result = strBuffer.ReadToEnd()
                FileAccesible = True
                strBuffer.Close()
 
            Catch ex As Exception
                FileAccesible = False
            End Try
             My.Application.DoEvents()
        End While
        Me.Cursor = Cursors.Default
        FileIO.FileSystem.DeleteFile(FileTemp)
        Return Result
    End Function
#End Region
End Class
 

GetResultCommand(LÍNA DE COMANDO)

Dim sCommand As String = String.Format("""cmd.exe"" /r ping {0} ", "www.elhacker.net")

 Dim sCommand As String = String.Format("""{0}"" /r ping {1} ", "cmd.exe", "www.elhacker.net")

      Dim sCommand As String = String.Format("""{0}"" /dump /exports {1} /out:", _
"C:\Archivos de programa\Microsoft Visual Studio 10.0\Common7\IDE\link.exe", _
    "c:\windows\system32\shell32.dll")
        TextBox1.Text = GetResultCommand(sCommand)

   Dim sCommand As String = String.Format("""{0}"" /r ping {1} >", "cmd.exe", "www.elhacker.net")
        TextBox1.Text = GetResultCommand(sCommand)

sCommandLine = String.Format(sCommandLine & "{0}{1}{2}", C34, FileTemp, C34)

System.Text.Encoding.GetEncoding("ibm850")

Dim sCommand As String = String.Format("""{0}"" /r dir C: >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r ping {1} >", "cmd.exe", "www.elhacker.net")

Dim sCommand As String = String.Format("""{0}"" /r route print >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r ipconfig /all >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r driverquery >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r driverquery /fo csv >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r tree /f >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r tree c:\ /f >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r systeminfo /fo table >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r systeminfo /s mypc /fo table >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r Net start  >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r netstat >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r netstat -a >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r netstat -b >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r netstat -e >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r netstat -s >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r getmac  /fo csv /nh /v >", "cmd.exe")

Dim sCommand As String = String.Format("""{0}"" /r getmac  /s mypc /fo csv >", "cmd.exe")