Beiträge von Stevenx

Stevenx

Bitte

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,
StevenX

Wir posten es dann natürlich hier

Stevenx

Ok, schau dir mal das an:
Kontexmenü_creator

Das schaut mal gut aus

Cheers

Stevenx

Hey, das Computer says no hast du von mir kopiert xD
Das ist, was erscheinen soll

Spoiler 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]

Stevenx

Joh warte, hatte das mal.

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')

Stevenx

Ja, brauch aber auch mehr Einstellungen, wie Zeit steuern, Volume und Co. Siehe #post1

Cheers

Stevenx

Ich stells mal richtig. Wenigstens habe ich den Anstand, nicht
#push
zu schreiben, sondern höflich zu fragen.

Stevenx

Hat keiner eine Lösung?

Stevenx

Hey,

also bevor mal die erste Meldung kommt wie:

Zitat

Wieso 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
#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit]

; #FUNCTION# ===================================================================
; 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 $iRet

[/autoit] [autoit][/autoit] [autoit]

Switch StringLower($sCommand)
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
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

If $sCommand <> "loadwait" Then
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
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_IE_YT

[/autoit]

Ich bekomme dann aber immer den Fehler
"Variable must be of type 'Object'"

Cheers,

StevenX

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

Stevenx

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

Stevenx

Noch ein T-Shirt

[Blockierte Grafik: http://www.abload.de/img/ts-fireq4sfi.png]

MFG,

StevenX

Stevenx

Hey

Hab mal ein Problem. Ich arbeite an ein Backup Programm und die For Schleiche will nicht richtig :wacko:
Hier der Code

[autoit]

#include <ButtonConstants.au3>
#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)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func end()
ProcessClose($pid)
Exit
EndFunc

[/autoit]

Hab drüber geschaut und warscheinlich entgeht mir ein peinlicher Fehler .

Thx,

StevenX

Stevenx

Hab die Tasse bisschen verbessert, vorne steht jetzt 'Coffee Time AutoIt.de' Besser?

MFG,

StevenX

Stevenx

Ein weiteres T-Shirt.
[Blockierte Grafik: http://www.abload.de/img/mosaic7mx8j.png]

MFG,

StevenX

Stevenx

Es geht weiter
Jetzt ein kreativeres T-Shirt
[Blockierte Grafik: http://www.abload.de/img/light_vorschauiwu2c.png]

Jetzt erhältlich

MFG,

StevenX

Stevenx

Nathax: Tasse geht nur in Weiß

MFG,

StevenX

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

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,
StevenX

P.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

Stevenx

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

Beiträge von Stevenx

Einfache Frage

YouTube UDF mit API ?

Einfache Frage

Einfache Frage

Einfache Frage

YouTube UDF mit API ?

YouTube UDF mit API ?

YouTube UDF mit API ?

YouTube UDF mit API ?

SMP - Simple Maleware Scanner [Im Aufbau]

For Schleife wird nicht gestartet

Das AutoIt T-Shirt

For Schleife wird nicht gestartet

Das AutoIt T-Shirt

Das AutoIt T-Shirt

Das AutoIt T-Shirt

Das AutoIt T-Shirt

Das AutoIt T-Shirt

Das AutoIt T-Shirt

Das AutoIt T-Shirt