Beiträge von oetzn

naja, wenn du Number anwendest, dann "checkt" das Programm das Vorzeichen, also berücksichtigt es bei der Überprüfung!
Ansonsten wertet er es als Bindestrich (oder lieg ich da falsch?!)

und dann einfach noch die Überprüfung mit größer bzw kleiner-gleich und fertig

an das hatte ich nicht gedacht, bzw nicht gewusst *gg*

ich hab das bis jetzt immer so gemacht, hab es aber auch nur 1mal gebraucht xD

1. wenn es sich um einen Ordner handelt der keine Unterordner enthält, in denen du ebenfalls Dateien umbennen möchtest kannst du dir mit _FileListToArray() die Dateien in einen Array schreiben lassen und alle Dateien manuell durchgehen(mit einer For-Next oder Do-Until Schleife) (Überprüfung mit StringInStr oder StringRegExp etc)

Oder 2.
du gibts über FileFindFirstFile() eine Suchmuster an und rufst mit FileFindNextFile, die Dateien auf. Das würde dann ca so aussehen:

FileChangeDir($myFolder)
$hSearch = FileFindFirstFile("aaaa_*")

Do

$current_file = FileFindNextFile($hSearch)
Run(@comspec & " /c " & "ren " & $current_file & " " & $new_filename,$myFolder,@SW_HIDE)

Until @error

Oder du könntest dir mit Batch (dir /b) ALLE dateien zurückgegen lassen, allerdings hast du dann das Problem das Batch keine Umlaute unterstützt und er beim Zugriff auf die Datei eine Fehlermeldung zurückgibt..

PS: Skript nicht getestet, nur gerade so hingeschrieben...

yeah,
das hast du echt gut hingekriegt, sehr großes Lob
Kann man immer wieder mal gebrauchen
hatte auch selbst mal einen Chat-Client aber der lief nie richtig,

irgendwann hab ichs dann aufgegeben xD

Hi leute,

hab mir aus fun einen Musikmanager geschrieben, hat aber keine GUI.

Funktionsweise:

Das Skript holt sich alle Titel(.mp3) aus deinem Ordner 'Eigene Musik' und indiziert sie.
Anschließend drückst du einfach POS1 und gibts den Teil eines Liednamens ein und er spielt ihn ab (mit VLC, muss installiert sein)

Hab dann noch ein paar Features geadded zb Lied öfters abspielen, zufälliges Lied abspielen, mehrere zufällige Lieder abspielen!

Ich hoffe es kann jemand gebrauchen, ist ganz nützlich unterm zocken oder sonst wo

Man kann außerdem einstellen, dass das Programm automatisch mit Windows startet (Tray-Menü).
Auch kann man den zu indizierenden Ordner wählen, aber nicht standardmäßig, d.h. man muss es nach jedem Start wieder machen, außerdem lassen sich die Hotkeys(Pos1 - Inputbux; ALT+Ende - Exit) deaktivieren, ebenfalls über das Traymenü.

Und ich weiß, der Quellcode ist nicht aufgeräumt

Für Bugmeldungen, Verbesserungsvorschläge, konstruktive Kritik etc bin ich jederzeit offen

Kennt jemand eine Möglichkeit OHNE BATCH ALLE Dateien inkl Unterverzeichnisse aufzulisten, hab es derzeit durch Batch gelöst => Bug, Umlaute bringen ne Fehlermeldung beim Abpspielen mit sich!

Also wie gesagt,

hf

EDIT: Hab noch die .exe angehängt!

#include <File.au3>
#include <Array.au3>
#include <String.au3>

Opt("TrayAutoPause",0)
Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
Opt("WinTitleMatchMode",2)

$sVLC = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\VideoLAN\VLC","")
if $sVLC = "" Then
Msgbox(48,"Error","VLC Media Player nicht gefunden!" & @LF & "Bitte installieren sie VLC Media Player und starten sie die Anwendung erneut!")
Exit
EndIf

