[UNSOLVED] Changing proxy in the middle of the script

[Unc3nZureD]

I've got the following script:
 

expandcollapse popup

#include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
     
    $Site = "http://whatismyipaddress.com/"
     
    $a = FileRead(@ScriptDir & "\Proxies.txt")
    $b = StringSplit($a, @CR & @LF & @CRLF)
    $b = ClearArray($b)
     
    Global $oIE[UBound($b)]
    GUICreate("Test Browser", 1000, 500, 0, 0)
    GUISetState(@SW_SHOW)
     
    $Bound = UBound($b) - 1
    For $i = 0 To $Bound
            If $i > 0  Then GUICtrlDelete($oIE[$i - 1])
            HttpSetProxy(2, $b[$i])
            $oIE[$i] = ObjCreate("Shell.Explorer.2")
            GUICtrlCreateObj($oIE[$i], 0, 0, 1000, 500)
            $oIE[$i].navigate($Site)
            ToolTip($i & "/" & $Bound & @CRLF & $b[$i], 0, 0)
            Sleep(5000)
    Next
     
    Func ClearArray($arr)
            $i = 0
            While 1
                    If $i > UBound($arr) - 1 Then ExitLoop
     
                    Local $Delete = 0
                    If $arr[$i] = " " Then
                            $Delete = 1
                    EndIf
                    If $arr[$i] = "" Then
                            $Delete = 1
                    EndIf
                    If $arr[$i] = @CR Then
                            $Delete = 1
                    EndIf
                    If $arr[$i] = @LF Then
                            $Delete = 1
                    EndIf
                    If $arr[$i] = @CRLF Then
                            $Delete = 1
                    EndIf
                    If StringLen($arr[$i]) < 9 Then
                            $Delete = 1
                    EndIf
                    If Not StringInStr($arr[$i], ":") Then
                            $Delete = 1
                    EndIf
                    If $Delete = 0 Then
                            $arr[$i] = StringReplace($arr[$i], " ", "")
                            $arr[$i] = StringReplace($arr[$i], @TAB, "")
                    EndIf
                    If $Delete = 1 Then
                            _ArrayDelete($arr, $i)
                            $i -= 1
                    EndIf
                    $i += 1
                    If $i = UBound($arr) Then ExitLoop
            WEnd
            Return $arr
    EndFunc

The problem is that my IP isn't changing. It should be different every time, but it isn't different... Did I miss something?

Edited February 6, 2014 by Unc3nZureD

[JLogan3o13]

If your code panel is not working (does not work for me in 8.1), just do it manually. See below

[Unc3nZureD]

oh, simply [autoit.] and [/autoit.]? I didn't know Thanks, edited the code.

Edited February 4, 2014 by Unc3nZureD

[AoRaToS]

If you check Internet Explorer -> Internet Options -> Connections has the proxy changed?

If yes, did you try clearing cache and Temporary Internet Files? You might be seeing a cached page

[Unc3nZureD]

No, it didn't change. Isn't HttpSetProxy change the proxy settings only for the autoit processs?

[Unc3nZureD]

Tried to simplify everything, but the following one isn't working too:

$Site = "http://whatismyipaddress.com/"

GUICreate("Test Browser", 1000, 500, 0, 0)
GUISetState(@SW_SHOW)

HttpSetProxy(2, "109.123.115.157:3128")
$a = ObjCreate("Shell.Explorer.2")
$b = GUICtrlCreateObj($a, 0, 0, 1000, 500)
$a.navigate($Site)
Sleep(8000)

[Unc3nZureD]

bump

[Unc3nZureD]

double bump

[Servant]

Referring to my topic: >How can I use a different IP proxy before manipulating a web application

Will the HttpSetProxy() function sets the internet proxy to use for http access of my Internet Explorer only?

Or it will sets also the internet proxy of my other browser?

I can test it but I'm afraid if it also sets the other internet proxies..

Edited March 21, 2014 by Servant

[Unc3nZureD]

HttpSetProxy() just makes you Inet* commands use that proxy. It won't set any registry entries and whon't affect anything globally (If I'm right).

[Servant]

HttpSetProxy() just makes you Inet* commands use that proxy. It won't set any registry entries and whon't affect anything globally (If I'm right).

Can you answer >my topic?   

[guinness]

Can you answer >my topic?   

Please don't do this, it's impolite.