Ciao a ragazzi avrei un problema in VB.NET. In pratica mi servirebbe che il mio programma prenda una proxy per esempio ogni minuto, oppure una proxylist e che ne riprenda un'altra non appena ha finito quella proxy list. Il programma utilizzerà un proxy ogni qualche minuto. Avevo pensato di farlo connettere a uno di quei siti che hanno continuamentoe proxy aggiornati ma poi non saprei come "prenderli". In pratica il mio programma deve visitare un sito ogni tot minuti utilizzando un proxy. Questo è il prototipo del source del programma:
codice:
Imports System.Runtime.InteropServices
Public Class Form1
    Dim IP As Integer
    IP=
    Dim Port As Integer
    Port=
#Region "Using Proxy"
    <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 UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        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
#End Region

    Private Sub FormAvvio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UseProxy(IP & ":" & Port)
        Me.WebBrowser1.Navigate("www.google.com", False)
        Me.WebBrowser1.Visible = False
    End Sub
End Class
Ovviamente mi manca di definire la variabile IP e quella Port.