Global $sFileList,$szDrive, $szDir, $szFName, $szExt,$aFName,$file,$aFiles,$sSourceDir,$sVLC,$sTitle = "Musik-Manager Version 2.0"
Dim $aFName[1]
Dim $aFiles[1]

TraySetToolTip("Hotkeys:" & @LF & "HOME => InpuxBox" & @LF & "ALT + END => Exit")

MsgBox(48,"INFO - WICHTIG!","Hotkeys: " & @LF & "'HOME' (POS1) zum Aufrufen der Inputbox" & @LF & "'ALT' + 'END' (ALT & ENDE) zum Beenden des Programms")

_RefreshMusic(@MyDocumentsDir & "\Eigene Musik")

HotKeySet("{HOME}","_PlaySong")
HotKeySet("!{END}","_Exit")

TrayCreateItem("Quell Ordner setzen")
TrayItemSetOnEvent(-1,"_SetSourceDir")
TrayCreateItem("Disable Hotkeys")
TrayItemSetOnEvent(-1,"_ToggleHotkeys")
$autostart = TrayCreateItem("Autostart")
TrayItemSetOnEvent(-1,"_Autostart")
TrayCreateItem("Help")
TrayItemSetOnEvent(-1,"_Help")
TrayCreateItem("")
TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"_Exit")

$var = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", $sTitle)
If $var = @ScriptFullPath Then
TrayItemSetState($autostart, 65)
ElseIf $var Then
_DeleteAutoRun()
EndIf

While 1
WEnd

Func _PlaySong()
$file = InputBox("Audiotitel eingeben","Titel oder Teil eines Titles eingeben:","","",100,130)
if @error = 1 Then Return -1

;~ if WinGetTitle("VLC media player") AND WinExists(WinGetTitle("VLC media player")) Then ProcessClose(WinGetProcess(WinGetTitle("VLC media player")))

if TCPConnect("127.0.0.1",2150) <> -1 AND StringRight($file,1) <> "+" Then
TCPSend(TCPConnect("127.0.0.1",2150),"clear" & @CRLF)
Else
Global $Socket = _ConnectVLC()
EndIf

Select

;~ Case StringRegExp($file,"([a-z])(?x);\z",0)
;~ $aSongs = StringSplit($file,";",1)

;~ For $iGlob = 0 To $aSongs[0]

;~ For $i = 1 To (UBound($aFName) - 1) Step 1
;~ if StringInStr($aFName[$i],$aSongs[$iGlob],0) <> 0 AND NOT @error Then
;~ TCPSend($Socket,"enqueue " & $aFiles[$i] & @CRLF)
;~ ExitLoop
;~ EndIf
;~ Next
;~ Next

;~ TCPSend($Socket,"play" & @CRLF)

; ### Play same song n-times
Case StringRegExp($file,"(.+)\\[0-9]",0)

$intPlayTimes = 1
While StringIsDigit(StringRight($file,$intPlayTimes)) AND (StringLen($file)+1) > $intPlayTimes
$intPlayTimes += 1
WEnd
$intPlayTimes -= 1

Global $iTimesToPlay = StringRight($file,$intPlayTimes)
$file = StringTrimRight($file,$intPlayTimes + 1)

For $i = 1 To (UBound($aFName) - 1) Step 1
if StringInStr($aFName[$i],$file,0) <> 0 AND NOT @error Then

For $iPlayed = 0 To $iTimesToPlay
TCPSend($Socket,"enqueue " & $aFiles[$i] & @CRLF)
Next
TCPSend($Socket,"play" & @CRLF)

ExitLoop
EndIf
Next

; ### Play random songs n-times
Case StringRegExp($file,"\\[0-9]",0)

$intPlayTimes = 1
While StringIsDigit(StringRight($file,$intPlayTimes)) AND (StringLen($file)+1) > $intPlayTimes
$intPlayTimes += 1
WEnd
$intPlayTimes -= 1

Global $iTimesToPlay = StringRight($file,$intPlayTimes)
$file = StringTrimRight($file,$intPlayTimes + 1)

For $i = 1 To (UBound($aFName) - 1) Step 1
if StringInStr($aFName[$i],$file,0) <> 0 AND NOT @error Then

