SHOW:
|
|
- or go back to the newest paste.
| 1 | Func __SendToIDM($link, $ref = "", $cookie = "", $local_dir = "", $file_name = "", $flag = 1, $use_sock = 0, $sock_host = "127.0.0.1", $sock_port = "1080") | |
| 2 | $clsid = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\IDMan.CIDMLinkTransmitter\CLSID", "")
| |
| 3 | If $clsid <> "" Then | |
| 4 | $i = 0 | |
| 5 | While 1 | |
| 6 | $i += 1 | |
| 7 | Local $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\", $i)
| |
| 8 | $keyname = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\" & $var, "")
| |
| 9 | If ($var = "") Or ($keyname == "ICIDMLinkTransmitter") Then ExitLoop | |
| 10 | WEnd | |
| 11 | If $var = "" Then | |
| 12 | $idd = 1 | |
| 13 | Else | |
| 14 | $idd = $var | |
| 15 | EndIf | |
| 16 | EndIf | |
| 17 | If $idd = 1 Then | |
| 18 | Return -1 | |
| 19 | Else | |
| 20 | If $use_sock Then | |
| 21 | RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "bUseSocks", "REG_DWORD", 1)
| |
| 22 | RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "SocksHost", "REG_SZ", $sock_host)
| |
| 23 | RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "SocksPort", "REG_SZ", $sock_port)
| |
| 24 | Else | |
| 25 | ConsoleWrite('x' & @LF)
| |
| 26 | RegWrite("HKEY_CURRENT_USER\Software\DownloadManager", "bUseSocks", "REG_DWORD", 0)
| |
| 27 | EndIf | |
| 28 | $desc = "SendLinkToIDM hresult(bstr;bstr;bstr;bstr;bstr;bstr;bstr;bstr;long);" | |
| 29 | $idm = ObjCreateInterface($clsid, $idd, $desc) | |
| 30 | $idm.SendLinkToIDM($link, $ref, $cookie, '', '', '', $local_dir, $file_name, $flag) | |
| 31 | Return 1 | |
| 32 | EndIf | |
| 33 | EndFunc ;==>__SendToIDM |
