Убрать из скрипта разворачивание на весь экран 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