Objekte parallel laufen lassen.

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.13.2 (beta)
Author: myName

Script Function:
Template AutoIt script.

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

; Script Start - Add your code below here

#include <IE.au3>

Global $oPlayer = _wmpcreate(0, 0, 0, 160, 165)
_wmpvalue($oPlayer, "controls")
$oIE = _IECreateEmbedded()

Global $ready = False, $auto = 0

_wmploadmedia($oPlayer, "http://www.bellyup4blues.com/files/bu4b/bu4b.asx", 1)

;~ MsgBox(0, "", "Verzögert")

While 1
ToolTip(@HOUR & ':' & @MIN & ':' & @SEC & @CRLF & 'Abspielbereit : ' & $ready)
Sleep(250)
WEnd

Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
$oWMP = ObjCreate("WMPlayer.OCX")
If $oWMP = 0 Then Return 0

If $show = 1 Then
GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
EndIf
Return $oWMP
EndFunc ;==>_wmpcreate

Func _wmploadmedia(ByRef $object, $URL, $autostart = 1)
$auto = $autostart
$object.URL = $URL
AdlibEnable('checkStatus', 100)
EndFunc ;==>_wmploadmedia

Func checkStatus()
If $oPlayer.controls.isAvailable("play") = True Then
$ready = True
If $auto = 1 Then $oPlayer.controls.play()
AdlibDisable()
EndIf
EndFunc ;==>checkStatus

Func _wmpvalue($object, $setting, $para = 1)
Select
Case $setting = "play"
If $object.controls.isAvailable("play") Then $object.controls.play()
Case $setting = "stop"
If $object.controls.isAvailable("stop") Then $object.controls.stop()
Case $setting = "pause"
If $object.controls.isAvailable("pause") Then $object.controls.pause()
Case $setting = "invisible"
$object.uiMode = "invisible"
Case $setting = "controls"
$object.uiMode = "mini"
Case $setting = "nocontrols"
$object.uiMode = "none"
Case $setting = "fullscreen"
$object.fullscreen = "true"
Case $setting = "step"
If $object.controls.isAvailable("step") Then $object.controls.Step ($para)
Case $setting = "fastForward"
If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()
Case $setting = "fastReverse"
If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()
Case $setting = "volume"
$object.settings.volume = $para
Case $setting = "rate"
$object.settings.rate = $para
Case $setting = "playcount"
$object.settings.playCount = $para
Case $setting = "setposition"
$object.controls.currentPosition = $para
Case $setting = "getposition"
Return $object.controls.currentPosition
Case $setting = "getpositionstring";Returns HH:MM:SS
Return $object.controls.currentPositionString
Case $setting = "getduration"
Return $object.currentMedia.duration
EndSelect
EndFunc ;==>_wmpvalue

Func _EnableStartUp()
FileCreateShortcut(@ScriptFullPath, @StartupDir & "\" & "Desktop Radio")
EndFunc ;==>_EnableStartUp

Func _DisableStartUp()
FileDelete(@StartupDir & "\" & "Desktop Radio.lnk")
EndFunc ;==>_DisableStartUp