Beiträge von MAXxoloxXAM

  • GUI objecte aktualisieren per button

    Hallo ich bin neu hier im Forum ich hab mir gedacht hier bekomm ich vill. schneller hilfe zum thema AutoIT als auf der üblichen seite auf der ich bin :P
    und zwar..
    ich hab vor eine GUI zu schreiben in der ich youtube viedeos einbette mit der youtube url die man in eine inputbox eingiebt und per button suchen und wiedergeben kann.
    hier ist mein script mit folgendem problem wenn ich den button drücke wird zwar eine komplett richtige html. datei erstellt aber wir nicht angezeig ich denke es hat was mit der aktualisierung der GUI zu tun.....

    Spoiler anzeigen

    #Region ## include ###

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <array.au3>

    #EndRegion
    #Region ### var ###

    $html_text='<iframe width="420" height="315" src="https://www.youtube-nocookie.com/embed/ESlXTn70rRY?controls=0&amp;showinfo=0" frameborder="0" allowfullscreen></iframe>'
    $file = @ScriptDir &"\youtube.html"
    $obj = ObjCreate("shell.Explorer.2")
    $Form1 = GUICreate("Form1", 697, 519, 282, 132)
    $input1 = GUICtrlCreateInput("",1,5,690,25)
    $Button1 = GUICtrlCreateButton("SUCHEN",1,35,200,25)
    GUICtrlCreateObj($obj,1,70,700,500)
    $obj.navigate($file)
    GUISetState(@SW_SHOW)

    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    case $Button1
    button1()
    $zs1 = GUICtrlRead($input1)
    $zs2 = '<!DOCTYPE html>'&@CRLF&'<html>'&@CRLF&'<head>'&@CRLF&'</head>'&@CRLF&'<body>'&@CRLF&'<iframe width="560" height="315" src="'&$zs1&'?controls=0&amp;showinfo=0" frameborder="0" allowfullscreen></iframe>'&@CRLF&'</body>'&@CRLF&'</html>'&@CRLF
    $file_open = FileOpen($file,2)
    FileWrite($file_open,$zs2)
    FileClose($file_open)
    $file = @ScriptDir &"\youtube.html"
    $obj = ObjCreate("shell.Explorer.2")
    $Form1 = GUICreate("Form1", 697, 519, 282, 132)
    $input1 = GUICtrlCreateInput("",1,5,690,25)
    $Button1 = GUICtrlCreateButton("SUCHEN",1,35,200,25)
    GUICtrlCreateObj($obj,1,70,700,500)
    $obj.navigate($file)

    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd

    Func button1()
    GUICtrlSetData($obj, "shell.Explorer.2")
    EndFunc