For $iPlayed = 0 To $iTimesToPlay
TCPSend($Socket,"enqueue " & $aFiles[Random(1,(UBound($aFName) - 1))] & @CRLF)
Next
TCPSend($Socket,"play" & @CRLF)

ExitLoop
EndIf
Next

; ### Play searched song once
Case StringLen($file) > 0 AND NOT StringRegExp($file,"\\[0-9]",0) AND NOT StringRegExp($file,"(.+)\\[0-9]",0)
For $i = 1 To (UBound($aFName) - 1) Step 1
if StringInStr($aFName[$i],$file,0) <> 0 AND NOT @error Then
;~ Run(@ComSpec & " /c " & $sVLC & " """ & $aFiles[$i] & "","",@SW_HIDE)
TCPSend($Socket,"enqueue " & $aFiles[$i] & @CRLF)
TCPSend($Socket,"play" & @CRLF)
EndIf
Next

; ## Play random song once
Case StringLen($file) = 0
TCPSend($Socket,"enqueue " & $aFiles[Random(1,(UBound($aFName) - 1))] & @CRLF)
TCPSend($Socket,"play" & @CRLF)

EndSelect

EndFunc
func _Exit()
Exit
EndFunc

func _SetSourceDir()
TrayItemSetState(@TRAY_ID,68)
$sNewFolder = FileSelectFolder("Quell Ordner festlegen",$sSourceDir)
if not @error Then _RefreshMusic($sNewFolder)
EndFunc

func _ToggleHotkeys()
Switch TrayItemGetState(@TRAY_ID)
Case 65
HotKeySet("{HOME}")
HotKeySet("!{END}")

Case Else
HotKeySet("{HOME}","_PlaySong")
HotKeySet("!{END}","_Exit")
EndSwitch
EndFunc

Func _Autostart() ; funzt nur mit BETA version

If TrayItemGetState($autostart) = 65 Then
$var = RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Run",$sTitle,"REG_SZ",@ScriptFullPath)
Else
_DeleteAutoRun()
EndIf

EndFunc ;==>_Autostart

Func _DeleteAutoRun()
RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Run",$sTitle)
EndFunc ;==>_DeleteAutoRun

func _Help()
TrayItemSetState(@TRAY_ID,68)
MsgBox(48,"Hilfe","Parameters:" & @LF & "Leere Inputbox: Zufälliges Lied" & @LF & "Liedname\\3: 'Liedname' wird 3mal in Folge abgespielt" & @LF & "\\3: 3 zufällige Lieder werden nacheinander abgespielt" & @LF & "Coming soon:" & @LF & "'Liedname'+: 'Liedname' wird zur derzeitigen Playlist hinzugefügt!" & @LF & "'Liedname1;Liedname2;Liedname3;...;LiednameN': 'Liedname1' bis 'LiednameN' werden abgespielt!")
EndFunc

func _ConnectVLC()
ShellExecute($sVLC,"--rc-host=""127.0.0.1:2150"" --extraintf ""rc"" --rc-quiet")
WinWaitActive("VLC media player")
TCPStartup()
$Socket = TCPConnect("127.0.0.1",2150)
If $Socket = -1 Then
MsgBox(0,"Error","Fehler beim Verbinden mit VideoLan Client über das TCP-Protokoll!")
Return -1
Else
Return $Socket
EndIf
EndFunc

func _RefreshMusic($sSourceDir)

$sVLC = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\VideoLAN\VLC","")
$sRandomFileName = _TempFile("","",".txt",4)
RunWait(@ComSpec & " /c " & "dir /B /O:E /S /A:-S-D-H > " & $sRandomFileName,$sSourceDir,@SW_HIDE)
_FileReadToArray($sRandomFileName,$sFileList)

$perc = 100 / $sFileList[0]

