Ich hab das immer so gemacht:
Adlibfunktion die folgendes macht:
[autoit]func _CheckRequest()
[/autoit][autoit][/autoit][autoit]$Temp = TCPAccept()
If $Temp <> -1 Then _ArrayAdd($aUsers,$Temp)Endfunc
Natürlich kannst du das dann auch in eine While einbauen, aber mit gefallen Adlib-func mehr, da hat man mehr Übersicht meiner Meinung nach. .
geht das auch mit AutoIt ?
kann ich nur bestätigen, dass der Link down ist. .
Lies die Zeilen der ausgewählten Textdatei in einen Array, wandle ihn mit
[autoit]_ArrayToString
[/autoit]in einen String und füge als Trennungszeichen "|" ein, dann nutze
[autoit]GuiCtrlSetData()
[/autoit]müsste eigentlich funktionieren, da GuiCtrlSetData, alles in der Combobox überschreibt, ansonsten verwende vorher
[autoit]GuiCtrlSetData($Combobox2,"")
[/autoit]Viel Spaß 
Das mit dem Speicherpfad lässt sich leicht lösen..
Das mit dem immer das akutelle Lied wird ein bisschen problematisch, da video2mp3.de ziemlich langsam ist, aber die einzige Seite ist, die am kompatibelsten ist. (Für die Funktionen, die das Programm benötigt, zB die Prozentanzeige im Tray bei der Onlinekonvertierung, auf jeder anderen Seite wird die per JS generiert -.-)
Aber es liese sich trotzdem irgendwie machen, denke ich.
Ich denke dein Programm soll im Hintergrund laufen oder? - und dann willst du, wenn ein Lied mit deinem Standardprogramm geöffnet wird (zB VLC, WMP etc), dass DEIN Programm erkennt welches Lied abgespielt wird, richtig?
Probiers mit WinGetTitle oder wenn du den VLC benutzt, kannst du in den Einstellungen einstellen, dass du via TCP mit ihm kommunizieren kannst, ich denke das hilft dir weiter..
So Leute, hab mir gedacht, dass es ganz praktisch wäre die Lieder die so auf Technobase.fm etc gespielt werden downloaden zu können..
Auf die Idee wie man das realisieren könnte hat mich L3viathan2142 mit seinem Youtube downloadskript gebracht 
Funktionsweise:
Skript liest über den Quellcode das zuletzt gespielte Lied aus (Zeile 193 im Quellcode - ich weiß ist fehleranfällig, vielleicht bau ichs mal um ^^)
So, dann wird das ganze auf Youtube eingegeben und mittels der Skriptzeile von L3viathan2142 die eindeutige Kennung herausgefiltert (https://autoit.de/www.youtube.com/watch?v=EindeutigeKennung)
Diese Kennung wird dann auf https://autoit.de/www.video2mp3.de eingeben und downgeloadet
Skript ist gerade erst fertig geworden und somit seeeehr fehlanfällig *gg*
Die häufigste Fehlerquelle für falsche Lieder liegt aber darin, dass auf Youtube einfach der erste Treffer genommen wird..
So hier das Skript..
[spoiler]
[autoit]
#include
#include
HotKeySet("!+^d","_GetVideo")
[/autoit][autoit][/autoit][autoit]Global $aSource
[/autoit][autoit][/autoit][autoit]While 1
Sleep(100)
WEnd
Func _GetVideo()
TrayTip("","Vorbereitung...",1)
$oIE = _IECreate("http://www.video2mp3.de",0,0,0,0)
$aSource = StringSplit(_INetGetSource("http://www.technobase.fm/tracklist.php"),@LF,3)
$sName = StringStripWS(StringTrimRight($aSource[192],6),3) & ".mp3"; Folgende Zeile stammt von L3viathan2142 (http://www.autoit.de) (Leicht verändert)
$array=StringRegExp(_INetGetSource("http://www.youtube.com/results?search_query=" & StringReplace($sName," ","+") & "&page=&utm_source=opensearch"),"/watch\?v=([a-zA-Z0-9]+)" & '"',1)
_IENavigate($oIE,"http://www.video2mp3.de/index.php?step=2&url=http://www.youtube.com/watch?v=" & $array[0] & "&feature=youtube_gdata")
$oAusgabe = _IEGetObjById($oIE,"ausgabe")
Do
$perc = _IEPropertyGet($oAusgabe,"innerText")
TrayTip($sName,"Onlinekonvertierung: " & $perc,1)
Until $perc = "100%"
_IELoadWait($oIE)
$oSubmit = _IEGetObjByName($oIE,"submit")
_IEAction($oSubmit,"click")
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
If _IEPropertyGet($oLink,"innerText") = "Hier downloaden" Then _Download($sName,$oLink.href,1)
Next
EndFunc
[/autoit][autoit][/autoit][autoit]func _Download($sFilename, $sUrl, $iFlag)
[/autoit][autoit][/autoit][autoit]If FileExists($sFilename) Then
If FileGetSize($sFilename) = InetGetSize($sUrl) Then Return
EndIf
$hDownload = InetGet($sUrl, $sFilename, 1, 1)
$tTimer1 = TimerInit()
If $iFlag = 0 Then ProgressOn("Herunterladen", $sFilename, Default, Default, Default, 18)
$sKB = Round(InetGetSize($sUrl) / 1000,3)
Do
Sleep(100)
$sSpeed = Round(InetGetInfo($hDownload, 0) / TimerDiff($tTimer1), 2)
$sSize = Round(InetGetInfo($hDownload, 0) / 1000,3)
If $iFlag = 0 Then
ProgressSet($sSize / $sKB * 100, Round($sSize / 1000,3) & " MB / " & Round($sKB / 1000,3) & " MB" & @LF & $sSpeed & " KB/S" & @LF & "Restdauer: " & (Round(($sKB - $sSize) / $sSpeed,1) & " Sek"))
Else
TrayTip($sFilename,Round($sSize / 1000,3) & " MB / " & Round($sKB / 1000,3) & " MB" & @LF & $sSpeed & " KB/S" & @LF & "Restdauer: " & (Round(($sKB - $sSize) / $sSpeed,1) & " Sek"),1000)
Sleep(100)
EndIf
Until InetGetInfo($hDownload, 2) = True
If $iFlag = 0 Then ProgressOff()
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit][autoit][/autoit][autoit][/autoit][/spoiler ]
Für Verbesserungsvorschläge und Kritik bin ich gerne offen
wenn du das mit @error lösen willst, musst du die Abfrage DIREKT nach dem TCPRecv einbauen, sonst wird der Inhalt des Makro von der Funktion TrayTip überschrieben..
oder du speicherst es und fragst es erst später ab, so zb:
Do
$recv = TCPRecv($socket,8192)
$err = @error
If $recv <> "" Then TrayTip("TCPRecv",$recv)
Until $err = -1
wenn es so ist wie Cartan12 sagt dann nimm
[autoit]
StringReplace()
geht eher schlecht, da der Computer ja zuerst wissen muss welche Bilder exisitieren..
D.h. du musst die Dateien in einen Array oder sonst was einlesen..
Ich hab das mal so gemacht:
DirGetSize die gesamte benötigte Größe berechnen.
Dann nimmst du von jedem Ding das du kopierst auch den verwendeten Festplattenspeicher.
Dann dividierst du den Speicher den das Ding braucht durch den gesamten Speicher und rechnest * 100 = Fortschrittsprozent..
BSP:
Gesamtspeicher = 10 MB
1 Item = 1 MB
1 MB / 10 MB = 1/10 => 1 / 10 * 100 = 100 / 10 = 10 %
; Kopierer
[/autoit] [autoit][/autoit] [autoit]$PathWhereToCopy = "..."
$sSize = DirGetSize($PathToCopy)
$aFiles = _FileListRecursiv($PathToCopy)
[/autoit] [autoit][/autoit] [autoit]ProgressOn("Kopierer..")
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($aFiles) -1
FileCopy($aFiles[$i],$PathWhereToCopy & $aFiles[$i])
$sTempSize = FileGetSize($aFiles[$i])
$perc += $sTempSize / $sSize * 100
ProgressSet($perc,$perc & " % fertig!")
Next
ProgressOff()
[/autoit]Ich hoff das stimmt so, wenn Fehler drin sind einfach melden, ist einfoch so quick'n' dirty geschribn. .
vl will er auch zu einer Speicher adresse, die ein Pointer ist einen Wert hinzurechnen (Offset) sodass er auf eine andere Adresse kommt : D
*schubs* .. .
ok, wusste nicht das es in die Richtung was gibt, aber wollte es eben selber machen..
war aber eigentlich auch nicht meine Frage, ob es Alternativen gibt sondern wo mein Fehler liegt, aber danke trotzdem
Hi Leute, hab mich grad an ID3-Tags rangemacht, aber irgendwie funzt das nich so wie ich es wollte:
Hier mein derzeitiger Stand:
$sFile = FileOpenDialog("Bitte MP3-Datei auswählen","","MP3-Dateien (*.mp3)")
[/autoit][autoit][/autoit][autoit]$hFile = FileOpen($sFile,256)
$sFileContent = FileRead($hFile)
$ext = @extended
FileSetPos($hFile,$ext - 128,0)
$sTag = FileRead($hFile)
MsgBox(0,"",$sTag)
FileClose($hFile)
If StringLeft($sTag,3) <> "TAG" Then
MsgBox(48,"Fehler","Keine oder fehlerhafte TAG-Information gefunden!")
FileClose($hFile)
Exit
EndIf
MsgBox(0,"Tag-Information-Raw",$sTag)
[/autoit][autoit][/autoit][autoit]$sTagVerify = StringLeft($sTag,3)
$sTag = StringTrimLeft($sTag,3)
$sTagSongTitle = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagInterpret = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagAlbum = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagYear = StringLeft($sTag,4)
$sTag = StringTrimLeft($sTag,4)
$sTagComment = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagGenre = StringLeft($sTag,1)
$sTag = StringTrimLeft($sTag,1)
MsgBox(0,"Tag-Information","Titel: " & $sTagSongTitle & @LF & "Interpret: " & $sTagInterpret & @LF & "Album: " & $sTagAlbum & @LF & "Erscheinungsjahr: " & $sTagYear & @LF & "Kommentar: " & $sTagComment & @LF & "GenreIndex: " & $sTagGenre)
[/autoit][autoit][/autoit][autoit][/autoit]Problem ist, dass er mir das Anfangskürzel TAG richtig ausliest und den Titel auch, aber dananch ist schluss und ich weiß nicht warum -.-
Wäre schön wenn einer den Fehler finden würde. .
Rodny_le_lude
hast du denn dein Skript decompile -icher gemacht ?^^
Ich glaube kaum, dass du das so hingekriegt hast, damit das nicht geht (Mittel und Wege nenne ich jetzt nicht, ist nicht ganz legal..)
Soviel zu closed-source mit AutoIt, wenn da jemand deinen Sourcecode haben will, wird er ihn kriegen..
[MSIE_newline_end ]
Wieso bräuchtest du es schnell?
Wenn du nich die Zeit hast zum selbst lernen, dann stells in die Jobbörse und zahl dafür..
Musst du erstmal eine Art Key generieren, die auf speziell diesem Computer einmalig ist und dann in die Registry oder so schreiben, und beim start auslesen..
wenn er keinen findet -> Popupfenster und dann muss da ein key rein, der bei der behandlung mit einem speziellen Algorythmus eine bestimmte Zahl liefert du die irgendwie mit dem Key vergleichen kannst..
[MSIE_newline_end ]
Win XP SP2 ftw ; )
Ich wünsch dir auch mal alles Gute ; )
