Fehler bei Webzugriff über Proxy

  • VB.NET
  • .NET (FX) 4.0

    Fehler bei Webzugriff über Proxy

    Hallo,

    ich möchte über ein Webproxy einen httpwebrequest absetzen und habe dazu in die app.cfg folgendes Eingetragen:

    VB.NET-Quellcode

    1. <configuration>
    2. <system.net>
    3. <defaultProxy>
    4. <proxy
    5. usesystemdefaults="true"
    6. proxyaddress="http://192.168.1.10:3128"
    7. bypassonlocal="true"
    8. />
    9. </defaultProxy>
    10. </system.net>
    11. </configuration>

    nun erhalte ich aber folgenden Fehler:
    System.Configuration.ConfigurationErrorsException: Ungenügende Berechtigungen zum Festlegen des Konfigurationsabschnitts "defaultProxy". ---> System.Security.SecurityException: Fehler bei der Anforderung des Berechtigungstyps "System.Net.WebPermission, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089".
    bei System.Security.CodeAccessSecurityEngine.Check(Object demand, StackCrawlMark& stackMark, Boolean isPermSet)
    bei System.Security.CodeAccessSecurityEngine.Check(CodeAccessPermission cap, StackCrawlMark& stackMark)
    bei System.Security.CodeAccessPermission.Demand()
    bei System.Net.Configuration.DefaultProxySection.PostDeserialize()
    --- Ende der internen Ausnahmestapelüberwachung ---
    ...

    was mache ich hier falsch?

    Für Tipps bin ich dankbar!

    EDIT:

    Ich habe hier noch etwas gefunden, aber das kapiere ich nicht so ganz. Funktionieren tut es, nun fehlt mir nur noch eine Authentifizierungsmöglichkeit.

    VB.NET-Quellcode

    1. <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    2. Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    3. End Function
    5. Public Structure Struct_INTERNET_PROXY_INFO
    6. Public dwAccessType As Integer
    7. Public proxy As IntPtr
    8. Public proxyBypass As IntPtr
    9. End Structure
    11. Private Sub UseProxy(ByVal strProxy As String)
    12. Const INTERNET_OPTION_PROXY As Integer = 38
    13. Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
    15. Dim struct_IPI As Struct_INTERNET_PROXY_INFO
    17. struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    18. struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
    19. struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
    21. Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
    23. Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
    25. Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    26. End Sub
    28. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    29. Label4.Text = (TextBox1.Text & ":" & TextBox2.Text)
    31. End Sub
    33. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    34. UseProxy(Label4.Text)
    35. WebBrowser1.Navigate(TextBox3.Text)
    36. End Sub
    37. End Class



    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nemesis“ ()

Facebook
Telefonspende