[Файловая система] как скачать файлик из интернета по ссылки.

gagarin74 · 30 Мар 2013

Добрейшего дня.
Вот ссылка на файлик

Код:

http://b-kpo.ru/download.php?id=5641

пробывал

Код:

$cop =$sUrl6
ConsoleWrite($cop& @CRLF)
FileCopy($cop, "D:\1\*.*")

Результат ноль!!!!
Помогите.

InnI · 30 Мар 2013

Попробуйте так

Код:

InetGet("http://b-kpo.ru/download.php?id=5641", "D:\1\name.ext")

Или так http://autoit-script.ru/index.php/topic,2805.0.html

gagarin74 · 30 Мар 2013

Это конечно все хорошо.
Вот только после скачивания -файлик уже и не файлик а мусо какой то не понятный :smile:

Код:

InetGet("http://b-kpo.ru/download.php?id=5641", "D:\1\name.torrent")

После скачивания -торрент клиент на отрез отказывается его открывать.
Как лечить ? И чем ?
Открыл блокнотом -а там html страничка.
При вставление в любой браузер ссылки http://b-kpo.ru/download.php?id=5641 -скачиваеться нормальный торрент файл.

InnI · 30 Мар 2013

gagarin74 [?]

а там html страничка

Вероятно, авторизация нужна. Почитайте справку

Код:

Чтобы использовать имя пользователя и пароль при соединении, достаточно просто перед адресом сервера добавить префикс "имя_пользователя:пароль@", например, "http://пользователь:пароль@www.somesite.com"

gagarin74 · 30 Мар 2013

попробовал. правильный пароль не правильный -качает html.
Попробовал с другого компа -по схеме "http://пользователь:пароль@www.somesite.com"
Путь не найден!!!!!

InnI · 30 Мар 2013

gagarin74 [?]

"http://пользователь:пароль@http://somesite.com"
Путь не найден!!!!!

После @ не нужно опять писать http://

gagarin74 · 31 Мар 2013

писал по разному.
результат нуль

ivsatel · 31 Мар 2013

gagarin74

gagarin74 сказал(а):
писал по разному.

Тогда в начале нужно произвести авторизацию на сайте, потом найти нужную ссылку, а уж потом только скачивать.

InnI · 31 Мар 2013

Авторизация проходит, но где взять cookie не пойму

Код:

$sUser="TorRent"
$sPass="12345678"

$data = "login_username=" & $sUser & "&login_password=" & $sPass & "&autologin=1&login=%D0%92%D1%85%D0%BE%D0%B4"
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("POST","http://b-kpo.ru/login.php")
$oHTTP.SetTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader("Accept", "image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*")
$oHTTP.SetRequestHeader("Referer","http://b-kpo.ru/index.php")
$oHTTP.SetRequestHeader("Accept-Language", "ru-RU")
$oHTTP.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; .NET4.0C)")
$oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.SetRequestHeader("Accept-Encoding", "gzip, deflate")
$oHTTP.SetRequestHeader("Host","b-kpo.ru")
$oHTTP.SetRequestHeader("Content-Length", StringLen($data))
$oHTTP.SetRequestHeader("Connection", "Keep-alive")
$oHTTP.SetRequestHeader("Cache-Control", "no-cache")
$oHTTP.SetRequestHeader("Cookie", "openstat_test=1")
$oHTTP.Send($data)
$oHTTP.WaitForResponse
$headers = $oHTTP.GetAllResponseHeaders
$resp = $oHTTP.ResponseText

FileWrite(@ScriptDir & "\headers.txt", $headers)
$file = FileOpen(@ScriptDir & "\resp.html", 2+128)
FileWrite($file, $resp)
FileClose($file)

В заголовках нет Set-Cookie, хотя снифер его отображает:

Код:

