Proxy OHNE neustart ändern (internen webbrowser)

Gorlo · 2. März 2014, 05:16

Hallo,

ich habe ein kleines problem habe nun schon seit einigen stunden danach gesucht wie ich ein Proxy einbinde.

Bin dann zum entschluss gekommen dies in der Registry festzulegen das hat auch alles wunderbar geklappt nur wird der Proxy immer erst nach einen neustart der Application übernommen das führt im weiteren verlauf des Programmes zu problemen somit müsste ich es irgentwie ohne Neustart realisieren.

Leider weiß ich nicht wie hab nun schon ne zeit lang gesucht doch leider nichts richtiges gefunden bzw. nicht verstanden.

Wäre sehr nett wenn jemand mir das erklären könnte.

Bisher genutzter Code:

Proxy wird aktiviert:

VB.NET-Quellcode

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software" & _
"Microsoft\Windows\CurrentVersion\Internet Settings", _
"ProxyEnable", "00000001", _
Microsoft.Win32.RegistryValueKind.DWord)

Proxy wird gesetzt:

VB.NET-Quellcode

Dim wert As String = Label2.Text
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software" & _
"Microsoft\Windows\CurrentVersion\Internet Settings", _
"ProxyServer", wert, _
Microsoft.Win32.RegistryValueKind.String)
Application.Restart()

MFG Gorlo

TVX · 2. März 2014, 09:08

Das geht so nicht , der wert schaltet sich nach ein paar Sec wieder zurück ! - Selbst nach einem Neustart !

Was hast für en Windows drauf ?

Gorlo · 2. März 2014, 15:00

Doch es geht ich hab es ja mit Application.Restart() gemacht und es funktioniert mit den internen Browser perfekt.

Ich habe Windows 7. Nur ich möchte es nun ja eh ohne Neustart aber soo wie ich es gerade habe klappt es mit neustart.

MFG Gorlo

Higlav · 5. März 2014, 18:29

Ganz ehrlich: In der Registry rumzupfuschen ist nicht gut. Egal, ob's funktioniert, oder nicht.
Schmeiss doch den WebBrowser raus und baue dir das Ganze mit HttpWebRequest und HttpWebResponse auf. Dort kannst du ohne weiteres über 'nen Proxy gehen und auch immer wieder wechseln(HttpWebReq.Proxy = New WebProxy(New Uri("111.111......"))).
Ich bin mir ziemlich sicher, dass dein Programm keinen ganzen WebBrowser benötigt.

TVX · 10. März 2014, 08:31

