Versteh ich nicht könntest du mein script etwas abändern ich bin noch ziemlich auf neuland was php betrifft
Beiträge von MAXxoloxXAM
-
-
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
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&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&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
ExitEndSwitch
WEndFunc button1()
GUICtrlSetData($obj, "shell.Explorer.2")
EndFunc