В общем прокси локальной сети изменить просто, а вот как изменить именно прокси подключения? Вернее установить его. Я имею ввиду когда например.... например удаленный доступ, на данное подключение прокси локальной сети не действуют.
Вот набросок, но это только для изменения в локальной сети:
Вот тут кнопочка Settings..., вот это меня интересует (windows не моя, просто нашел картинку).
Вот набросок, но это только для изменения в локальной сети:
Код:
Func __IsIEProxy($sProxy)
Local $sLast_ProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
Local $sLast_ProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
Local $sLast_ProxyServerConnections
Local $sActiveWinConnection = __GetActiveWinConnection()
If $sActiveWinConnection <> False Then
$sLast_ProxyServerConnections = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", _
$sActiveWinConnection)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", _
$sActiveWinConnection, "REG_BINARY", $sProxy)
EndIf
If RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1") And _
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy) Then
If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable") = '1' And _
RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer") = $sProxy Then
Local $hGUI = GUICreate($sProxy, 800, 400)
Local $oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 0, 0, 800, 400)
GUISetState(@SW_SHOW, $hGUI)
_IENavigate($oIE, '2ip.ru')
While 1
Sleep(50)
WEnd
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sLast_ProxyEnable)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sLast_ProxyServer)
If $sActiveWinConnection <> False Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections", _
$sActiveWinConnection, "REG_BINARY", $sLast_ProxyServerConnections)
EndIf
EndIf
EndIf
Return False
EndFunc ;==>__IsIEProxyВот тут кнопочка Settings..., вот это меня интересует (windows не моя, просто нашел картинку).