Einstellung ist Nur für Windows 7 !
Ich hatte mir das für win7 so gemacht - so schaltet er direkt um und die Externe iIP wird angezeigt !

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports Microsoft.Win32
Imports System.Net
Public Class Form1
Dim wc As New WebClient
Dim Offset As Integer = 16
Dim ProxyEnable As Boolean
Dim ProxyServer As String
Dim DefaultConnectionSettings As New List(Of Byte)
Dim SavedLegacySettings As New List(Of Byte)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Windows OS_Version prüfen ( Anfang )
Dim OS_Prüfungsergebnis As String = ""
For Each OS_Prüfen As String In My.Computer.Info.OSFullName.ToString
If OS_Prüfen.Contains("7") Then
OS_Prüfungsergebnis = OS_Prüfen
End If
Next
If Not OS_Prüfungsergebnis = "7" Then
MsgBox("Dieses Programm ist nur für Windows 7 geeignet !" & vbCrLf & "Das Programm wird beendet !") 'Wenn nich W7 oder W8 ,dann Meldung und aus
Me.Close()
End If
'Datei erstellen
If IO.File.Exists("Proxy_IP_LIste.txt") = False Then
System.IO.File.Create("Proxy_IP_LIste.txt").Close()
End If
Button1.Enabled = False
'IP Liste Laden
ListBox1.Items.AddRange(IO.File.ReadAllLines(IO.Path.Combine(Application.StartupPath, "Proxy_IP_LIste.txt")))
' IP Test Start
Extene_IP_Testen()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
DefaultConnectionSettings.Clear() : SavedLegacySettings.Clear() : TextBox3.Clear() 'List(Of Byte) immer zuerst löschen + Fehler Textbox löschen
If sender Is Button1 Then 'Button 1 Proxy an
ProxyEnable = True 'Proxy Enable auf 1 setzen
ProxyServer = ListBox1.SelectedItem.ToString ' IP in ProxyServer eintragen
'Windows7 Proxy Grundeinstellung - an - in List(Of Byte) übergeben
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})
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})
'IP Textbox mit Schleife und Substring durchlaufen
For i = 0 To ListBox1.SelectedItem.ToString.Length - 1
Dim c As Char = CType(ListBox1.SelectedItem.ToString.Substring(i, 1), Char)
Dim Convertierte_IP As Byte = CByte(Asc(c).ToString) 'IP convertieren
DefaultConnectionSettings.Insert(Offset + i, Convertierte_IP) 'IP convertierte IP mit Insert in List(Of Byte) einfügen
SavedLegacySettings.Insert(Offset + i, Convertierte_IP) 'IP convertierte IP mit Insert in List(Of Byte) einfügen
Next
ElseIf sender Is Button2 Then 'Button 2 Proxy aus
ProxyEnable = False 'Proxy Enable auf 0 setzen
ProxyServer = "" ' IP in ProxyServer löschen
'Windows7 Proxy Grundeinstellung - aus - in List(Of Byte) übergeben
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})
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})
End If
'Die Übergabe von Button 1 oder Button 2 in die Registry schreiben
Dim regKey1, regKey2 As RegistryKey
regKey1 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.Default)
regKey1.SetValue("ProxyServer", ProxyServer, RegistryValueKind.String)
regKey1.SetValue("ProxyEnable", ProxyEnable, RegistryValueKind.DWord)
regKey1.Close()
regKey2 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", RegistryKeyPermissionCheck.Default)
regKey2.SetValue("DefaultConnectionSettings", DefaultConnectionSettings.ToArray, RegistryValueKind.Binary)
regKey2.SetValue("SavedLegacySettings", SavedLegacySettings.ToArray, RegistryValueKind.Binary)
regKey2.Close()
' IP Test Start
Extene_IP_Testen()
End Sub
'IP Test
Private Sub Extene_IP_Testen()
If wc.IsBusy = True Then
wc.CancelAsync()
wc = New WebClient
End If
TextBox1.Text = "Bitte warten..."
Try
wc.DownloadStringAsync(New Uri("http://www.myip.ch/"))
AddHandler wc.DownloadStringCompleted, AddressOf DownloadCompleted
Catch ex As Exception
TextBox1.Text = "Keine Verbindung !"
End Try
End Sub
Private Sub DownloadCompleted(sender As Object, e As DownloadStringCompletedEventArgs)
If e.Error IsNot Nothing Then
If e.Error.Message.Split(CChar(":"))(0) = "Die Anfrage wurde abgebrochen" Then
TextBox1.Text = "Bitte warten..."
Else
TextBox1.Text = "Keine Verbindung !"
End If
Try
TextBox3.Text = e.Error.Message.Split(CChar(":"))(0)
Catch ex As Exception
TextBox3.Text = e.Error.Message
End Try
Else
TextBox1.Text = e.Result.Split(CChar(":"))(1).Split(CChar("<br/><br/>"))(0)
TextBox3.Clear()
End If
End Sub
'Butten Sperren wenn nichts ausgewählt ist
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedItems.Count = Nothing Then
Button1.Enabled = False
Else
Button1.Enabled = True
If CheckBox1.Checked = True Then
Button1.PerformClick()
End If
End If
End Sub
'IP Liste Refresh
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Button1.Enabled = False
ListBox1.Items.Clear()
ListBox1.Items.AddRange(IO.File.ReadAllLines(IO.Path.Combine(Application.StartupPath, "Proxy_IP_LIste.txt")))
End Sub
'IP LIste Öffnen
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Try
Process.Start("notepad.exe", IO.Path.Combine(Application.StartupPath, "Proxy_IP_LIste.txt"))
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler")
End Try
End Sub
'www.proxy-listen.de - öffnen
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Try
Process.Start("http://www.proxy-listen.de/Proxy/Proxyliste.html")
Catch ex As Exception
Process.Start("iexplore.exe", "http://www.proxy-listen.de/Proxy/Proxyliste.html")
End Try
End Sub
'www.proxy-listen.de/Proxy/Proxychecker - öffnen
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Try
Process.Start("http://www.proxy-listen.de/Proxy/Proxychecker.html")
Catch ex As Exception
Process.Start("iexplore.exe", "http://www.proxy-listen.de/Proxy/Proxychecker.html")
End Try
End Sub
End Class

W7 - Proxy Tool - VB Mappe.7z
www21.zippyshare.com/v/14789264/file.html

Proxy OHNE neustart ändern (internen webbrowser)

Proxy OHNE neustart ändern (internen webbrowser)

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben