تغير بروكسي الويندوز من خلال الفيجول

اخ هاوي!

هذا الكود لآظهار Proxy المسجل مسبقا

شفرة في المديول

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKeyA Lib "advapi32.dll" (ByVal hKey As Long, ByVal SubKey As String, Result As Long) As Long
Public Declare Function RegQueryValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal KVName As String, ByVal Rvd As Long, Tpe As Long, Dta As Any, cbDta As Long) As Long

Public Function ReadRegistry(hKey As Long, KeyPath As String, SValue As String, Optional Default As String) As String
On Error Resume Next
Dim Buffr As String
RegOpenKeyA hKey, KeyPath, hCurKey
RegQueryValueExA hCurKey, SValue, 0&, lngValueType, ByVal 0&, lngDataBufferSize
Buffr = String(lngDataBufferSize, " ")
RegQueryValueExA hCurKey, SValue, 0&, 0&, ByVal Buffr, lngDataBufferSize
ZPos = InStr(Buffr, Chr$(0))
ReadRegistry = Left$(Buffr, ZPos - 1)
RegCloseKey hCurKey 'close Key !!
End Function

شفرة في الفورم

Private Sub Form_Load()
Text1.Text = ReadRegistry(&H80000001, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
End Sub

---------------------------

وهذه الشفرة لأنشاء Proxy جديد بشرط

ان يكون Use Proxy Server في وضع True

Private Sub Command1_Click()
Dim Create
Dim Key
Dim Key2

Const ProxyServer = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
Const ProxyEnable = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
Key2 = "192.168.43.224:8080"
Set Create = CreateObject("wscript.shell")
Key = ProxyEnable
Create.RegWrite Key, 1, "REG_DWORD"

Key = ProxyServer
Create.RegWrite Key, Key2, "REG_SZ"
End Sub