Что нового

_IECreateEmbedded ( ) перегрузка памяти

tonycstech

Новичок
Сообщения
48
Репутация
0
Каждый раз новая страница добавляет мегабайты памяти.
Я поставил фукцыю что если более 1 гига то уничтожить GUI и тем самым уничтожить и _IECreateEmbedded ( ) обьект.
Код:
If $Memory[1]/1024 > 1048576 Then ;Greater then 1 GB or ram
хотя эта цыфра и не правильная в сравнении с TaskManager
Но к моему сожалению это не уменшает потребление памяти.
В чём собственно проблема ? Почему она постоянно увеличевается ?

$URL любой playlist из YouTube


Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Outfile=YouTube Watcher.Exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.14.5
    Author:         myName

    Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Log = @DesktopDir & "\Log.log"
FileDelete ($Log)
_WriteLog("Program started")
Opt("TrayMenuMode", 1+8)
Opt("TrayOnEventMode", 1) ;to go to function on click
Opt("TrayAutoPause", 0)
Opt("WinTitleMatchMode", 2) ;searching substring of the title for a match

TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_Exit")
$HideMenu = TrayCreateItem("Hide window")
TrayItemSetOnEvent(-1, "_HideShow")


$ButtonNotActivated = @ScriptDir & "\Images\Button Loop Inactive.bmp"
$ButtonActivated = @ScriptDir & "\Images\Button Loop Active.bmp"
$INI = @ScriptDir & "\Settings.ini"
$URL = IniRead($INI, "Settings", "URL", "Not specified")

$PlayListDeactivated = "yt-uix-button yt-uix-button-size-default yt-uix-button-player-controls yt-uix-button-empty yt-uix-button-has-icon toggle-loop yt-uix-button-opacity yt-uix-tooltip yt-uix-tooltip"
$PlayListActivated1 =  "yt-uix-button yt-uix-button-size-default yt-uix-button-player-controls yt-uix-button-empty yt-uix-button-has-icon toggle-loop yt-uix-button-opacity yt-uix-tooltip yt-uix-tooltip yt-uix-button-toggled"
$PlayListActivated2 =  "yt-uix-button yt-uix-button-size-default yt-uix-button-player-controls yt-uix-button-empty yt-uix-button-has-icon toggle-loop yt-uix-button-opacity yt-uix-tooltip yt-uix-button-toggled yt-uix-tooltip"
;There are 2 classes for activated playlist buttons.
;1st class is when button is toggled for the first time
;Class changes to 2nd when video finished and next video loaded.
;Thats why i check that button using two different class names

Global $GUI, $Reload, $Options, $StatusInput, $RAM, $IE
_ClearCache()
_Create() ;Start the page loading process
_CheckForLoopStatus() ;To activate the loop at start
$Timeout = 5000 ;delay before checking for loop status
$DelayStart = TimerInit()

_WriteLog("Entering main loop")
While 1
    If TimerDiff ($DelayStart) > $Timeout Then ;Proceed only if page is NOT in a loading state.
        $Loading = _IELoadWait($IE)
        If $Loading = 1 Then
            _CheckForLoopStatus() ;go ther only if page is not busy but page is hardly ever busy, only elements update
        EndIf
        $DelayStart = TimerInit() ;reset timer
    EndIf
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        _WriteLog("Window was closed. Exiting application")
        GUIDelete ($GUI) ; Embeded $IE cannot be quit, it will quick with closing the GUI to whic it is embeded to.
        Exit
    EndIf
    If $msg = $Reload Then _IENavigate($IE, $URL)
    If $msg = $Options Then _Options()
    $Memory = ProcessGetStats()
    GUICtrlSetData ($RAM,"Using" & @CRLF & $Memory[1]/1024 & "MB")
    If $Memory[1]/1024 > 1048576 Then ;Greater then 1 GB or ram, restart maybe ?
        _WriteLog("Process reached 1GB of RAM usage. Restarting window.")
        
        GUIDelete ($GUI)
        _ClearCache()
        _Create()
    EndIf
Wend


Func _Create()
    _WriteLog("Creating page started")
    $GUI = GUICreate ("YouTuber",1024,680)
    $Reload = GUICtrlCreateButton ("Reload page",0,0,80,40)
    $Options = GUICtrlCreateButton ("Show Options",80,0,120,40)
    $StatusInput = GUICtrlCreateInput ("Status:",200,0,724,40)
    GUICtrlSetFont (-1,18)
    $RAM = GUICtrlCreateLabel ("",924,0,100,40)
    GUISetState(@SW_SHOW,$GUI)
    GUICtrlSetData ($StatusInput,"Status: Loading page")
    $IE = _IECreateEmbedded()
    GUICtrlCreateObj ($IE,0,40,1024,640)
    _IENavigate($IE, $URL)
    _WriteLog("Creating page ended")
EndFunc

