Beiträge von Stevenx
-
-
Weil Google das sowas von unübersichtlich macht und niemand eine gescheite UDF für YouTube geschrieben hat, setzen wir uns mal daran:
DerBrot
Developer30
Und natürlich ich,
StevenXWir posten es dann natürlich hier
-
-
Hey, das Computer says no hast du von mir kopiert xD
Das ist, was erscheinen sollSpoiler anzeigen
[autoit]RegWrite("HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\iMoveTo this file\","","REG_SZ","iMoveTo this file")
[/autoit]
Ist, was er machen soll.Spoiler anzeigen
[autoit]RegWrite("HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\iMoveTo this file\Command","","REG_SZ", @ScriptDir & '\imoveto-run.exe Path %1'
[/autoit] -
Joh warte, hatte das mal.
Spoiler anzeigen
Spoiler anzeigen
$Write1 = RegWrite("HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\iMoveTo this file\","","REG_SZ","iMoveTo this file")
If $Write1 = 0 Then MsgBox(16, "Error", "Computer says no (ERR: 001)")
$Write2 =RegWrite("HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\iMoveTo this file\Command","","REG_SZ", @ScriptDir & '\imoveto-run.exe Path %1') -
Ja, brauch aber auch mehr Einstellungen, wie Zeit steuern, Volume und Co. Siehe #post1
Cheers
-
Ich stells mal richtig. Wenigstens habe ich den Anstand, nicht
#push
zu schreiben, sondern höflich zu fragen. -
Hat keiner eine Lösung?
-
Hey,
also bevor mal die erste Meldung kommt wie:
ZitatWieso gibt es Google?
Also. Ich brauch eine UDF oder ähnliches, mit dem ich die YouTube Videos im Hintergrund zum Laufen bringe. Also eigentlich nur den Sound. Keine Angst, habe nichts illegales vor ^^. Ja, dann sollte ich das Video mit der Google API steuern können. Also dass ich die Volume steuern/auslesen, die Zeit steuern und ich es Play/Pausen kann. Hoffe, ihr könnt mir helfen. Habe schon das hier probiert:
Spoiler anzeigen
[autoit]#include-once
[/autoit] [autoit][/autoit] [autoit]
#include <IE.au3>; #FUNCTION# ===================================================================
[/autoit] [autoit][/autoit] [autoit]
; Name ..........: _IE_YT
; Description ...: YouTube API for IE.au3
; AutoIt Version : V3.3.0.0
; Requirement(s).: IE.au3
; Syntax ........: _IE_YT(ByRef $Socket[, $sCommand = "playVideo"[, $vArg1 = ""[, $vArg2 = ""[, $sPlayerID = "movie_player"]]]])
; Parameter(s): .: $oIE - IE Object
; $sCommand - Optional: (Default = "playVideo") :
; | loadWait / $vArg1 = TimeOut in ms (int), Default = 10000
; | playVideo
; | pauseVideo
; | stopVideo
; | clearVideo
; | getVideoBytesLoaded
; | getvideobytestotal
; | getVideoStartBytes
; | mute
; | unMute
; | isMuted
; | setVolume / $vArg1 = Volume (int) (min=0, max=100)
; | getVolume
; | seekTo / $vArg1 = Secs (int), $vArg2 = allowSeekAhead (boolean), Default = true
; | getPlayerState
; | getCurrentTime
; | getDuration
; | setSize / $vArg1 = height (int), $vArg2 = width (int) (min=50)
; | getVideoUrl
; | getVideoEmbedCode
; | loadVideoById / $vArg1 = id (string), $vArg2 = start (int)
; | cueVideoById / $vArg1 = id (string), $vArg2 = start (int)
; $vArg1 - Optional: (Default = "") :
; $vArg2 - Optional: (Default = "") :
; $sPlayerID - Optional: (Default = "movie_player") :
; Return Value ..: Success - Deppending on the function call
; Failure - Deppending on the function call and sets
; @ERROR - 1 = error while sending command to player or no player found
; | 2 = wrong value or datatype of $vArg1 or $vArg2
; | 3 = wrong or unsupported $sCommand
; | 4 = wrong datatype returned from API
; | 5 = TimeOut from "loadWait"
; Author(s) .....: Thorsten Willert, iLoveAU3 (loadVideoById, cueVideoById), SEuBo (modification for IE.au3)
; Remarks .......: Currently not supported: setSize (Video), addEventListener, all events
; Date ..........: Tue Apr 28 22:20:44 CEST 2009 @889 /Internet Time/
; Link ..........: http://code.google.com/intl/de-DE/api…_reference.html
; Example .......: _IE_YT($Socket,"pauseVideo"), _IE_YT($Socket,"setSize",480,385)
; ==============================================================================
Func _IE_YT($oIE, $sCommand = "playVideo", $vArg1 = "", $vArg2 = "", $sPlayerID = "movie_player")
Local $iRetSwitch StringLower($sCommand)
[/autoit] [autoit][/autoit] [autoit]
Case "loadwait"
;dummy
Case "playvideo"
$sCommand = "playVideo()"
$iRet = 0
Case "pausevideo"
$sCommand = "pauseVideo()"
$iRet = 0
Case "stopvideo"
$sCommand = "stopVideo()"
$iRet = 0
Case "clearvideo"
$sCommand = "clearVideo()"
$iRet = 0
Case "getvideobytesloaded"
$sCommand = "getVideoBytesLoaded()"
$iRet = 1
Case "getvideobytestotal"
$sCommand = "getVideoBytesTotal()"
$iRet = 1
Case "getvideostartbytes"
$sCommand = "getVideoStartBytes()"
$iRet = 1
Case "mute"
$sCommand = "mute()"
$iRet = 0
Case "unmute"
$sCommand = "unMute()"
$iRet = 0
Case "ismuted"
$sCommand = "isMuted()"
$iRet = 1
Case "setvolume"
$vArg1 = Number($vArg1)
If IsInt($vArg1) And $vArg1 >= 0 And $vArg1 <= 100 Then
$sCommand = "setVolume(" & $vArg1 & ")"
Else
SetError(2)
Return -2
EndIf
$iRet = 0
Case "getvolume"
$sCommand = "getVolume()"
$iRet = 1
Case "seekto"
$vArg1 = Number($vArg1)
If $vArg2 = "" Or $vArg2 = Default Then $vArg2 = True
If IsInt($vArg1) And IsBool($vArg2) Then
If $vArg2 Then
$vArg2 = "true"
Else
$vArg2 = "false"
EndIf
$sCommand = "seekTo(" & $vArg1 & "," & $vArg2 & ")"
Else
SetError(2)
Return -2
EndIf
$iRet = 0
Case "getplayerstate"
$sCommand = "getPlayerState()"
$iRet = 1
Case "getcurrenttime"
$sCommand = "getCurrentTime()"
$iRet = 1
Case "getduration"
$sCommand = "getDuration()"
$iRet = 1
Case "setsize"
$vArg1 = Number($vArg1)
$vArg2 = Number($vArg2)
If $vArg2 = 0 Or $vArg2 = Default Then $vArg2 = $vArg1
If IsInt($vArg1) And IsInt($vArg2) And $vArg1 > 50 And $vArg2 > 50 Then
$sCommand = "setSize(" & $vArg1 & "," & $vArg2 & ")"
Else
SetError(2)
Return -2
EndIf
$iRet = 0
Case "getvideourl"
$sCommand = "getVideoUrl()"
$iRet = 2
Case "getvideoembedcode"
$sCommand = "getVideoEmbedCode()"
$iRet = 2
Case "loadVideoById"
$vArg1 = String($vArg1)
$vArg2 = Number($vArg2)
If $vArg2 = Default Or $vArg2 = "" Then $vArg2 = 0
If IsString($vArg1) And IsNumber($vArg2) Then
$sCommand = "loadVideoById('" & $vArg1 & "'," & $vArg2 & ")"
Else
SetError(2)
Return -2
EndIf
Case "cueVideoById"
$vArg1 = String($vArg1)
$vArg2 = Number($vArg2)
If $vArg2 = Default Or $vArg2 = "" Then $vArg2 = 0
If IsString($vArg1) And IsNumber($vArg2) Then
$sCommand = 'cueVideoById("' & $vArg1 & '",' & $vArg2 & ")"
Else
SetError(2)
Return -2
EndIf
Case Else
SetError(3)
Return -2
EndSwitchIf $sCommand <> "loadwait" Then
[/autoit] [autoit][/autoit] [autoit]
Local $vRetVal = $oIE.document.parentwindow.execScript(StringFormat("try{document.getElementById('%s').%s;}catch(e){'_IE_YT_Error'}", $sPlayerID, $sCommand))
If Not @error And $vRetVal <> "_IE_YT_Error" Then
Switch $iRet
Case 0
If $vRetVal = "" Then
Return $vRetVal
Else
SetError(4)
Return ""
EndIf
Case 1
If IsNumber(Number($vRetVal)) Then
Return $vRetVal
Else
SetError(4)
Return -2
EndIf
Case 2
If IsString($vRetVal) Then
Return $vRetVal
Else
SetError(4)
Return ""
EndIf
EndSwitch
Else
SetError(1)
Return -2
EndIf
Else
If $vArg1 = "" Or Not IsInt(Number($vArg1)) Then $vArg1 = 10000
Local $TimeOutTimer = TimerInit()
Local $sState
Do
$sState = _IE_YT("getPlayerState")
If @error Then Return 0
Sleep(500)
If TimerDiff($TimeOutTimer) > $vArg1 Then
SetError(5)
Return 0
EndIf
Until $sState <= 3 Or $sState = "_IE_YT_Error"
Return 1
EndIfEndFunc ;==>_IE_YT
[/autoit]Ich bekomme dann aber immer den Fehler
"Variable must be of type 'Object'"Cheers,
StevenX
-
Hab mal für MyOwnWay ein PHP Script benutzt. Da kannst du zwar nur überbden Browser was uploaden, ist aber sicherer. Ich schicks dir dann heute, Marcel
Cheers
-
Ah, thx Logikfehler
Sry dass ich es nicht als gelöst markiert habe, war nur am iPhone online.
MFG,
StevenX
EDIT:
Kann den Beitrag nicht als gelöst markieren -
-
Hey
Hab mal ein Problem. Ich arbeite an ein Backup Programm und die For Schleiche will nicht richtig :wacko:
[autoit]
Hier der Code#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Debug.au3>
_DebugSetup("CMD Return ***ESC to close***")
HotKeySet("{ESC}", "end")
$pid = Run("cmd.exe", "C:\", @SW_HIDE, 0x9)
#Region ### START Koda GUI section ### Form=D:\Administrator\Documents\StevenX Media\User Backup Starter\Gui.kxf
$GUI1 = GUICreate("User Backup Start ©LimeSoft Solutions", 716, 396, 186, 122)
$MenuItem1 = GUICtrlCreateMenu("File")
$Save_sett_sl = GUICtrlCreateMenuItem("Save Settings", $MenuItem1)
$Load_sett_sl = GUICtrlCreateMenuItem("Load Settings", $MenuItem1)
$About_sl = GUICtrlCreateMenuItem("About", $MenuItem1)
$Label1 = GUICtrlCreateLabel("User Backup Starter", 192, 24, 360, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
$User_Folders_sl = GUICtrlCreateButton("Select", 208, 120, 291, 33)
$Label2 = GUICtrlCreateLabel("1. Select User Folders", 32, 128, 108, 17)
$Label3 = GUICtrlCreateLabel("2. Select Media Types to backup", 32, 187, 161, 17)
$Types_sl = GUICtrlCreateCombo("Select", 208, 184, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"AppData|Music|Downloads|Videos", "Select")
$Add_types_sl = GUICtrlCreateButton("Add", 368, 184, 131, 25)
$ListView2 = GUICtrlCreateListView("User", 512, 120, 186, 110)
$ListView = GUICtrlCreateListView("Type|Backup", 511, 243, 186, 110)
$Label4 = GUICtrlCreateLabel("3. Select the backup path", 32, 256, 127, 17)
$Path_sl = GUICtrlCreateButton("Select", 209, 251, 291, 33)
$Start_backup_sl = GUICtrlCreateButton("Start Backup ", 32, 312, 467, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Types[5], $Folders[4]
$Types[1] = 0
$Folders[1] = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Add_types_sl
$Types[1]=$Types[1] + 1
$Types[$Types[1]] = GUICtrlRead($Types_sl)
GUICtrlCreateListViewItem (GUICtrlRead($Types_sl)&"|Yes", $ListView)
Case $User_Folders_sl
$Folders_sl = FileSelectFolder( "Select Folders", @HomeDrive & '\Users', 1+2+4)
$Folders[1]=$Folders[1] + 1
$Folders[$Folders[1]] = $Folders_sl
GUICtrlCreateListViewItem ($Folders_sl, $ListView2)
Case $Path_sl
$Path = FileSelectFolder( "Select Path", "")
Case $Start_backup_sl
For $i = 2 to $Folders[1] Step 1
_engine( "robocopy " & $Folders[$i] & '\' & 'Music\ ' & $Path & '\UBS\' &$Folders[$i] & '\Music \MIR')
_engine( "robocopy " & $Folders[$i] & '\' & 'Videos\ ' & $Path & '\UBS\' &$Folders[$i] & '\Videos \MIR')
_engine( "robocopy " & $Folders[$i] & '\' & 'Downloads\ ' & $Path & '\UBS\' &$Folders[$i] & '\Downloads \MIR')
_engine( "robocopy " & $Folders[$i] & '\' & 'Documents\ ' & $Path & '\UBS\' &$Folders[$i] & '\Documents \MIR')
Next
EndSwitch
WEnd
Func _engine($Command)
StdinWrite($pid, $Command & @CRLF)
$msg = StdoutRead($pid)
$msg = StringStripWS($msg,3)
$msg = StdoutRead($pid)
$msg = StringStripWS($msg,3)
If $msg <> "" Then
_DebugOut($msg)
EndIf
Sleep(100)
EndFuncFunc end()
[/autoit]
ProcessClose($pid)
Exit
EndFuncHab drüber geschaut und warscheinlich entgeht mir ein peinlicher Fehler .
Thx,
StevenX
-
Hab die Tasse bisschen verbessert, vorne steht jetzt 'Coffee Time AutoIt.de' Besser?
MFG,
StevenX
-
-
Es geht weiter
Jetzt ein kreativeres T-Shirt
[Blockierte Grafik: http://www.abload.de/img/light_vorschauiwu2c.png]Jetzt erhältlich
MFG,
StevenX
-
-
Die Nacht durchprogrammieren mit Kaffee aus der AutoIt Tasse:
[Blockierte Grafik: http://www.abload.de/img/kaffetassedsazc.png]
Jetzt im Shop verfügbar!
MFG,
StevenX
-
Ja, hab ich vor 1 Jahr gemacht und war immer zu faul, ums upzuloaden :D. Habs aber auf meinem PC, ich ändere es heute.
MFG,
StevenXP.S.: Cover von Need for Speed:
http://www.google.at/search?q=Need+for+speed+most+wanted&hl=de&client=safari&tbo=d&source=lnms&tbm=isch&sa=X&ei=XljgUL_UB6Ll4QTs3oGoCQ&ved=0CAgQ_AUoAQ&biw=320&bih=416#i=18 -
Verdammt, ist deins geil :OOOOO Hast dich ein bisschen von Need for Speed inspirieren lassen? :OOO Als Webdesigner könntest du mal deine Brötchen verdienen…
Danke jetzt hat mich der Ehrgeiz gepackt. Ich arbeite heute mal an was.MFG,
StevenX