Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text Imports Microsoft.Win32 Imports System.Runtime.InteropServices Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim SystemRegistry As RegistryKey = _ Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurretnVersion\\Internet Settings", True) If SystemRegistry.GetValue("ProxyEnable", 0) Then SystemRegistry.SetValue("ProxyEnable", 1) SystemRegistry.SetValue("ProxyServer", "154.25.253.12:8080") Else MsgBox("Proxy Error") End If End Sub End Class
currentversion
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)