Set-Cookie: bb_data=a%3A3%3A%7Bs%3A2%3A%22uk%22%3Bs%3A12%3A%22HcCF5Zp4nJAC%22%3Bs%3A3%3A%22uid%22%3Bi%3A1645%3Bs%3A3%3A%22sid%22%3Bs%3A20%3A%22zXkwip0AF4gCDI4YMDFf%22%3B%7D; expires=Mon, 31-Mar-2014 12:12:55 GMT; path=/; domain=b-kpo.ru; httponly

И даже при наличии cookie что делать дальше? Скачать нужно файл, а не страницу :scratch:

ivsatel · 31 Мар 2013

InnI
Делал не на примере http://b-kpo.ru/
Понимаю, что не идеально, но получилось так:

Код:

#include <IE.au3>

$oIE = _IECreate("http://tracker.ru")
$oForm = _IEFormGetCollection($oIE, 0)
$oField_User = _IEGetObjById($oForm, 'login_username')
$oField_Pass = _IEGetObjById($oForm, 'login_password')
$oBut_Submit = _IEGetObjById($oForm, 'login')
$enter_user = _IEFormElementSetValue($oField_User, '*******')
$enter_pass = _IEFormElementSetValue($oField_Pass, '*******')
$click_subm = _IEAction($oBut_Submit, "click")

_IELoadWait ($oIE)

_IENavigate ($oIE, "http://tracker.ru/forum/viewtopic.php?t=112347")

$sHTML = _IEBodyReadHTML ($oIE)

;ConsoleWrite($sHTML&@LF)

$aFindLinck = StringRegExp($sHTML, '(?i)[\<]A href[\=]"(.*?)"[\>][\<]IMG alt[\=]Скачать src[\=]"[\.][\/]images[\/]k01[\.]gif"[\>]', 3)

$FindLinck = 'http://tracker.ru/forum/'&$aFindLinck[0]

$sGetDustName = BinaryToString(InetRead($FindLinck, 1), 4)

$aGetClearName = StringRegExp($sGetDustName, '(?i)name\d+[\:](.*?)\d+[\:]piece', 3)

InetGet('http://tracker.ru/forum/'&$aFindLinck[0], $aGetClearName[0]&'.torrent', 1)

_IENavigate($oIE, 'http://tracker.ru/forum/login.php?logout=1')

_IEQuit ($oIE)

И думаю, что задача все же индивидуальная и для каждого трекера будут свои нюансы.
Вот на примере предложенном ТС:

Код:

#include <IE.au3>

$oIE = _IECreate("http://b-kpo.ru")
$oForm = _IEFormGetCollection($oIE, 0)
$oField_User = _IEGetObjById($oForm, 'login_username')
$oField_Pass = _IEGetObjById($oForm, 'login_password')
$oBut_Submit = _IEGetObjById($oForm, 'login')
$enter_user = _IEFormElementSetValue($oField_User, '********')
$enter_pass = _IEFormElementSetValue($oField_Pass, '********')
$click_subm = _IEAction($oBut_Submit, "click")

_IELoadWait ($oIE)

_IENavigate ($oIE, "http://b-kpo.ru/viewtopic.php?t=3680")

$sHTML = _IEBodyReadHTML ($oIE)

;ConsoleWrite($sHTML&@LF)

$aFindLinck = StringRegExp($sHTML, '(?i)\<TD class\="tCenter pad\_\d+" rowSpan\=\d+ width\="\d+%"\>\<A class\=genmed href\="(.*?)"\>', 3)

$FindLinck = 'http://b-kpo.ru/'&$aFindLinck[0]

$sGetDustName = BinaryToString(InetRead($FindLinck, 1), 4)

;ConsoleWrite($sGetDustName)

$aGetClearName = StringRegExp($sGetDustName, '(?i)name\d+[\:](.*?)\d+[\:]piece', 3)

;ConsoleWrite($aGetClearName[0]&'.torrent')

InetGet('http://b-kpo.ru/'&$aFindLinck[0], $aGetClearName[0]&'.torrent', 1)