ProgressOn("Processing...","Getting filenames")
Local $cPerc
For $i = 1 To $sFileList[0] Step 1
$cPerc = $cPerc + $perc
ProgressSet($cPerc,$sFileList[$i],"Getting filenames [" & Round($cPerc,1) & " %]")
$sPath = _PathSplit($sFileList[$i],$szDrive, $szDir, $szFName, $szExt)
;~ MsgBox(0,"Test",$szExt)
if StringInStr($szExt,".mp3") <> 0 Then
_ArrayAdd($aFName,StringLower($sPath[3]))
_ArrayAdd($aFiles,$sPath[0])
EndIf
Next

FileDelete($sRandomFileName)
ProgressOff()

EndFunc

PS: Die Autostartfunktion funktioniert nur, wenn man das Skirpt mit der BETA-Version von AutoIT kompeiliert!

Stimmt da hast du recht, aber ich denke ich dann bei FF bleiben, muss sich derjenige der das Programm nutzen will halt FF installiern

Ich hab mir mal beide Addons installiert, aber da ich mich JS so gut wie nicht auskenne, find ich keine Befehle..
könntest du dir die Seite nochmal ansehen? - Wäre echt nett, ich versuch derzeit ob ich die notwendigen Befehle mit den gegebenen realisieren kann

Danke,

ok, klingt interessant

werd ich mir mal ansehen wenn ich wieder auf meinem Home-PC bin xD (Mittag)

Noch ne Frage, ich bin zwar selbst ein FF-Fan aber um das ganze Programm portable zu machen, muss ich ja entweder IE verwenden oder der andere Benutzer muss FF installiert haben, sehe ich das richtig?

um zur Frage zu kommen, gibt es eine IE Funktion die man ca mit der _FFCmd gleichstellen kann?

Wenn nicht dann mach ich das Programm halt nur für mich

Danke nochmal, hast mir sehr geholfen

Danke, das bringt mir schon einiges..

Ich brauch eh nur folgendes:
Play/Pause
Next/Previous
Shuffle ON/OFF
und mit der funktion ein bestimmtes element aus der liste abzuspielen, lässt sich der rest realisieren..

Danke fürs suchen,

aber wie kummst du zu dem Code? würde mich interessieren..

sie funktioniert,
auf YouTube, wie komm ich den auf die PlayerID von mixpod.com - steht die im Quellcode?

Danke, genau sowas hab ich gesucht
Thx =)

ierd

sry für Doppelpost, aber ich hab was gefunden

#include <IE.au3>
#include <WinAPI.au3>
Opt("WinTitleMatchMode",2)

$oIE = _IECreate("http://www.mixpod.com/playlist/30264262",0,1,0,0)
$hWndIE = _IEPropertyGet($oIE,"hwnd")
$sTitleIE = _WinAPI_GetWindowText($hWndIE)
_IELoadWait($oIE)
ControlClick($sTitleIE,"","[CLASS:MacromediaFlashPlayerActiveX; INSTANCE:1]","left",1,50,100)
;~ MsgBox(0,"Test",ControlGetHandle($sTitleIE,"","[CLASS:MacromediaFlashPlayerActiveX; INSTANCE:1]"))
;~ MsgBox(0,"Test",ControlGetText($sTitleIE,"","[CLASS:MacromediaFlashPlayerActiveX; INSTANCE:1]"))

So, vom Code her hat sich nix geändert, außer den beiden auskommentierten Zeilen, ABER die sind wichtig xD

hab herausgefunden, dass ich das Control mit den Einstellungen oben sehr wohl ansprechen KÖNNTE, bzw ich es indentifizieren kann (Handle wird zurückgegeben) auch ControlClick gibt mir 1 zurück, was laut Hilfe Erfolg bedeutet,
nur das Problem ist: Es tut sich nichts >.>
Eigentlich sollte er auf den Play/Pause "Button" klicken, macht er aber nicht (Kor: 50/100 im Control)

Hat noch wer ne Idee? - Ich probier später oder vl morgn noch bisschen rum, und wenn sich nix mehr tut, dann geb ichs auf^^

erst mal danke für die vielen Anworten
ich hab das jet probiert mit Controlclick, aber er klickt einfach nicht
Hier ist mal mein Code:

