Foro de elhacker.net

Imports System.Runtime.InteropServices
Imports System.Net
 
Public Class Form1
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function
 
    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure
 
    Private Sub Use_Proxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        'Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
        Const INTERNET_DEFAULT_SOCKS_PORT As Integer = 1080
        Dim struct_IPI As Struct_INTERNET_PROXY_INFO
 
        struct_IPI.dwAccessType = INTERNET_DEFAULT_SOCKS_PORT
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
 
        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
 
        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
 
        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 Use_Proxy("http://127.0.0.1:9150")
    End Sub
 
 

    Public Function ConseguirHTML(ByVal strURL As String) As String
        Dim strCode As String
 
        Dim Request As Net.HttpWebRequest = Net.HttpWebRequest.Create(strURL)
        Using StrReader As New IO.StreamReader(Request.GetResponse().GetResponseStream, System.Text.Encoding.UTF8)
 
            strCode = StrReader.ReadToEnd
 
        End Using
 
 

     Dim wp As WebProxy = New WebProxy("http://127.0.0.1:9150")
 
        Using myWebClient As New System.Net.WebClient()
 
            myWebClient.Proxy = wp
            myWebClient.UseDefaultCredentials = False
 
            Dim resultHTML() As Byte = myWebClient.DownloadData(strURL)
            Dim DefaultEnc As System.Text.Encoding = System.Text.Encoding.Default
            Dim myResultString As String = DefaultEnc.GetString(resultHTML)
            Return myResultString
        End Using
 

SocketException: No se puede establecer una conexión ya que el equipo de destino denegó expresamente dicha conexión 127.0.0.1:9150

System.Net.WebException: 'Error en el servidor remoto: (501) Sin implementar.'