Hi @ all,
ich versuche gerade für mein Projekt(MyOnlineTelevision,link in Signatur)
Das Winows Mediaplayer Objekt in fullscreen zu setzen.
Das ist das Skript:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$oWMP = ObjCreate("WMPlayer.OCX")
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MyOnlineTelevision", 954, 624, 159, 84)
#Region Menüs
$M1=GUICtrlCreateMenu("Infos")
$M1_1=GUICtrlCreateMenuItem("Über",$M1)
#EndRegion Menüs
$LV = GUICtrlCreateListView("Sender ", 816, 8, 130, 438)
$Button1 = GUICtrlCreateListViewItem("N-TV", $LV)
$Button2 = GUICtrlCreateButton("Stoppen", 236, 544, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Starten", 340, 544, 75, 25, 0)
$Button4 = GUICtrlCreateListViewItem("KI.KA", $LV)
$Button5 = GUICtrlCreateListViewItem("Game TV", $LV)
$Button6 = GUICtrlCreateListViewItem("Bahn TV", $LV)
$Button7 = GUICtrlCreateListViewItem("Tennis TV", $LV)
$Button8 = GUICtrlCreateListViewItem("Deluxe Music", $LV)
$Button9 = GUICtrlCreateListViewItem("StreetClip TV", $LV)
$Button10 = GUICtrlCreateListViewItem("9Live", $LV)
$Button11 = GUICtrlCreateListViewItem("MassiveMag TV", $LV)
$Button12 = GUICtrlCreateListViewItem("Astro TV", $LV)
$Slider1 = GUICtrlCreateSlider(8, 544, 222, 29)
$Label1 = GUICtrlCreateLabel("Lautstärke", 16, 526, 54, 17)
GUICtrlSetData($Slider1,100)
$wmp = GUICtrlCreateObj($oWMP, 8, 8, 980, 530)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]With $oWMP
.URL = ("")
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
;.enabled = True
.uiMode = "none"; none / mini full
.settings.autostart = True
.settings.mute = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
#EndRegion ### END Koda GUI section ###
Global $oMediaPlayControl = $oWMP.Controls
$oWMP.fullscreen
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $M1_1
MsgBox(0,"Über","Eine Idee von: Dominik R."&@CR&"ICQ: 323041083"&@CR&"AutoIt.de: Roggazzz")
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW,$Form1)
Exit
Case $Button11
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit MassiveMag TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit MassiveMag TV Fehlgeschlagen")
Else
$1=FileOpen(@ScriptDir&"\Sender\massivemagtv.txt",0)
$1_1=FIleRead($1)
$oWMP.url = ($1_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button10
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit 9Live...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit 9Live Fehlgeschlagen")
Else
$2=FileOpen(@ScriptDir&"\Sender\9live.txt",0)
$2_1=FIleRead($2)
$oWMP.url = ($2_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $button12
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Astro TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit AstroTV Fehlgeschlagen")
Else
$3=FileOpen(@ScriptDir&"\Sender\astrotv.txt",0)
$3_1=FIleRead($3)
$oWMP.url = ($3_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button9
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit StreetCLip TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit StreetCLip TV Fehlgeschlagen")
Else
$4=FileOpen(@ScriptDir&"\Sender\streetcliptv.txt",0)
$4_1=FIleRead($4)
$oWMP.url = ($4_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button8
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Deluxe Music...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Deluxe Music Fehlgeschlagen")
Else
$5=FileOpen(@ScriptDir&"\Sender\deluxemusic.txt",0)
$5_1=FIleRead($5)
$oWMP.url = ($5_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button7
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Tennis-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Tennis-TV Fehlgeschlagen")
Else
$6=FileOpen(@ScriptDir&"\Sender\tennistv.txt",0)
$6_1=FIleRead($6)
$oWMP.url = ($6_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button6
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Bahn-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Bahn-TV Fehlgeschlagen")
Else
$7=FileOpen(@ScriptDir&"\Sender\bahntv.txt",0)
$7_1=FIleRead($7)
$oWMP.url = ($7_1)
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button5
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Game-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Game-TV Fehlgeschlagen")
Else
$oWMP.url = (@ScriptDir&"\Sender\gametv.asx")
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button4
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit KI.KA...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit KI.KA Fehlgeschlagen")
Else
$oWMP.url = (@ScriptDir&"\Sender\kika.asx")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
Case $Button2
$oMediaPlayControl.stop
Case $Button3
$oMediaPlayControl.play
Case $Button1
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit N-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit N-TV Fehlgeschlagen")
Else
$oWMP.url = (@ScriptDir&"\Sender\ntv.asx")
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
endif
EndSwitch
$oWMP.settings.volume=GUiCtrlRead($Slider1)
WEnd
schon das versucht
[autoit]$oWMP.fullscreen=True
[/autoit]
oder
$oWMP.fullscreen=()
[/autoit]
oder
$oWMP.fullscreen()
[/autoit]
aber nichts geht.
Danke schonmal im Vorraus
Roggazzz