#Region "Declarationen Wininet.dll"
    Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" _
    (ByVal sAgent As String, ByVal lAccessType As Integer, ByVal sProxyName As _
    String, ByVal sProxyBypass As String, _
    ByVal lFlags As Integer) As Integer
 
    Private Declare Function InternetCloseHandle Lib "wininet" _
    (ByVal hInet As Integer) As Short
 
    Private Declare Function InternetReadFile Lib "wininet" _
    (ByVal hFile As Integer, ByVal sBuffer As String, ByVal lNumBytesToRead As _
    Integer, _
    ByRef lNumberOfBytesRead As Integer) As Short
 
    Private Declare Function InternetOpenUrl Lib "wininet" Alias _
      "InternetOpenUrlA" _
    (ByVal hInternetSession As Integer, ByVal lpszUrl As String, _
    ByVal lpszHeaders As String, ByVal dwHeadersLength As Integer, _
    ByVal dwFlags As Integer, ByVal dwContext As Integer) As Integer
 
#End Region
#Region "Constanten für download von Daten"
    Const INTERNET_OPEN_TYPE_DIRECT As Short = 1
    Const INTERNET_OPEN_TYPE_PROXY As Short = 3
    Const INTERNET_FLAG_RELOAD As Integer = &H80000000
    Const UserAgent As String = "Wininet Test"
#End Region
#Region "GetLists"
    Private Sub GetProxyLists()
        'On Error Resume Next
 
        Dim f2 As New Form2()
        Dim aUrl, bUrl As String
        Dim hFile, H, hOpen, Result, iDateiNr As Integer
        Dim iFile, I, iOpen, Result1 As Integer
        Dim OldFile As String
        Dim Buffer As String
        iDateiNr = FreeFile()
 
        f2.Show()
        If ChkSteganos.Checked = True Then
            aUrl = "http://www.steganos.com/software/anonroxylist.sia"
        Else
            aUrl = ""
        End If
        If ChkMultiproxy.Checked = True Then
            bUrl = "http://www.multiproxy.org//txt_anon/proxy.txt"
        Else
            bUrl = ""
        End If
 
        H = 50000
        Buffer = Space(H)
        f2.TextBox1.Text = ""
        System.Windows.Forms.Application.DoEvents()
 
        Cursor = System.Windows.Forms.Cursors.WaitCursor
        hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT, _
          vbNullString, vbNullString, 0)
        iOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT, _
        vbNullString, vbNullString, 0)
 
        hFile = InternetOpenUrl(hOpen, aUrl, vbNullString, 0, _
          INTERNET_FLAG_RELOAD, 0)
        iFile = InternetOpenUrl(iOpen, bUrl, vbNullString, 0, _
        INTERNET_FLAG_RELOAD, 0)
 
        Call InternetReadFile(hFile, Buffer, H, Result)
        Call InternetReadFile(iFile, Buffer, H, Result1)
        Call InternetCloseHandle(hFile)
        Call InternetCloseHandle(iFile)
        Call InternetCloseHandle(hOpen)
        Call InternetCloseHandle(iOpen)
 
 
        'FileOpen(iDateiNr, TxtOldFile.Text, OpenMode.Input) 'Alte Datei öffnen
        'OldFile = (iDateiNr)
        Buffer = VB.Left(Buffer, Result & Result1)
        f2.TextBox1.Text = Buffer
        Cursor = System.Windows.Forms.Cursors.Default
        'FileClose(iDateiNr)
 
        'File.Create("unsortiert.txt")
        FileOpen(iDateiNr, "unsortiert.txt", OpenMode.Output, OpenAccess.Write)
        Print(iDateiNr, f2.TextBox1.Text)
        FileClose(iDateiNr)
        'Call Killdouble()
    End Sub
#End Region