Proxy Einstellungen Per wininet.dll oder Registry verändern ?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Proxy Einstellungen Per wininet.dll oder Registry verändern ?

    Proxy Einstellungen per wininet.dll oder Registry verändern ?

    Was ist besser ?

    So hab ich's jetz.



    Test Code Registry:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Win32
    3. Public Class Form1
    5. Dim Offset As Integer = 16
    6. Dim ProxyEnable As Boolean
    7. Dim ProxyServer As String
    8. Dim DefaultConnectionSettings As New List(Of Byte)
    9. Dim SavedLegacySettings As New List(Of Byte)
    11. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. 'xxx
    13. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
    16. DefaultConnectionSettings.Clear() : SavedLegacySettings.Clear() 'List(Of Byte) immer zuerst löschen
    17. If sender Is Button1 Then 'Button 1 Proxy an
    19. ProxyEnable = True 'Proxy Enable auf 1 setzen
    20. ProxyServer = New_IP_Box.Text ' IP in ProxyServer eintragen
    22. 'Windows7 Proxy Grundeinstellung - an - in List(Of Byte) übergeben
    23. DefaultConnectionSettings.AddRange(New Byte() {70, 0, 0, 0, 96, 0, 0, 0, 11, 0, 0, 0, 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 216, 153, 162, 35, 169, 48, 207, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 192, 168, 178, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 32, 1, 0, 0, 94, 245, 121, 253, 16, 10, 17, 201, 178, 191, 29, 200, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0})
    24. SavedLegacySettings.AddRange(New Byte() {70, 0, 0, 0, 58, 2, 0, 0, 11, 0, 0, 0, 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 216, 153, 162, 35, 169, 48, 207, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 192, 168, 178, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 32, 1, 0, 0, 94, 245, 121, 253, 16, 10, 17, 201, 178, 191, 29, 200, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0})
    26. 'IP Textbox mit Schleife und Substring durchlaufen
    27. For i = 0 To New_IP_Box.TextLength - 1
    28. Dim c As Char = CType(New_IP_Box.Text.Substring(i, 1), Char)
    29. Dim Convertierte_IP As Byte = CByte(Asc(c).ToString) 'IP convertieren
    30. DefaultConnectionSettings.Insert(Offset + i, Convertierte_IP) 'IP convertierte IP mit Insert in List(Of Byte) einfügen
    31. SavedLegacySettings.Insert(Offset + i, Convertierte_IP) 'IP convertierte IP mit Insert in List(Of Byte) einfügen
    32. Next
    34. ElseIf sender Is Button2 Then 'Button 2 Proxy aus
    36. ProxyEnable = False 'Proxy Enable auf 0 setzen
    37. ProxyServer = "" ' IP in ProxyServer löschen
    38. 'Windows7 Proxy Grundeinstellung - aus - in List(Of Byte) übergeben
    39. DefaultConnectionSettings.AddRange(New Byte() {70, 0, 0, 0, 94, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 118, 21, 146, 18, 155, 48, 207, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 192, 168, 178, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 32, 1, 0, 0, 94, 245, 121, 251, 20, 141, 23, 77, 178, 191, 29, 200, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0})
    40. SavedLegacySettings.AddRange(New Byte() {70, 0, 0, 0, 52, 2, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 37, 52, 119, 115, 154, 48, 207, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 192, 168, 178, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 32, 1, 0, 0, 94, 245, 121, 251, 20, 141, 23, 77, 178, 191, 29, 200, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0})
    42. End If
    43. 'Die Übergabe von Button 1 oder Button 2 in die Registry schreiben
    44. Dim regKey1, regKey2 As RegistryKey
    45. regKey1 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.Default)
    46. regKey1.SetValue("ProxyServer", ProxyServer, RegistryValueKind.String)
    47. regKey1.SetValue("ProxyEnable", ProxyEnable, RegistryValueKind.DWord)
    48. regKey1.Close()
    49. regKey2 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", RegistryKeyPermissionCheck.Default)
    50. regKey2.SetValue("DefaultConnectionSettings", DefaultConnectionSettings.ToArray, RegistryValueKind.Binary)
    51. regKey2.SetValue("SavedLegacySettings", SavedLegacySettings.ToArray, RegistryValueKind.Binary)
    52. regKey2.Close()
    53. End Sub
    54. 'Fertig !
    55. End Class


    Der Code geht sehr gut , aber gibt es keine elegantere Lösung Als die Grundeinstellung zu Modifizieren :?:

    LG...

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „TVX“ ()

    Wenn ich mal über einen Proxy surfe, dann nutze ich dafür ein Plugin für den Browser, generell den ganzen Datenverkehr über öffentliche Proxies zu leiten wie du es da machst, halte ich für sehr gefährlich, da der Serverbesitzer alles abhorchen kann, da ist jeder Login auf jeder Seite gefährlich. Wollte nur darauf hinweisen, welche Methode besser ist kann ich nicht beurteilen.

    Moyn Derfuhr...

    Ja das weis ich das ist aber kein Problem da ich keine Passwörter Speichere ,geschweige den irgendwas mit na Ec auf em Pc mache
    Und wenn ich mich mal auf Facbook logge schalte ich vorher um und guck auch das ich keine Cookies verschleppe ^^

    LG...

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

Facebook
Telefonspende