Kod:
Public Sub WriteToRegistry(strFolder As String, strString, Optional strRegType As String = "REG_SZ") Dim wScript As Object: Set wScript = CreateObject("wscript.shell") wScript.RegWrite strFolder, strString, strRegType End Sub
Proxy kullanımını aktif etmek icin kullanacağımız kod;
Kod:
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
Not: 1 değeri proxy kullanımını aktif eder, 0 pasif eder. Yani proxy kullanımını kapatmak icin kod icindeki 1'i 0 yapmanız yeterli.
ve Proxy adresimizi regedit'e yazacağımız kod;
Kod:
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyServer", "127.0.0.1:80"
Not: 127.0.0.1:80 proxy adresimiz buraya kullanmak istediğiniz proxyIP

İyi forumlar...
__________________