Problem Change Sock With _IECreateEmbedded ()

[anhchangtk]

Now, me use _IECreateEmbedded () to create IE in from and me use code

$s=GUICtrlRead($sock)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","1")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyServer","REG_SZ","socks="&$s)

To change sock

Project only active with first sock enter but all sock after don't active

This my code:

#include <GUIConstants.au3>
#include <IE.au3>
$oIE = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test change sock with IE", 390, 304, 287, 249)
$sock = GUICtrlCreateInput("194.33.184.66:59790", 67, 10, 177, 21)
$Label1 = GUICtrlCreateLabel("Sock:", 11, 12, 32, 17)
$GUIActiveX = GUICtrlCreateObj($oIE, 6, 73, 372, 220)
$link = GUICtrlCreateInput("", 67, 39, 129, 21)
$Label17 = GUICtrlCreateLabel("http://", 11, 41, 35, 17)
$go = GUICtrlCreateButton("GO", 201, 38, 43, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$Msg = GUIGetMsg()
if $Msg = $GUI_EVENT_CLOSE then Exit
If $msg = $go Then
$s=GUICtrlRead($sock)
If $s="" Then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","0")
else
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","1")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyServer","REG_SZ","socks="&$s)
endif
    $l = GUICtrlRead($link)
    _IENavigate ($oIE,$l)
    endif

WEnd

[anhchangtk]

Please help me

[DaleHohm]

I really don't follow what you are trying to do, but perhaps this code to force immediate setting changes will help:

DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)

Dale

[anhchangtk]

Thanks you

But how me to use this code ???? :-s

[DaleHohm]

Put it in your script.

[anhchangtk]

me had maked with code

#include <GUIConstants.au3>
#include <IE.au3>
$oIE = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test change sock with IE", 390, 304, 287, 249)
$sock = GUICtrlCreateInput("194.33.184.66:59790", 67, 10, 177, 21)
$Label1 = GUICtrlCreateLabel("Sock:", 11, 12, 32, 17)
$GUIActiveX = GUICtrlCreateObj($oIE, 6, 73, 372, 220)
$link = GUICtrlCreateInput("", 67, 39, 129, 21)
$Label17 = GUICtrlCreateLabel("http://", 11, 41, 35, 17)
$go = GUICtrlCreateButton("GO", 201, 38, 43, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$Msg = GUIGetMsg()
if $Msg = $GUI_EVENT_CLOSE then Exit
If $msg = $go Then
DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)
$s=GUICtrlRead($sock)
If $s="" Then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","0")
else
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyEnable","REG_DWORD","1")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\","ProxyServer","REG_SZ","socks="&$s)
endif
    $l = GUICtrlRead($link)
    _IENavigate ($oIE,$l)
    endif

WEnd

But code don't run

Can u help me ?

[DaleHohm]

The code I gave you is intended to make registry changes take effect. Run it AFTER you make the registry updates is you want it to make a difference.

Dale