er erkennt den namen Tobi als frau
Beiträge von Jam00
-
-
Ich hab mal was geschrieben um Streams abzuspielen und ob das mit FLV geht kommt warscheinlich auf die Codes an, die du drauf hast, hab es aber auch noch nicht Probiert!
Du musst in Zeile 23 einfach den Link ändernSpoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Stream-Player", 1000, 800, 186, 125)
$Player = ObjCreate("WMPlayer.OCX")
$Obj1_ctrl = GUICtrlCreateObj($Player, 0, 0, 1000, 800)With $Player
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
;~ .enableContextMenu = True
;~ .enabled = True
.uiMode = "full"; none / mini full
.settings.autostart = True
.settings.mute = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith$oMedia = $Player.newMedia('http://wstreaming.zdf.de/encoder/livestream6_h.asx')
[/autoit] [autoit][/autoit] [autoit]
$Player.currentPlaylist.appendItem($oMedia)
$Player.controls.play()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEnd -
Ähm ich glaube Ping geht, bei mir jedenfalls, gib einfach mal Ping ("Dein FTP") ein
-
Nein, ich wollte einfach eine Leiste machen, und da dann auch noch andere Bilder Drüberlegen, die Transparent sind!
-
Gibt es denn da nichts anderes
-
Soweit ich weiß nicht, wenn en Fatal Error ist dann ist das Script schrott und geht aus, ohne noch was auszuführen!
-
Spoiler anzeigen
[autoit]If @error Then
[/autoit] -
Bei mir ist das dann immernoch so, nicht mehr so stark aber immernoch! Auch wenn ich *2 mache
-
Ich mach mal ScreenShot
So sieht es aus, es soll aber nicht Transparent werden! Zur seite, sondern, es soll immer vollton sein! -
Weiß da keiner was?
-
Weil ich das Gleiche auch mit Transparenten Bilder machen möchte
-
Ich habe das Problem, wenn ich das Bild male, und es breiter mach als es eigentlich ist, wird es transparent zur seite:-( Und das soll nicht, weiß jemand wie ich das verhindern kann ohne das ich die Größe des Bildes ändern muss?
Spoiler anzeigen
[autoit]#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("WinTitleMatchMode", 4)
[/autoit] [autoit][/autoit] [autoit]
$task = WinGetHandle("classname=Shell_TrayWnd")
WinSetState ($task,"",@SW_HIDE)$hWnd = GUICreate ("PC-Manager",@DesktopWidth,@DesktopHeight,0,0,0x80000000)
[/autoit] [autoit][/autoit] [autoit]
GUISetState (@SW_SHOW)
_GDIPlus_Startup()
$hGrafic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
$TaskImage = _GDIPlus_ImageLoadFromFile (@ScriptDir & "\TL.png")
_GDIPlus_GraphicsDrawImageRect ($hGrafic,$TaskImage,0,@DesktopHeight - 40,@DesktopWidth,40)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
WinSetState ($task,"",@SW_SHOW)
Exit
EndSwitch
WEnd -
Also erstens sollte das Kein Therad zur Discosion (oder wie das auch immer geschreiben wird^^^) zum Thema Vista sein!
Und Zweitens:
Da L3viathan2142 ja schon efragt ich habe es schon Probiert, aber irgendwie geht das nicht! -
Hab ihr jetzt an der Arbeit auf allen PCs Vista drauf?? Ihr tut mir leid, scheiß vista!
-
geht mit Vista. Windows habe ich nicht getestet:
Ähm, Vista ist Windows, du meinst XP oder? Da geht es auch, ich hab es eingebaut, Siehe Post 1
EDIT:
@primza
Ja, bei Vista auch schon eig. Aber bei XP und tiefer eben nicht -
Hallo, ich hab mal gerad was kurzes geschreiben, womit man die Taskleiste (bei XP, bei anderen hab ich es noch nicht getestet) Transparent machen kann^^ Ist eigentlich ganz einfach man muss nur wissen wie, darum hab ich es mal Gepostet
Spoiler anzeigen
[autoit]Opt("WinTitleMatchMode", 4)
[/autoit]
$taskbar = WinGetHandle("classname=Shell_TrayWnd")
$menue = WinGetHandle("classname=DV2ControlHost")
$hWnd = GUICreate ("Taskleiste Einstellen",200,140)
GUICtrlCreateLabel ("Taskleiste Transparents",5,5,200,20)
$Silder = GUICtrlCreateSlider (10,20, 180,50)
GUICtrlSetLimit($Silder,255)
GUICtrlSetData ($Silder,255)
GUICtrlCreateLabel ("Startmenü Transparents",5,65,200,20)
$Silder2 = GUICtrlCreateSlider (10,80, 180,50)
GUICtrlSetLimit($Silder2,255)
GUICtrlSetData ($Silder2,255)
GUISetState (@SW_SHOW)
$ReadOld = GUICtrlRead ($Silder)
$Read2Old = GUICtrlRead ($Silder2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
$Read = GUICtrlRead ($Silder)
If $Read <> $ReadOld Then
WinSetTrans ($taskbar,"",$Read)
$ReadOld = $Read
EndIf
$Read2 = GUICtrlRead ($Silder2)
If $Read2 <> $Read2Old Then
WinSetTrans ($menue,"",$Read2)
$Read2Old = $Read2
EndIf
WEndEDIT:
Startmenü hinzugefügt (dank Stilgar) -
Für FTP such mal nach FTP.au3 (am besten per Google also "site:https://autoit.de/www.autoit.de FTP.au3")
-
Hallo, das geht doch, wenn man auf X klickt geht es doch aus!
-
Die drei Bilder die Ich angehängt habe musst du dir laden und in @ScriptDir machen
-
Wie währe es denn wenn du das Script mal hoch lädst?
