Send link to IDM

Func __SendToIDM($link, $ref = "", $cookie = "", $local_dir = "", $file_name = "", $flag = 1, $use_sock = 0, $sock_host = "127.0.0.1", $sock_port = "1080")
    $clsid = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\IDMan.CIDMLinkTransmitter\CLSID", "")
    If $clsid <> "" Then
        $i = 0
        While 1
            $i += 1
            Local $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\", $i)
            $keyname = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\" & $var, "")
            If ($var = "") Or ($keyname == "ICIDMLinkTransmitter") Then ExitLoop
        WEnd
        If $var = "" Then
            $idd = 1
        Else
            $idd = $var
        EndIf
    EndIf
    If $idd = 1 Then
        Return -1
    Else
        If $use_sock Then
            RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "bUseSocks", "REG_DWORD", 1)
            RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "SocksHost", "REG_SZ", $sock_host)
            RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "SocksPort", "REG_SZ", $sock_port)
        Else
            ConsoleWrite('x' & @LF)
            RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "bUseSocks", "REG_DWORD", 0)
        EndIf
        $desc = "SendLinkToIDM hresult(bstr;bstr;bstr;bstr;bstr;bstr;bstr;bstr;long);"
        $idm = ObjCreateInterface($clsid, $idd, $desc)
        $idm.SendLinkToIDM($link, $ref, $cookie, '', '', '', $local_dir, $file_name, $flag)
        Return 1
    EndIf
EndFunc   ;==>__SendToIDM