Как проверить Socks-прокси?

Func _ReadHTML($sURL, $sProxy = '', $iTimeout = 4000)

	Local $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
	If $sProxy <> '' Then $oHTTP.SetProxy(2, $sProxy) ; тут подходит только обычные прокси
	$oHTTP.Open('GET', $sURL, False)
	$oHTTP.setTimeouts($iTimeout, $iTimeout, $iTimeout, $iTimeout)
	$oHTTP.Send('')
	$oHTTP.WaitForResponse()
	Local $sReturn = $oHTTP.ResponseText
	$oHTTP = 0
	Return $sReturn

EndFunc   ;==>_ReadHTML

_SetSocksProxy('127.0.0.1:9150')
; ////////// code ////////// ;
_UnsetSocksProxy()


Func _SetSocksProxy($proxy_IP_port = "")
    Local $sRegPath1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
    RegWrite($sRegPath1, 'AutoConfigProxy', 'REG_SZ', 'wininet.dll')
    RegWrite($sRegPath1, 'ProxyServer', 'REG_SZ', 'socks='.$proxy_IP_port)
    RegWrite($sRegPath1, 'ProxyHttp1.1', 'REG_DWORD', '1')
    RegWrite($sRegPath1, 'ProxyEnable', 'REG_DWORD', '1')
EndFunc

Func _UnsetSocksProxy()
    Local $sRegPath1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
    RegWrite($sRegPath1, 'ProxyEnable', 'REG_DWORD', '0')
EndFunc

TCPConnect
TCPCloseSocket