Func _CheckForLoopStatus()
    $FoundStatus = 0
    $Collection = _IETagNameGetCollection ($IE, "button") ;get collection of all names
    For $btn in $Collection ;searching collection and storing it in btn
        If String($btn.classname)= $PlayListDeactivated Then
            _WriteLog("Activating playlist loop button")
            $FoundStatus = 1
            _IEAction ($btn,"click")
            _WriteLog("Playlist loop button activated")
            GUICtrlSetData ($StatusInput,"Status: Loop button Activated")
        ElseIf String($btn.classname) = $PlayListActivated1 Then
            $FoundStatus = 1
            GUICtrlSetData ($StatusInput,"Status: 1st Loop is already activated")
        ElseIf String($btn.classname) = $PlayListActivated2 Then
            $FoundStatus = 1
            GUICtrlSetData ($StatusInput,"Status: 2nd Loop is already activated")
        EndIf
    Next
    If $FoundStatus = 0 Then
        GUICtrlSetData ($StatusInput,"Status: Unable to find playlist loop button. Startingn from begining")
        _WriteLog("Unable to find playlist loop button. Restarting process")
        _ClearCache()
        GUIDelete ($GUI)
        _Create()
    EndIf
EndFunc

Func _ClearCache()
    ;You can delete/clear others things by changing $ClearID's value:
    ;History Only = 1
    ;Cookies Only = 2
    ;Temporary Internet Files Only = 8
    ;Form Data Only = 16
    ;Password History Only = 32
    ;Everything = 255
    $ClearID = "255"
    Run("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess " & $ClearID)
EndFunc

Func _Options()
    _WriteLog("Options function started")
    $GUI_Options = GUICreate ("Options",200,100,-1,-1,-1,-1,$GUI)
    GUISetState(@SW_SHOW,$GUI_Options)
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    _WriteLog("Options function ended")
    GUIDelete ($GUI_Options)
EndFunc

Func _WriteLog($Text)
    FileWrite($Log, @CRLF & @HOUR & ":" & @MIN & " " & $Text)
EndFunc   ;==>_WriteLog

Func _HideShow()
    $WinState = WinGetState ($GUI)
    If BitAND ($WinState,$WIN_STATE_VISIBLE) Then
        _WriteLog("Application hidden")
        Winsetstate ($GUI,"",@SW_HIDE)
        TrayItemSetText ($HideMenu,"Show Window")
    Else
        _WriteLog("Application no longer hidden")
        Winsetstate ($GUI,"",@SW_SHOW)
        TrayItemSetText ($HideMenu,"Hide Window")
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc   ;==>_Exit
 

ra4o

Скриптер
Сообщения
1 032
Репутация
193
Код:
;Возможно нужно удалять объекты, созданные в функции _Create()
    $IE = _IECreateEmbedded()
    GUICtrlCreateObj ($IE,0,40,1024,640)
; при перезапуске GUI
 
Автор
T

tonycstech

Новичок
Сообщения
48
Репутация
0
Непомогает.
Накопление памяти при этом не падает и из за этого постоянно идёт безконечная перезагрузка.
Если в место _IECreateEmbedded() использовать _IECreate() то этой проблемы нет, но мне надо именно чтобы интернет был в моём окне а не в своём.
Это скорее всего баг.

Я вообше не понимаю что вы несёте. Как так удалить ? А каким образом он появится тогда ?

Такая же проблема наблюдается на SoundPlay()
Код:
While 1
    $Sound = SoundPlay(@WindowsDir & "\media\tada.wav",1)
    $Sound = ""
WEnd

После каждого проигрывания, ресурс памяти медленно но верно увеличеваетса даже если поставить $Sound = ""
Какая то утечка и там и здесь, только вот в она _IECreateEmbedded() слишком болшая тогда когда в _IECreate() этого не наблюдается. По крайней мере сейчас.
 
Последнее редактирование:

joiner

Модератор
Локальный модератор
Сообщения
3 124
Репутация
521
SoundPlay() - в цикле ставим паузу
насчет основного кода. у меня останавливается на 160мб памяти в среднем. да, первый запуск это 100мб, при перезагрузках окна уже 160. бывает до 200мб съедает, потом снижается объем памяти. Но постоянного роста памяти нет. Запускал на бета версии языка
если запустить сам браузер и просматривать канал через него, то картина похожая.
 
Автор
T

tonycstech

Новичок
Сообщения
48
Репутация
0
SoundPlay() - в цикле ставим паузу ? Это если в цыкле. Я не в цыкле его использую а в другом месте. И пауза есть и даже стоит переключатель 1 а толку нет.
Ну это не важно.
Поставте $URL
Код:
https://youtu.be/HAf597hxgEo

Когда запустится видео, промотайте почти до конца чтобы следующее пошло само собой, и одновременно смотрите за потреблением отображенном в верху с права.
После каждого ролика потребление больше и больше, независимо какая версия OS или iexplorer
Через несколько видео, от перегрузки зависнит.

Думал переключится на firefox, но это не так просто и скорее всего исходя из изследований, практически не возможно без дополнительных средств которые никто не обновляет.
 
Верх