[Сеть, интернет] клик по рекламе ТАК на сайте

[SHoCK13666]

помогите сделать скрипт, который с сайта перейдёт на рекламу ТАК. вот сайт http://u.to/u6rZAg реклама в блоке слева. Ув. модераторы, не пишите, что таких тем на форуме много. Я большинство просмотрел, но полезной для себя информации не нашёл. :IL_AutoIt_1:

 

[inververs]

Это обычный клик по ссылке. Ничего сложного не должно быть. Только не делайте это часто, иначе tak.ru будет переходить на сайт с уведомлением что клик не засчитан.

 

[SHoCK13666]

там ссылки постоянно разные,поэтому просто перейти по ссылке не получится

 

[madmasles]

SHoCK13666,
Попробуйте примерно так, вроде работает (у меня).

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

Global $aLink[1]

RunWait(@SystemDir & '\RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351')
_IEErrorHandlerRegister('_ErrorIE')
$oIE = _IECreate('http://dengi-v-inete.net/')
$oIE.TheaterMode = 1
$oLinks = _IELinkGetCollection($oIE)
If @error Then Exit @ScriptLineNumber
ReDim $aLink[@extended + 1][3]
For $oLink In $oLinks
	If $oLink.classname == 'takru' Then
		$aLink[0][0] += 1
		$aLink[$aLink[0][0]][0] = $oLink
		$aLink[$aLink[0][0]][1] = $oLink.innertext
		$aLink[$aLink[0][0]][2] = $oLink.href
	EndIf
Next
ReDim $aLink[$aLink[0][0] + 1][3]
;_ArrayDisplay($aLink)
If $aLink[0][0] < 3 Then Exit @ScriptLineNumber
$iRand = Random(2, $aLink[0][0], 1)
ConsoleWrite($aLink[$iRand][1] & @LF)
Sleep(Random(2000, 3000, 1))
$aLink[$iRand][0] .fireEvent('onmouseover')
Sleep(Random(500, 1000, 1))
$aLink[$iRand][0] .fireEvent('onmousedown')
$aLink[$iRand][0] .fireEvent('onmouseup')
$aLink[$iRand][0] .Click()
_IELoadWait($oIE)
$s_Text = _IEBodyReadText($oIE)
If @error Then Exit @ScriptLineNumber
If StringInStr($s_Text, 'заблокирован') Then
	Sleep(Random(2000, 3000, 1))
	_IELinkClickByText($oIE, 'Кликните Здесь')
	If @error Then Exit @ScriptLineNumber
EndIf
MsgBox(64, 'Info', 'OK')
_IEQuit($oIE)
Func _ErrorIE()
	ConsoleWrite('Object error! Line: ' & $oIEErrorHandler.scriptline & @LF)
EndFunc   ;==>_ErrorIE

 

[SHoCK13666]

как сделать IE невидемым и как убрать чистку куки из кода?

Всем привет. мне прислали какой-то код для клика по рекламе на сайте, а я в кодах неочень разбираюсь .

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

Global $aLink[1]

RunWait(@SystemDir & '\RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351')
_IEErrorHandlerRegister('_ErrorIE')
$oIE = _IECreate('http://dengi-v-inete.net')
$oIE.TheaterMode = 1
$oLinks = _IELinkGetCollection($oIE)
If @error Then Exit @ScriptLineNumber
ReDim $aLink[@extended + 1][3]
For $oLink In $oLinks
    If $oLink.classname == 'takru' Then
        $aLink[0][0] += 1
        $aLink[$aLink[0][0]][0] = $oLink
        $aLink[$aLink[0][0]][1] = $oLink.innertext
        $aLink[$aLink[0][0]][2] = $oLink.href
    EndIf
Next
ReDim $aLink[$aLink[0][0] + 1][3]
;_ArrayDisplay($aLink)
If $aLink[0][0] < 3 Then Exit @ScriptLineNumber
$iRand = Random(2, $aLink[0][0], 1)
ConsoleWrite($aLink[$iRand][1] & @LF)
Sleep(Random(2000, 3000, 1))
$aLink[$iRand][0] .fireEvent('onmouseover')
Sleep(Random(500, 1000, 1))
$aLink[$iRand][0] .fireEvent('onmousedown')
$aLink[$iRand][0] .fireEvent('onmouseup')
$aLink[$iRand][0] .Click()
_IELoadWait($oIE)
$s_Text = _IEBodyReadText($oIE)
If @error Then Exit @ScriptLineNumber
If StringInStr($s_Text, 'заблокирован') Then
    Sleep(Random(2000, 3000, 1))
    _IELinkClickByText($oIE, 'Кликните Здесь')
    If @error Then Exit @ScriptLineNumber
EndIf
MsgBox(64, 'Info', '7353')
_IEQuit($oIE)
Func _ErrorIE()
    ConsoleWrite('Object error! Line: ' & $oIEErrorHandler.scriptline & @LF)
 EndFunc   ;==>_ErrorIE

Скрипт чистит историю и куки в IE, открывает IE, переходит на сайт, кликает по рекламе TAK, закрывает IE.
Вопрос 1: Как убрать очистку куки и истории
Вопрос 2: видел я скрипт недавно (тоже с кликами по рекламе). Там скрипт открывал IE, а потом делает IE "невидемым". в IE скрипт кликает по рекламе, но невидно, что он делает. В верхнем левом углу надпись "процесс выполнение +1" потом "процесс выполнение ++2". Как так сделать?

 

[---Zak---]

Re: как сделать IE невидемым и как убрать чистку куки из кода?

Вопрос 1: Как убрать очистку куки и истории

Удалить строчку:

RunWait(@SystemDir & '\RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351')

Вопрос 2: ...делает IE "невидемым"...

$oIE = _IECreate('http://dengi-v-inete.net', 0, 0)

В верхнем левом углу надпись "процесс выполнение +1"

ToolTip

 

[madmasles]

SHoCK13666,
С такой постановкой вопросов, это тема для Стола заказов.
Оформите тему в соответствии с Правилами обязательного оформления тем. и я ее туда перенесу.