#include <IE.au3>
#include <WinAPI.au3>
Opt("WinTitleMatchMode",2)

$oIE = _IECreate("http://www.mixpod.com/playlist/30264262",0,1,0,0)
$hWndIE = _IEPropertyGet($oIE,"hwnd")
$sTitleIE = _WinAPI_GetWindowText($hWndIE)
;~ MsgBox(0,"Test",$sTitleIE)
_IELoadWait($oIE)
;~ WinWaitActive("Windows Internet Explorer")
;~ MsgBox(0,"Test","Explorer aktiv!")
ControlClick($sTitleIE,"","[CLASSNN:MacromediaFlashPlayerActiveX1]","left",1,535, 291)

Sollte eigentlich funktionieren >.>
hab auch schon statt CLASSNN CLASS probiert, mit oder ohne Instanzangabe => Kein Erfolg -.-

gibts zu ControlClick ne funktionierende Alternative?

Danke schon mal

EDIT: hatte ne variable nicht ganz kopiert

das hab ich mir auch schon gedacht..
nur wenn ich das ganze mit _IECreate mache, verstecke ich den Internetexplorer

d.h. ich kann ihn nicht direkt ansprechen? >.>
dann wirds jet umständlich xD
wenns gar nicht anders geht werd ichs mal so probiern:

$width = @desktopwidth
$height = @desktopheight
ControlSend(mausklick)

und vorher noch das ganze umrechnen, also im eigene browser die Koordinaten des Playbuttons herausfinden, verhältnis zu @desktopheight und width berechnen usw, aber ich denk das wird nichts, sollte ja protable sein und dann pfuscht mir das Seitenverhältnis drein (16:9,16:10,FullHD etc)
=(

Hab jet mal deinen vorigen Thread zu dem Thema gelesen und falls du das Problem mit dem "gleichzeitig" machen noch immer hast:

Versuchs doch mal mit AdLibEnable

Zitat

AdlibEnable ( "function" [, time] )
Alle 250 ms (oder Zeit ms) wird die spezifizierte "Funktion" aufgerufen - normalerweise, um auf unerwartete Fehler zu prüfen. Z.B. könnte adlib in einem Script benutzt werden, welches ein unvorhergesehenes Fehler-Fenster öffnet.
Die adlib Funktion sollte einfach gehalten werden, da sie oft ausgeführt wird und während dieser Zeit das Script pausiert.
Außerdem sollte vorsichtig mit dem time-Parameter umgegangen werden um unnötige CPU-Last zu vermeiden.

Ich hatte mal ein Script das alle 50ms prüfte ob ein Fenster aktiv ist UND eine Taste grdrückt wird UND eine andere Bedingung True ist, und die CPU last stieg nie über 1% (E8400 @ 3.4 Ghz)

hab nochmal editiert und bsp hinzugefügt..

is doch nicht so schwer...

du dividierst einfach die bereits kopierten KB,MB was auch immer durch die bereits verbrauchte Zeit

vl erinnert dich das an was: s = v * t xD
schon mal gehört oder? (PH-Unterricht in der Schule unso )

Bsp:

$speed = @Inetgetbytesread / TimerDiff($timer1)

in $speed steht nacher die geschwindigkeit drinnen
@InetGetBytesRead is ein Makro in dem die bereits gedownloadeten KB stehen (beim einem aktivem Inetget-Download)
und den $Timer1 startest du einfach sobald du den Download startest..

Guten Abend

Mit der SuFu hab ich nix gefundn und auch so im Internet nicht =( (Google etc)
Nun dacht ich mir, frag ich euch mal xD

Also, ist es möglich mit der IE.au3 oder FF.au3 ist dann egal, eine .swf zu steuern?
Ist jetzt nicht für einen Bot falls ihr das denkt xD, nein es ist für eine Playliststeuerung (mixpod.com)
Ist das möglich? - Im Prinzip ist egal wie umständlich ich das machen muss, hauptsache es geht^^

Mfg ötzn

Edit: Hab mal auf gelöst gestellt