Что нового

[Сеть, интернет] Acesse бот

sasha1304

Новичок
Сообщения
41
Репутация
0
Всем привет. я в autoit новичок, пишу бота. нужно чтоб он зашёл на сайт 'http://acesse.com/' авторизировался на нём, выбрал русский язык, и нажал кнопку 'начать серфинг'. это я уже написал, сам вот код

Код:
#include <IE.au3> 
$oIE = _IECreate ("http://acesse.com/") ; Открывает сайт
_IELoadWait ($oIE)


_IELinkClickByText ($oIE, "Русский") ; Выбирает русский язык
_IELinkClickByText ($oIE, "Войти") ; Жмёт кнопку Войти

$oUser =_IEGetObjByName($oIE,"username") ; Форма ввода логина
$oPass =_IEGetObjByName($oIE,"passwd") ; Форма ввода пароля
$oSubmit =_IEGetObjByName($oIE,"Login") ; Кнопка вход


_IEFormElementSetValue ($oUser, '132882') ; Вводит логин
_IEFormElementSetValue ($oPass, 'zaq1234') ; Вводит пароль


_IEAction ($oSabmit,"click") ; Жмёт кнопку Вход
_IELoadWait ($oIE) 


_IELinkClickByText ($oIE, "Начать серфинг") ; Жмёт кнопку Начать серфинг



далее нужно чтоб он отслеживал кнопку 'Продолжить серфинг' каждые 32 сек, и кликал по ней, если кнопка после 32 сек не появляется, то надо чтоб он перезагружал страницу, и отслеживал кнопку дальше и кликал по ней.
помогите пожалуйста разобраться, вот код страницы

Код:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> 
<head profile="http://gmpg.org/xfn/11"> 
	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
	<meta charset="utf-8" />
	<script type="text/javascript">var NREUMQ=NREUMQ||[];NREUMQ.push(["mark","firstbyte",new Date().getTime()]);</script>
