Private Sub Command1_Click()
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyServer", "127.0.0.1:80"
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" 'iede proxy kullanımı açıyoruz
WebBrowser1.Navigate2 "www.google.com"
End Sub



Private Sub WriteToRegistry(strFolder As String, strString, Optional strRegType As String = "REG_SZ")
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.RegWrite strFolder, strString, strRegType
End Sub