Global Const $INTERNET_OPTION_SETTINGS_CHANGED = 39
Global Const $INTERNET_OPTION_REFRESH = 37
$sProxy = "202.118.236.130:7777"
$sUrl = 'http://www.whatsmyip.us/'
_SetProxy($sProxy, 1)
$oIE = _IECreate($sUrl)
$oText = _IETagNameGetCollection($oIE, 'textarea', 0)
ConsoleWrite(StringFormat('[Proxy Set] Your IP is: %s\r\n', $oText.innerText ))
_SetProxy($sProxy, 0)
$oIE = _IECreate($sUrl)
$oText = _IETagNameGetCollection($oIE, 'textarea', 0)
ConsoleWrite(StringFormat('[Proxy Delete] Your IP is: %s\r\n', $oText.innerText ))
Func _SetProxy($s_Proxy, $i_Flag)
If $i_Flag > 1 Or $i_Flag < 0 Then Return 0
If Not RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable") And $i_Flag Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $i_Flag)
If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer") <> $s_Proxy Then _
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $s_Proxy)
Else
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $i_Flag)
EndIf
_InternetSetOption($INTERNET_OPTION_SETTINGS_CHANGED)
_InternetSetOption($INTERNET_OPTION_REFRESH)
Return 1
EndFunc ;==>_SetProxy
Func _InternetSetOption($i_Option)
DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', $i_Option, 'str', 0, 'long', 0)
EndFunc;==>_InternetSetOption