<link href="/css/vservices/master.css" rel="stylesheet" />
	<title>Ad Rotator</title>
	<style type="text/css">
		body{
			margin:0; padding:0;
			font-family:arial,helvetica,sans-serif;
			color:white;
			background-image:url(surf.jpg);
			background-color:#03306b;
			background-repeat:no-repeat;
			background-position: center top;
		}
		.head_bar{
			color:white;
			margin:0; padding:0;
			background: #7abcff; /* Old browsers */
			background: -moz-linear-gradient(top, #7abcff 0%, #60abf8 44%, #4096ee 100%); /* FF3.6+ */
			background: -webkit-gradient(linear, left top, left bottom, color-stop(0%,#7abcff), color-stop(44%,#60abf8), color-stop(100%,#4096ee)); /* Chrome,Safari4+ */
			background: -webkit-linear-gradient(top, #7abcff 0%,#60abf8 44%,#4096ee 100%); /* Chrome10+,Safari5.1+ */
			background: -o-linear-gradient(top, #7abcff 0%,#60abf8 44%,#4096ee 100%); /* Opera11.10+ */
			background: -ms-linear-gradient(top, #7abcff 0%,#60abf8 44%,#4096ee 100%); /* IE10+ */
			filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#7abcff', endColorstr='#4096ee',GradientType=0 ); /* IE6-9 */
			background: linear-gradient(top, #7abcff 0%,#60abf8 44%,#4096ee 100%); /* W3C */
		}
		.langbar a:visited,	.langbar a:active, .langbar a:hover, .langbar a {
			color: white;
		}
		
		.padded{padding:5px;}
		
		.data-tbl td{
			border-bottom:1px solid grey;
			font-size:8pt;
		}
		
		.tick{font-size:20pt;}
		
		a.rating-anchor{ color:white; }
		
		.ds{
			-webkit-box-shadow: 0px 0px 15px 0px #000000;
			-moz-box-shadow: 0px 0px 15px 0px #000000;
			box-shadow: 0px 0px 15px 0px #000000;
		}
		#timer{text-align:left; padding:15px 0 0; font-size:18pt;}
		#nosupport{display:none;}
		#nosupport p{margin-top:0; font-size:9pt;}
		.tooltip{z-index:10000;}
		.kwr{
			background: #03306B;
			padding: 6px 15px;
			margin: 2px auto;
			border: 1px solid #1470C4;
			-webkit-border-radius: 15px;    
			border-radius: 15px;
			display:none;
		}
		td {vertical-align:top;}
	</style>	
</head>
<body>		
	<table id="surfBar" style='width:100%;' class='surfer'>
		<tr>
			<td rowspan="2" style='vertical-align:top;'>
			<!-- info -->
				<table cellspacing='0' class='data-tbl' cellpadding='5' style='margin:0 auto;font-size:12pt;color:black;border-radius:5px;background-color:white;'>
					<tr>
						<td>Ваш номер</td><td>132882</td>
					</tr>
					<tr>
						<td><!--a target='_blank' href='/manager/advertisers/surfHistory.php' title=''-->Количество сайтов</td><td>80</td>
					</tr>
					<tr>
						<td>Бонусные iCredits</td><td>75</td>
					</tr>
					<tr>
						<td>Общая сумма iCredits</td><td>155</td>
					</tr>
					<tr>
						<td style='border-bottom:none;'>iRewards</td><td style='border-bottom:none;'>80</td>
					</tr>
				</table>
			</td>
			<td rowspan="2" style="vertical-align:top; width:175px;">
				<div id="timer"></div>
				<div id="nosupport">
					<p>Нажмите на ссылку внизу, для того чтобы посмотреть следующую рекламу.Во избежании появления этого убедитесь, что блокирующее всплывающие окна устройство вашего браузера выключено.</p>
					<a class="uitool" href="javascript:void(0);">Следующая реклама</a>
				</div>
				<div id="r" style='visibility:hidden;'>
					<p>Ваша рекламное окно было закрыто</p>
					<a href='?' class='uitool'>Продолжить серфинг</a>
				</div>
				<form id="nextsurf" action='' onSubmit='next(); this.submit();' method='POST'>
					<input type="hidden" id="s_rating" name="s_rating" />
					<input type="hidden"  name="nk" value="be0328ccd692b630f6cefc12ef0e29ff88794db4" />
					<input type="hidden"  name="nextAd" value="1" />
					<div id='_f' style='padding:5px;'></div>
					<div id="rating"></div>
				</form>
			</td>
			<td rowspan="2" style='text-align:center;'>
				
			</td>
			<td rowspan="2" style='text-align:center;'>
				<p>Вы обнаружили нарушение? Дайте нам знать!</p>
				<span name='help' class='uibutton uiorange'>Сообщить о нарушении</span>
				<div class='tooltip'>
					<table>
						<tr>
							<td>Выберите нарушение</td>
						</tr>
						<tr>
							<td><label><input type='checkbox' name='report_option' value='2'> Неуместное содержание</label>
<label><input type='checkbox' name='report_option' value='3'> Неверный URL. Веб-сайт не был найден</label>
<label><input type='checkbox' name='report_option' value='4'> Страница iNetGlobal</label>
<label><input type='checkbox' name='report_option' value='5'> surf_Malicious/Harmful Content</label>
</td>
						</tr>
						<tr>
							<td><input type='button' class='uibutton uiorange' name='send_msg' id='sendReport' value='Отправить' /></td>
						</tr>
					</table>
				</div>			
			</td>
			<td><ul class="langbar">
<li><a href="/surf/surf_top.php?&lang=1">English</a></li>
<li><a href="/surf/surf_top.php?&lang=2">中文</a></li>
<li><a href="/surf/surf_top.php?&lang=3">Русский</a></li>
<li><a href="/surf/surf_top.php?&lang=4">Español</a></li>
</ul>
</td>
		</tr>
		<tr>
			<td>
				<form onsubmit='next();' action="" method="POST">
					<table style="margin:0 auto; width:100%; text-align:center;">
						<tr>
							<td style="text-align:right;"><span style="cursor:help;" name="help" title="surf_Keywords_Help">Ключевые слова [?]</span></td>
							<td style="text-align:left;"><input type="text" name="keywords" value="" size="20"></td>
						</tr>
						<tr>
							<td style="text-align:right;"><span style="cursor:help;" name="help" title="Сначала выберите язык, для того чтобы просматривать сайты на выбранном языке.">Язык [?]</span></td>
							<td style="text-align:left;"><select name='ad_lang_id' id='_ad_lang_id' style='padding:1px 10px;'><option value=''>Выбрать язык</option><option value='1' >English</option><option value='5' >中文</option><option value='6' >Español</option><option value='7' >Русский</option><option value='8' >العربية</option><option value='9' >हिन्दी</option><option value='10' >Português</option><option value='11' >日本</option><option value='12' >Deutsch</option><option value='13' >Italiano</option><option value='14' >Danske</option><option value='15' >Polska</option><option value='16' >Française</option><option value='17' >Română</option><option value='18' >Svenska</option></select></td>
						</tr>
						<tr>
							<td colspan="2">								
								<input type="submit" class="uibutton uiblue" name="update" class="ds" value="Обновить">
								<input type='submit' class='uibutton uiblue'  name='reset' class='ds' value='Сброс'>
								<div><span class="kwr"></span></div>
							</td>
						</tr>
					</table>
				</form>
			<!--	surf_Sites_Served {php[Total_Sites]} -->
			</td>
		</tr>
		<tr>
			<td colspan="5">
				<div style='text-align:center;'><a href='http://www.actismoney.com/jrb' class='uitool' target='_blank'>http://www.actismoney.com/jrb</a></div>
			</td>
		</tr>
	</table>
	
	<div id='_msg' style='display:none;'></div>
	<script type="text/javascript" src="/js/vservices/jquery-1.5.1.min.js"></script>
	<script type="text/javascript" src="/js/tooltip.min.js"></script>
	<script type="text/javascript" src="/js/vservices/browserdetect.min.js"></script>	
	<script type="text/javascript" src="/js/surf.min.js?v=2.4"></script>
	<script type="text/javascript" >		
		c = 30; 
		submit_next_val = 'Продолжить сёрфинг';
		site_url = 'http://www.actismoney.com/jrb';
		ak = 'cb484f174441c456b4f9033939cc1ccf';
		lang_rate = 'Оценка: ';
		lang_r_sent = 'Ваше сообщение было отправлено! Благодарим за содействие!';
		lang_r_error = 'Извиняемся! При отправке сообщения произошла ошибка.';
		loading_img = '<img src="../images/ajax.gif" />';
		pop_err = "Ваш браузер, блокирующий всплывающие окна, \n не позволит загрузить сайт. Для продолжения серфинга, пожалуйста, \n разрешите всплывающие окна или используйте другой браузер.";
	</script>
<script type="text/javascript">if(!NREUMQ.f){NREUMQ.f=function(){NREUMQ.push(["load",new Date().getTime()]);var e=document.createElement("script");e.type="text/javascript";e.async=true;e.src="https://d1ros97qkrwjf5.cloudfront.net/41/eum/rum.js";document.body.appendChild(e);if(NREUMQ.a)NREUMQ.a();};NREUMQ.a=window.onload;window.onload=NREUMQ.f;};NREUMQ.push(["nrf2","beacon-1.newrelic.com","5b0b23e467",694584,"YgdSMENQXBdUUhALDVtNZRZYHkERR1dLERdHBG8QXkEcFF1B",0,127,new Date().getTime()]);</script>
</body>
</html>
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
Код:
$sClass='uitool'
_IELinkClickByClass($oIE,$sClass)
Func _IELinkClickByClass($_oIE,$_sClassName)
    $_oLinks = _IELinkGetCollection($_oIE)
    For $_oLink In $_oLinks
        If StringInStr($_oLink.classname, $_sClassName) Then
            $_oLink.click
            ExitLoop
        EndIf
    Next
EndFunc
 
Автор
S

sasha1304

Новичок
Сообщения
41
Репутация
0
вставил ваш код, вот так

Код:
#include <IE.au3> 


$oIE = _IECreate ("http://acesse.com/") ; Открывает сайт
_IELoadWait ($oIE)


_IELinkClickByText ($oIE, "Русский") ; Выбирает русский язык
_IELinkClickByText ($oIE, "Войти") ; Жмёт кнопку Войти

$oUser =_IEGetObjByName($oIE,"username") ; Форма ввода логина
$oPass =_IEGetObjByName($oIE,"passwd") ; Форма ввода пароля
$oSubmit =_IEGetObjByName($oIE,"Login") ; Кнопка вход


_IEFormElementSetValue ($oUser, '132882') ; Вводит логин
_IEFormElementSetValue ($oPass, 'zaq1234') ; Вводит пароль


_IEAction ($oSubmit,"click") ; Жмёт кнопку Вход
_IELoadWait ($oIE) 


_IELinkClickByText ($oIE, "Начать серфинг") ; Жмёт кнопку Начать серфинг


$sClass='uitool'
_IELinkClickByClass($oIE,$sClass)
Func _IELinkClickByClass($_oIE,$_sClassName)
    $_oLinks = _IELinkGetCollection($_oIE)
    For $_oLink In $_oLinks
        If StringInStr($_oLink.classname, $_sClassName) Then
            $_oLink.click
            ExitLoop
        EndIf
    Next
EndFunc

а не работает почему-то, доходит до начать серфинг, и скрипт завершает свою работу
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
DarWiM,
ИМХО, у Вас неудачная функция _IELinkClickByClass(). Класс uitool есть у нескольких ссылок.
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
madmasles
Извиняюсь, не вникал в код

Можно вот так:

Код:
#include <IE.au3>

$oIE = _IECreate ("http://acesse.com/") ; Открывает сайт
_IELoadWait ($oIE)


_IELinkClickByText ($oIE, "Русский") ; Выбирает русский язык
_IELinkClickByText ($oIE, "Войти") ; Жмёт кнопку Войти

$oUser =_IEGetObjByName($oIE,"username") ; Форма ввода логина
$oPass =_IEGetObjByName($oIE,"passwd") ; Форма ввода пароля
$oSubmit =_IEGetObjByName($oIE,"Login") ; Кнопка вход


_IEFormElementSetValue ($oUser, '132882') ; Вводит логин
_IEFormElementSetValue ($oPass, 'zaq1234') ; Вводит пароль


_IEAction ($oSubmit,"click") ; Жмёт кнопку Вход
_IELoadWait ($oIE)


_IELinkClickByText ($oIE, "Начать серфинг") ; Жмёт кнопку Начать серфинг

While 1
	If Not _IELinkClickByClassAndText($oIE,'uitool','Продолжить серфинг') Then
		Sleep (32000)
		_IEAction($oIE,'refresh')
	EndIf
WEnd

Func _IELinkClickByClassAndText($_oIE,$_sClassName,$_sInnerText)
    $_oLinks = _IELinkGetCollection($_oIE)
    For $_oLink In $_oLinks
        If StringInStr($_oLink.classname, $_sClassName) And StringInStr($_oLink.innertext, $_sInnerText) Then
            $_oLink.click
            Return 1
        EndIf
    Next
	Return 0
EndFunc

но это на скорую руку.
 
Автор
S

sasha1304

Новичок
Сообщения
41
Репутация
0
неа не работает. кнопка продолжить серфинг не нажимается
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
sasha1304
я не гарантировал работоспособность, я предложил пример..

После входа там нет такой кнопки. Есть кнопка "Следующая реклама"
 
Автор
S

sasha1304

Новичок
Сообщения
41
Репутация
0
а что ещё можно сделать? сижу вот думаю пока ничего не пришло на ум


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

после входа он должен подождать 32сек потом появится кнопка 'продолжить серфинг' он должен по ней кликнуть
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
sasha1304
клик по идее есть, только страница никак не меняется. видимо скрипты блокируют.. или нужно как-то по-особому кликать
 
Автор
S

sasha1304

Новичок
Сообщения
41
Репутация
0
скорей всего скрипты блокирует, может сделать чтоб мышка по ней кликала?
 
Верх