_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')

_IEQuit ($oIE)

InnI · 31 Мар 2013

ivsatel [?]

Вот на примере предложенном ТС:

Ошибочка получается

Код:

C:\Users\xxx\Desktop\test.au3 (32) : ==> Subscript used with non-Array variable.:
InetGet('http://b-kpo.ru/'&$aFindLinck[0], $aGetClearName[0]&'.torrent', 1)
InetGet('http://b-kpo.ru/'&$aFindLinck[0], $aGetClearName^ ERROR

Сможете поправить? А то у меня с регулярками напряг :( Вот регистрация:

Код:

$enter_user = _IEFormElementSetValue($oField_User, 'TorRent')
$enter_pass = _IEFormElementSetValue($oField_Pass, '12345678')

gagarin74 · 31 Мар 2013

и у меня точно такие же ошибки.
Окошко эксплодера открываеться а логин и пароль не вводит -дальше ошибки.
и можно убрать открытие эксплодера ?

может ie.au3 не той версии ? или сам ie ?

ivsatel · 31 Мар 2013

InnI
gagarin74
Исправил, скрыл, проверил, работает:

Код:

#include <IE.au3>

$oIE = _IECreate("http://b-kpo.ru", 0, 0)
$oForm = _IEFormGetCollection($oIE, 0)
$oField_User = _IEGetObjById($oForm, 'login_username')
$oField_Pass = _IEGetObjById($oForm, 'login_password')
$oBut_Submit = _IEGetObjById($oForm, 'login')
$enter_user = _IEFormElementSetValue($oField_User, 'TorRent')
$enter_pass = _IEFormElementSetValue($oField_Pass, '12345678')
$click_subm = _IEAction($oBut_Submit, "click")

_IELoadWait ($oIE)
_IENavigate ($oIE, "http://b-kpo.ru/viewtopic.php?t=3680")
$sHTML = _IEBodyReadHTML ($oIE)
;ConsoleWrite($sHTML&@LF)
$aFindLinck = StringRegExp($sHTML, '(?i)[\<]TD class[\=]"tCenter pad_\d+" rowSpan[\=]\d+ width[\=]"\d+[\%]"[\>][\<]A class[\=]genmed href[\=]"(.*?)"[\>]', 3)
$FindLinck = 'http://b-kpo.ru/'&$aFindLinck[0]
$sGetDustName = BinaryToString(InetRead($FindLinck, 1), 4)
;ConsoleWrite($sGetDustName)
$aGetClearName = StringRegExp($sGetDustName, '(?i)name\d+[\:](.*?)\d+[\:]piece', 3)
;ConsoleWrite($aGetClearName[0]&'.torrent')
InetGet('http://b-kpo.ru/'&$aFindLinck[0], $aGetClearName[0]&'.torrent', 1)
_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
_IEQuit ($oIE)

gagarin74 · 31 Мар 2013

Код:

--> IE.au3 V2.4-0 Warning from function _IEGetObjById, $_IEStatus_NoMatch (login_password)
--> IE.au3 V2.4-0 Warning from function _IEGetObjById, $_IEStatus_NoMatch (login)
--> IE.au3 V2.4-0 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEAction, $_IEStatus_InvalidDataType

ОШИБКИ!!!!

InnI · 31 Мар 2013

ivsatel [?]

Исправил, скрыл, проверил, работает:

Странно... у меня таже ошибка "non-Array variable" (Win7 IE8). Ладно, попробую разобраться.
gagarin74 [?]

ОШИБКИ!!!!

Это не ошибки, это предупреждения. Появляются в том случае, если вы уже прошли регистрацию, т.е. полей логина и пароля на странице нет. Кстати, у вас файл закачивается?

ivsatel · 31 Мар 2013

InnI
Может так сработает?

Код:

$aFindLinck = StringRegExp($sHTML, '(?i)[\<]TD class[\=]"tCenter pad.*?A class[\=]genmed href[\=]"(.*?)"[\>]', 3)

И если можно то что выдает

Код:

ConsoleWrite($sGetDustName)

gagarin74 · 31 Мар 2013

не закачивается!!!!!!!!

Буду очень признателен если разберетесь до конца.
Конечный вариант(задумка такая) -должно закачаться 20 торрент файлов -тобишь последние обновления но сайте

InnI · 31 Мар 2013

ivsatel [?]

Может так сработает?

Не сработало :(

И если можно то что выдает

Во всех случаях.

Код:

?<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"><html dir="ltr">

<head>
<title>Российский торрент-трекер b-kpo.ru | Качай до последнего!</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<link rel="stylesheet" href="./templates/default2/css/main.css?v=1" type="text/css">
<link rel="icon" type="image/png" href="/images/logo/logo_big.png" />
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon">
<link rel="search" type="application/opensearchdescription+xml" href="opensearch_desc.xml" title="Российский торрент-трекер b-kpo.ru | Качай до последнего! (Forum)" />
<link rel="search" type="application/opensearchdescription+xml" href="opensearch_desc_bt.xml" title="Российский торрент-трекер b-kpo.ru | Качай до последнего! (Tracker)" />

<script type="text/javascript" src="./misc/js/jquery.pack.js?v=1"></script>
<script type="text/javascript" src="./misc/js/main.js?v=1"></script>
<script type="text/javascript" src="./misc/js/scroll.js?v=1"></script>
<script type="text/javascript">
var BB_ROOT       = "./";
var cookieDomain  = "b-kpo.ru";
var cookiePath    = "/";
var cookieSecure  = 0;
var cookiePrefix  = "bb_";
var LOGGED_IN     = 0;
var InfoWinParams = 'HEIGHT=510,resizable=yes,WIDTH=780';

var user = {
    opt_js: {},

    set: function(opt, val, days, reload) {
      this.opt_js[opt] = val;
      setCookie('opt_js', $.toJSON(this.opt_js), days);
      if (reload) {
        window.location.reload();
      }
    }
}

var ajax = new Ajax('./ajax.php', 'POST', 'json');

function getElText (e)
{
    var t = '';
    if (e.textContent !== undefined) { t = e.textContent; } else if (e.innerText !== undefined) { t = e.innerText; } else { t = jQuery(e).text(); }
    return t;
}
function escHTML (txt)
{
    return txt.replace(/</g, '&lt;');
}
</script>

<!--[if lte IE 6]><script type="text/javascript">
$(ie6_make_clickable_labels);

$(function(){
  $('div.menu-sub').prepend('<iframe class="ie-fix-select-overlap"></iframe>'); // iframe for IE select box z-index issue
  Menu.iframeFix = true;
});
</script><![endif]-->


<!--[if gte IE 7]><style type="text/css">
input[type="checkbox"] { margin-bottom: -1px; }
</style><![endif]-->

<!--[if lte IE 6]><style type="text/css">
.forumline th { height: 24px; padding: 2px 4px; }
.menu-sub iframe.ie-fix-select-overlap { display: none; display: block; position: absolute; z-index: -1; filter: mask(); }
</style><![endif]-->

<!--[if IE]><style type="text/css">
.post-hr { margin: 2px auto; }
.fieldsets div > p { margin-bottom: 0; }
</style><![endif]-->

<style type="text/css">
  .menu-sub, #ajax-loading, #ajax-error, var.ajax-params, .sp-title { display: none; }
</style>
</head>

<body>


<div id="ajax-loading"></div><div id="ajax-error"></div>
<div id="preload" style="position: absolute; overflow: hidden; top: 0; left: 0; height: 1px; width: 1px;"></div>

<div id="body_container">

<!--******************-->
<!--======-->

<!--page_container-->
<div id="page_container">
<a name="top"></a>

<!--page_header-->
<div id="page_header">


<!--main_nav-->
<ul id="menu">
        <li><a href="./index.php">Главная</a></li>
    <li><a href="tracker.php">Трекер</a></li>
    <li><a href="search.php">Поиск</a></li>
    <li><a href="viewtopic.php?t=311">Правила</a></li>

    <li><a href="groupcp.php">Группы</a></li>
    <li><a href="memberlist.php">Пользователи</a></li>
    <li><a href="/medal.php">Доска почета</a></li>
    <li><a href="/awards.php">Награды</a></li>
<li><a href="http://b-kpo.ru/viewtopic.php?t=2969">Стол заказов</a></li>
<li></li>
</ul>
<!--/main_nav-->

<!--/main_nav-->
<!-- Вывод нового ПМ в шапку by Ариец-->

   
<!-- Вывод нового ПМ в шапку by Ариец. Конец-->
  

<!--logo-->
<div id="logo">
  <!--<h1>Российский торрент-трекер b-kpo.ru | Качай до последнего!</h1>
  <h6></h6> -->
  <a href="./index.php"><img src="images/logo/logo.png" alt="Российский торрент-трекер b-kpo.ru | Качай до последнего!" /></a>
</div>
<!--/logo-->


<!--login form-->
<div class="topmenu">
   <table width="100%" cellpadding="0" cellspacing="0">
   <tr>
        <td class="tCenter pad_2">
            <a href="profile.php?mode=register" id="register_link"><b>Регистрация</b></a> ·
                <form action="./login.php" method="post">
                    Имя: <input type="text" name="login_username" size="12" tabindex="1" accesskey="l" />
                    Пароль: <input type="password" name="login_password" size="12" tabindex="2" />
                    <label title="Автоматически входить при каждом посещении"><input type="checkbox" name="autologin" value="1" tabindex="3" checked="checked" />Запомнить</label> 
                    <input type="submit" name="login" value="Вход" tabindex="4" />
                </form> ·
            <a href="profile.php?mode=sendpassword">Забыли пароль?</a>
        </td>
    </tr>
    </table>
</div>

<!--/login form-->

<!--breadcrumb-->
<!--<div id="breadcrumb"></div>-->
<!--/breadcrumb-->


</div>
<!--/page_header-->

<!--menus-->


<!--/menus-->





<!--page_content-->

<!--main_content-->


<!--=======================-->
<!--***********************-->



<!-- page_header.tpl END -->
<!-- module_xx.tpl START --><!--========================================================================-->

	<div class="spacer_10"></div>
	<table class="forumline message">
		<tr><th>Информация</th></tr>
		<tr><td>Вы <b>не можете</b> просматривать или скачивать файлы</td></tr>
			</table>

	<div class="spacer_10"></div>
<!--========================================================================-->

	</div><!--/main_content_wrap-->
	</td><!--/main_content-->

	
	</tr></table>
	</div>
	<!--/page_content-->


	<!--page_footer-->
<div id="footer_fon">
	<div id="page_footer">


		<div class="clear"></div>

		


				<div class="med bold tCenter">
			<a href="misc.php?do=info&show=user_agreement" onclick="window.open(this.href, '', InfoWinParams); return false;">Пользовательское соглашение</a>
						<span class="normal"> | </span>
			<a href="misc.php?do=info&show=copyright_holders" onclick="window.open(this.href, '', InfoWinParams); return false;">Для правообладателей</a>
									<span class="normal"> | </span>
			<a href="misc.php?do=info&show=advert" onclick="window.open(this.href, '', InfoWinParams); return false;">Реклама на сайте</a>
					</div>
		

		
		
		<div class="copyright tCenter">
			Powered by <a target="_blank" href="http://torrentpier.me">TorrentPier II</a> &copy; Meithar, TorrentPier II Team 

		</div>

	</div>
<center><!-- HotLog -->
<script type="text/javascript" language="javascript">
hotlog_js="1.0"; hotlog_r=""+Math.random()+"&amp;s=2241439&amp;im=407&amp;r="+
escape(document.referrer)+"&amp;pg="+escape(window.location.href);
</script>
<script type="text/javascript" language="javascript1.1">
hotlog_js="1.1"; hotlog_r+="&amp;j="+(navigator.javaEnabled()?"Y":"N");
</script>
<script type="text/javascript" language="javascript1.2">
hotlog_js="1.2"; hotlog_r+="&amp;wh="+screen.width+"x"+screen.height+"&amp;px="+
(((navigator.appName.substring(0,3)=="Mic"))?screen.colorDepth:screen.pixelDepth);
</script>
<script type="text/javascript" language="javascript1.3">
hotlog_js="1.3";
</script>
<script type="text/javascript" language="javascript">
hotlog_r+="&amp;js="+hotlog_js;
document.write('<a href="http://click.hotlog.ru/?2241439" target="_blank"><img '+
'src="http://hit41.hotlog.ru/cgi-bin/hotlog/count?'+
hotlog_r+'" border="0" width="88" height="31" alt="HotLog"><\/a>');
</script>
<noscript>
<a href="http://click.hotlog.ru/?2241439" target="_blank"><img
src="http://hit41.hotlog.ru/cgi-bin/hotlog/count?s=2241439&amp;im=407" border="0"
width="88" height="31" alt="HotLog"></a>
</noscript>
<!-- /HotLog -->
<a href="http://www.siteguard.ru/" target="_blank"><img src="http://www.siteguard.ru/img/knopka.gif" width="88" height="31" border="0" alt="???? ???? ??????? &laquo;Site Guard&raquo;"></a>
<!--cy-pr.com--><a href="http://www.cy-pr.com/" target="_blank"><img src="http://www.cy-pr.com/e/b-kpo.ru_1_107.138.206.gif" border="0" width="88" height="31" alt="Анализ веб сайтов" /></a><!--cy-pr.com-->
<!--LiveInternet counter--><script type="text/javascript"><!--
document.write("<a href='http://www.liveinternet.ru/click' "+
"target=_blank><img src='//counter.yadro.ru/hit?t54.6;r"+
escape(document.referrer)+((typeof(screen)=="undefined")?"":
";s"+screen.width+"*"+screen.height+"*"+(screen.colorDepth?
screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
";"+Math.random()+
"' alt='' title='' "+
"border='0' width='88' height='31'><\/a>")
//--></script><!--/LiveInternet-->
<!-- /Top YandeG StatCode -->
<!-- Yandex.Metrika informer -->
<a href="http://metrika.yandex.ru/stat/?id=19263463&amp;from=informer"
target="_blank" rel="nofollow"><img src="//bs.yandex.ru/informer/19263463/3_1_FFFFFFFF_EFEFEFFF_0_pageviews"
style="width:88px; height:31px; border:0;" alt="Яндекс.Метрика" title="Яндекс.Метрика: данные за сегодня (просмотры, визиты и уникальные посетители)" onclick="try{Ya.Metrika.informer({i:this,id:19263463,type:0,lang:'ru'});return false}catch(e){}"/></a>
<!-- /Yandex.Metrika informer -->

<!-- Yandex.Metrika counter -->
<script type="text/javascript">
(function (d, w, c) {
    (w[c] = w[c] || []).push(function() {
        try {
            w.yaCounter19263463 = new Ya.Metrika({id:19263463,
                    clickmap:true,
                    trackLinks:true,
                    accurateTrackBounce:true});
        } catch(e) { }
    });

    var n = d.getElementsByTagName("script")[0],
        s = d.createElement("script"),
        f = function () { n.parentNode.insertBefore(s, n); };
    s.type = "text/javascript";
    s.async = true;
    s.src = (d.location.protocol == "https:" ? "https:" : "http:") + "//mc.yandex.ru/metrika/watch.js";

    if (w.opera == "[object Opera]") {
        d.addEventListener("DOMContentLoaded", f, false);
    } else { f(); }
})(document, window, "yandex_metrika_callbacks");
</script>
<noscript><div><img src="//mc.yandex.ru/watch/19263463" style="position:absolute; left:-9999px;" alt="" /></div></noscript>
<!-- /Yandex.Metrika counter -->
<!--Openstat-->
<span id="openstat2299970"></span>
<script type="text/javascript">
var openstat = { counter: 2299970, image: 5083, color: "458efc", next: openstat };
(function(d, t, p) {
var j = d.createElement(t); j.async = true; j.type = "text/javascript";
j.src = ("https:" == p ? "https:" : "http:") + "//openstat.net/cnt.js";
var s = d.getElementsByTagName(t)[0]; s.parentNode.insertBefore(j, s);
})(document, "script", document.location.protocol);
</script>
<!--/Openstat-->
</center>
<div class="copyright tCenter">
		<b style="color:#800000;">!ВНИМАНИЕ!</b>

		Сайт не предоставляет электронные версии произведений, а занимается лишь коллекционированием и каталогизацией ссылок, присылаемых и публикуемых на форуме нашими читателями. Если вы являетесь правообладателем какого-либо представленного материала и не желаете, чтобы ссылка на него находилась в нашем каталоге, свяжитесь с нами, и мы незамедлительно удалим её. Файлы для обмена на трекере предоставлены пользователями сайта, и администрация не несёт ответственности за их содержание. Просьба не заливать файлы, защищенные авторскими правами, а также файлы нелегального содержания!	</div>
</div><!-- /footer_fon -->

	<!--/page_footer -->
<div id="topcontrol" style="position: fixed; bottom: 50px; right: 15px; cursor: pointer; opacity: 2"></div>
	</div>
	<!--/page_container -->




	</div><!--/body_container-->

	</body>
	</html>

ivsatel · 31 Мар 2013

gagarin74

Код:

#include <IE.au3>
#include <Array.au3>

Dim $aTopLinck[1], $aGetClearTopLinck[1]

$oIE = _IECreate("http://b-kpo.ru", 0, 0)
$oForm = _IEFormGetCollection($oIE, 0)
$oField_User = _IEGetObjByName ($oForm, 'login_username')
$oField_Pass = _IEGetObjByName ($oForm, 'login_password')
$oBut_Submit = _IEGetObjByName ($oForm, 'login')
$enter_user = _IEFormElementSetValue($oField_User, 'TorRent')
$enter_pass = _IEFormElementSetValue($oField_Pass, '12345678')
$click_subm = _IEAction($oBut_Submit, "click")
_IELoadWait ($oIE)
$sGetDustTopLinck = BinaryToString(InetRead('http://b-kpo.ru', 1), 4)
$aGetClearTopLinck = StringRegExp($sGetDustTopLinck, '(?i)loadme[\_](.*?)" title', 3)

For $i = 0 To UBound($aGetClearTopLinck) - 1
	_ArrayAdd($aTopLinck, 'http://b-kpo.ru/viewtopic.php?t='&$aGetClearTopLinck[$i])
Next

For $i = 1 To UBound($aTopLinck) - 1
_IENavigate ($oIE, _ArrayToString($aTopLinck, '', $i, $i))
_IELoadWait ($oIE)
$sHTML = _IEBodyReadHTML ($oIE)
$aFindLinck = StringRegExp($sHTML, '(?i)[\<]TD class[\=]"tCenter pad.*?A class[\=]genmed href[\=]"(.*?)"[\>]', 3)
$FindLinck = 'http://b-kpo.ru/'&$aFindLinck[0]
$sGetDustName = BinaryToString(InetRead($FindLinck, 1), 4)
$aGetClearName = StringRegExp($sGetDustName, '(?i)name\d+[\:](.*?)\d+[\:]piece', 3)
InetGet('http://b-kpo.ru/'&$aFindLinck[0], $aGetClearName[0]&'.torrent', 1)
Next
_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
_IEQuit ($oIE)

Добавлено:
Сообщение автоматически объединено: 31 Мар 2013

InnI

Код:

ConsoleWrite($sGetDustName)

По идее должно выводить содержимое отработанного php скрипта:

Код:

d8:announce45:http://b-kpo.ru/bt/announce.php?uk=7lB3TZp9MC18:azureus_propertiesd17:dht_backup_enablei0ee7:comment36:http://b-kpo.ru/viewtopic.php?p=489710:created by13:uTorrent/204013:creation datei1360166188e8:encoding5:UTF-84:infod6:lengthi1466511360e4:name49:Bilet.na.Vegas.2012.O.DVDRip.1400MB.Goliaf.TV.avi12:piece lengthi2097152e6:pieces14000:TrH<_wG?&4U+JSW?d>~tl?En(!K@Rav?>?rd+>22:16:56 AutoIT3.exe ended.rc:0

InnI · 31 Мар 2013

ivsatel [?]

По идее должно выводить содержимое отработанного php скрипта

Если посмотреть $sGetDustName, то там страница, на которой есть поля регистрации. Т.е. функция InetRead() не подхватывает cookie, хотя, вроде бы, должна, и ей выдаётся страница с регистрацией. Я как раз с этим столкнулся и пошёл по пути POST запросов. Но далеко уйти не получилось :smile:

Но, всё равно, спасибо за работу. Тем более в выходной :beer:
Добавлено:
Сообщение автоматически объединено: 1 Апр 2013

ivsatel, ваш скрипт, который "Исправил, скрыл, проверил, работает" действительно работает!
Оказалось на Win7 его нужно запускать с правами администратора :stars:
Ещё раз спасибо.
Добавлено:
Сообщение автоматически объединено: 1 Апр 2013

Дополнительно по работе скрипта.
На Win7, кроме запуска от имени администратора, необходимо для этого сайта включить режим совместимости на IE9 и IE10 (на IE8 не обязательно).

Если оригинальное имя файла не важно, то скрипт можно упростить. Причём данный вариант не зависит от режима совместимости.

Код:

#RequireAdmin
#include <IE.au3>

$oIE = _IECreate("http://b-kpo.ru", 0, 0)
$oForm = _IEFormGetCollection($oIE, 0)
$oField_User = _IEGetObjByName($oForm, 'login_username')
$oField_Pass = _IEGetObjByName($oForm, 'login_password')
$oBut_Submit = _IEGetObjByName($oForm, 'login')
$enter_user = _IEFormElementSetValue($oField_User, 'TorRent')
$enter_pass = _IEFormElementSetValue($oField_Pass, '12345678')
$click_subm = _IEAction($oBut_Submit, "click")
_IELoadWait ($oIE)

InetGet('http://b-kpo.ru/download.php?id=5641', @ScriptDir & '\name.torrent', 1)

_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
_IEQuit ($oIE)

Автор темы	Похожие темы	Форум	Ответы	Дата
R	[Файловая система] Создать папки заданного размера	Общие вопросы по AutoIt	3	9 Авг 2019
	[Файловая система] Замена значений в каждой секции ini-файла одной функцией	Стол заказов	1	7 Апр 2019
	[Файловая система] Замена значения при чтении ini-файла	Общие вопросы по AutoIt	1	7 Апр 2019
Y	[Файловая система] Создание папки с именем файла	Общие вопросы по AutoIt	2	21 Янв 2019
T	[Файловая система] Вроде, проблема с GUI	Общие вопросы по AutoIt	1	13 Янв 2019

[Файловая система] как скачать файлик из интернета по ссылки.

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

Продвинутый

AutoIT Гуру

Продвинутый

AutoIT Гуру

Новичок

Продвинутый

Новичок

AutoIT Гуру

Продвинутый

Новичок

AutoIT Гуру

Продвинутый

AutoIT Гуру