SHoCK13666
Новичок
- Сообщения
- 108
- Репутация
- 0
Мне дали такой скрипт клика на рекламу ТАК.РУ
Но после открытия сайта, 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', 'OK')
_IEQuit($oIE)
Func _ErrorIE()
ConsoleWrite('Object error! Line: ' & $oIEErrorHandler.scriptline & @LF)
EndFunc ;==>_ErrorIE
Но после открытия сайта, ie разворачивается на весь экран. Как это убрать?