Hallo Leute!
Das ist mein erster Post an diesem Board, mit AutoIt habe Ich mich schon etwas länger auseinandergesetzt - Google und F1 sind manchmal doch sehr hilfreich!
Nun zum ersten Skript das ich vorstellen will:
Es geht im Grunde um folgende Thematik: Ich habe jede Menge MP3's mit und ohne DRM vorliegen, die sich über die Jahre angesammelt haben.
Nun habe einen IPod mit Coverflow und möchte am liebsten bei jedem Album ein Cover haben - Itunes hilft zwar viel, aber manche alte oder einfach nicht im Itunes Store verfügbare MP3 hat einfach kein Cover.
Flix gegoogelt und TagRunner getestet und erworben. Was macht das Programm? Es sucht automatisch die Tags und Cover für einen ausgewählten Ordner mit MP3's.
Leider hat das Programm die Macke dass man nich einfach einen Order mit 100+ Dateien hinzufügen kann, ohne dass es während des Taggens abschmiert. An sonsten ist das Programm sein Geld wert.
Um nun den Anfallenden Aufwand für Tagrunner zu minimieren, habe ich mir ein Skript gebaut, dass ausgehend von einer Referenzprobe 100 Pixel im Coverbereich von MP3Tag mit 100 Pixeln der jeweiligen Cover vergleicht. (100 Pixel aus dem MP3Tag Coverbereich ohne Cover werden mit 100 Pixeln von jeder Mp3 Verglichen) Ich hoffe Ich hab bis jetzt niemanden abgehangen!
Die 100 Referenzpixel sind hard gecoded - meiner Ansicht nach zwar unschön, aber das Skript ist ja nicht für den Vertrieb gedacht, und jemand der das Skript nutzt hat auch den Source und kann ihn bearbeiten und Compilen.
Bei jeder Unterscheidung von der Referenz wird eine Variable um einen Punkt verkleinert.
Nach dem Vergleich wird das Ergebniss an eine Funktion weitergegeben welche dann den Ort zum Verschieben festlegt und das Verschieben an sich in MP3 Tag auslöst.
Während des gesamten Skriptablaufs sind die Inputs geblockt, damit der zugegeben etwas empfindliche Ablauf nicht gestört wird.
Was mir noch fehlt ist eine Art "Not-Aus", welches mir die Möglichkeit gibt eine Taste zu Drücken um das Skript zu Beenden. Derzeit läuft es noch so lange durch bis es die Angegebene Anzahl an Durchläufen erreicht hat.
Und nun endlich zum Source:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=MP3CheckUnattended.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$autonom = MsgBox(547, "Betriebsmodus...", "Autonomer Betriebsmodus: Klicken sie auf JA" & @CRLF & "Beaufsichtigter Betriebsmodus: Klicken sie auf NEIN" & @CRLF & "Beenden ohne weitere Abfrage: Klicken sie auf ABBRECHEN")
Select
Case $autonom = 6 ;Yes
$autonom = 1
Case $autonom = 7 ;No
$autonom = 0
Case $autonom = 2 ;Cancel
Exit
EndSelect
#include <GUIConstants.au3>
$pfad = ""
$i = 0
$wiederholungen = 0
$probe1 = 0
$probe2 = 0
$probe3 = 0
$probe4 = 0
$probe5 = 0
$probe6 = 0
$probe7 = 0
$probe8 = 0
$probe9 = 0
$probe10 = 0
$probe11 = 0
$probe12 = 0
$probe13 = 0
$probe14 = 0
$probe15 = 0
$probe16 = 0
$probe17 = 0
$probe18 = 0
$probe19 = 0
$probe20 = 0
$probe21 = 0
$probe22 = 0
$probe23 = 0
$probe24 = 0
$probe25 = 0
$probe26 = 0
$probe27 = 0
$probe28 = 0
$probe29 = 0
$probe30 = 0
$probe31 = 0
$probe32 = 0
$probe33 = 0
$probe34 = 0
$probe35 = 0
$probe36 = 0
$probe37 = 0
$probe38 = 0
$probe39 = 0
$probe40 = 0
$probe41 = 0
$probe42 = 0
$probe43 = 0
$probe44 = 0
$probe45 = 0
$probe46 = 0
$probe47 = 0
$probe48 = 0
$probe49 = 0
$probe50 = 0
$probe51 = 0
$probe52 = 0
$probe53 = 0
$probe54 = 0
$probe55 = 0
$probe56 = 0
$probe57 = 0
$probe58 = 0
$probe59 = 0
$probe60 = 0
$probe61 = 0
$probe62 = 0
$probe63 = 0
$probe64 = 0
$probe65 = 0
$probe66 = 0
$probe67 = 0
$probe68 = 0
$probe69 = 0
$probe70 = 0
$probe71 = 0
$probe72 = 0
$probe73 = 0
$probe74 = 0
$probe75 = 0
$probe76 = 0
$probe77 = 0
$probe78 = 0
$probe79 = 0
$probe80 = 0
$probe81 = 0
$probe82 = 0
$probe83 = 0
$probe84 = 0
$probe85 = 0
$probe86 = 0
$probe87 = 0
$probe88 = 0
$probe89 = 0
$probe90 = 0
$probe91 = 0
$probe92 = 0
$probe93 = 0
$probe94 = 0
$probe95 = 0
$probe96 = 0
$probe97 = 0
$probe98 = 0
$probe99 = 0
$probe100 = 0
$unterschied = 100
$leerprobe1 = 13553358
$leerprobe2 = 16250871
$leerprobe3 = 16777215
$leerprobe4 = 16777215
$leerprobe5 = 13553358
$leerprobe6 = 16777215
$leerprobe7 = 16777215
$leerprobe8 = 16777215
$leerprobe9 = 16777215
$leerprobe10 = 16777215
$leerprobe11 = 16777215
$leerprobe12 = 16777215
$leerprobe13 = 16777215
$leerprobe14 = 16777215
$leerprobe15 = 16777215
$leerprobe16 = 16777215
$leerprobe17 = 16777215
$leerprobe18 = 16777215
$leerprobe19 = 16777215
$leerprobe20 = 16777215
$leerprobe21 = 16777215
$leerprobe22 = 13553358
$leerprobe23 = 16777215
$leerprobe24 = 16250871
$leerprobe25 = 14079702
$leerprobe26 = 16777215
$leerprobe27 = 16777215
$leerprobe28 = 16777215
$leerprobe29 = 16777215
$leerprobe30 = 13553358
$leerprobe31 = 16777215
$leerprobe32 = 16777215
$leerprobe33 = 16777215
$leerprobe34 = 16777215
$leerprobe35 = 15724527
$leerprobe36 = 16777215
$leerprobe37 = 16777215
$leerprobe38 = 16777215
$leerprobe39 = 16777215
$leerprobe40 = 16777215
$leerprobe41 = 16777215
$leerprobe42 = 13553358
$leerprobe43 = 16777215
$leerprobe44 = 16777215
$leerprobe45 = 16777215
$leerprobe46 = 16777215
$leerprobe47 = 16777215
$leerprobe48 = 13553358
$leerprobe49 = 16777215
$leerprobe50 = 16777215
$leerprobe51 = 16777215
$leerprobe52 = 16777215
$leerprobe53 = 16777215
$leerprobe54 = 16777215
$leerprobe55 = 16777215
$leerprobe56 = 16777215
$leerprobe57 = 16777215
$leerprobe58 = 16777215
$leerprobe59 = 16777215
$leerprobe60 = 16777215
$leerprobe61 = 16777215
$leerprobe62 = 16777215
$leerprobe63 = 16777215
$leerprobe64 = 14079702
$leerprobe65 = 16777215
$leerprobe66 = 16777215
$leerprobe67 = 14606046
$leerprobe68 = 16777215
$leerprobe69 = 13553358
$leerprobe70 = 16777215
$leerprobe71 = 16777215
$leerprobe72 = 14606046
$leerprobe73 = 16777215
$leerprobe74 = 16777215
$leerprobe75 = 16777215
$leerprobe76 = 16777215
$leerprobe77 = 16777215
$leerprobe78 = 16777215
$leerprobe79 = 16777215
$leerprobe80 = 16777215
$leerprobe81 = 16777215
$leerprobe82 = 16777215
$leerprobe83 = 16777215
$leerprobe84 = 16777215
$leerprobe85 = 16777215
$leerprobe86 = 16777215
$leerprobe87 = 16777215
$leerprobe88 = 14606046
$leerprobe89 = 16777215
$leerprobe90 = 16777215
$leerprobe91 = 16777215
$leerprobe92 = 16777215
$leerprobe93 = 16777215
$leerprobe94 = 16777215
$leerprobe95 = 16777215
$leerprobe96 = 16777215
$leerprobe97 = 16777215
$leerprobe98 = 16777215
$leerprobe99 = 16777215
$leerprobe100 = 16777215
;Hauptmenü aufrufen
$MP3CoverCheck = GUICreate("Mp3CoverCheck UnAttended", 288, 88, 193, 125)
$RADPop = GUICtrlCreateRadio("Pop", 8, 8, 81, 17)
$RADTechno = GUICtrlCreateRadio("Techno", 8, 32, 73, 17)
$RADMetal = GUICtrlCreateRadio("Metal", 8, 56, 57, 17)
$BUTTGo = GUICtrlCreateButton("GO", 88, 8, 193, 65, 0)
$genre = "0"
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $RADPop
$genre = 1
Case $RADTechno
$genre = 2
Case $RADMetal
$genre = 3
Case $BUTTGo
Switch $genre
Case $genre = 0 ;Keine Auswahl getroffen
BlockInput(0)
MsgBox(0, "Fehler", "Wähl was!", 1)
Sleep(100)
WinActivate("Mp3CoverCheck UnAttended")
Case $genre = 1 ;Pop ausgewählt
Select
Case $autonom = 1
$wiederholungen = InputBox("Anzahl der zu bearbeitenden Dateien...", "Bitte geben Sie die Anzahl der zu bearbeitenden Dateien ein!" & @CRLF & "Bsp.: 100 -> Für die bearbeitung von 100 Dateien in einer Folge.", "", " 4", "-1", "-1", "-1", "-1")
Select
Case @error = 0 ;OK - The string returned is valid
If (MsgBox(1, "Genre", "Coverprüfung Pop für " & $wiederholungen & " Dateien.")) = 1 Then
Call("start")
Else
Call("neustart")
EndIf
Case @error = 1 ;The Cancel button was pushed
Call("neustart")
Case @error = 3 ;The InputBox failed to open
MsgBox("0", "Fehler", "Allgmeiner Fehler")
EndSelect
Case $autonom = 0
Call("start")
EndSelect
Case $genre = 2 ;Techno
Select
Case $autonom = 1
$wiederholungen = InputBox("Anzahl der zu bearbeitenden Dateien...", "Bitte geben Sie die Anzahl der zu bearbeitenden Dateien ein!" & @CRLF & "Bsp.: 100 -> Für die bearbeitung von 100 Dateien in einer Folge.", "", " 4", "-1", "-1", "-1", "-1")
Select
Case @error = 0 ;OK - The string returned is valid
If (MsgBox(1, "Genre", "Coverprüfung Techno für " & $wiederholungen & " Dateien.")) = 1 Then
Call("start")
Else
Call("neustart")
EndIf
Case @error = 1 ;The Cancel button was pushed
Call("neustart")
Case @error = 3 ;The InputBox failed to open
MsgBox("0", "Fehler", "Allgmeiner Fehler")
EndSelect
Case $autonom = 0
Call("start")
EndSelect
Case $genre = 3 ;Metal
Select
Case $autonom = 1
$wiederholungen = InputBox("Anzahl der zu bearbeitenden Dateien...", "Bitte geben Sie die Anzahl der zu bearbeitenden Dateien ein!" & @CRLF & "Bsp.: 100 -> Für die bearbeitung von 100 Dateien in einer Folge.", "", " 4", "-1", "-1", "-1", "-1")
Select
Case @error = 0 ;OK - The string returned is valid
If (MsgBox(1, "Genre", "Coverprüfung Metal für " & $wiederholungen & " Dateien.")) = 1 Then
Call("start")
Else
Call("neustart")
EndIf
Case @error = 1 ;The Cancel button was pushed
Call("neustart")
Case @error = 3 ;The InputBox failed to open
MsgBox("0", "Fehler", "Allgmeiner Fehler")
EndSelect
Case $autonom = 0
Call("start")
EndSelect
EndSwitch
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func start()
Select
Case $autonom = 0
If WinExists("Mp3tag v2.41") Then
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(1000)
MouseMove(308, 100, 1)
MouseDown("left")
MouseUp("left")
Call("ProbeZiehen")
BlockInput(0)
Else
MsgBox("0", "Fehler", "Mp3Tag v2.41 nicht gefunden!", 1)
Sleep(100)
WinActivate("Mp3CoverCheck UnAttended")
EndIf
Case $autonom = 1
Call("AutoAnalyse")
EndSelect
EndFunc ;==>start
Func neustart()
$unterschied = 100
If WinExists("Mp3tag v2.41") Then
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(1000)
MouseMove(308, 100, 1)
MouseDown("left")
MouseUp("left")
WinActivate("Mp3CoverCheck UnAttended")
BlockInput(0)
Else
MsgBox("0", "Fehler", "Mp3Tag v2.41 nicht gefunden!", 1)
Sleep(100)
WinActivate("Mp3CoverCheck UnAttended")
EndIf
EndFunc ;==>neustart
Func ProbeZiehen()
BlockInput(1)
$probe1 = PixelGetColor(95.5602369271219, 455.082283639349)
$probe2 = PixelGetColor(95.5353111261502, 428.173787496053)
$probe3 = PixelGetColor(49.3805320933461, 426.294746384956)
$probe4 = PixelGetColor(38.3848419645801, 428.9554699976)
$probe5 = PixelGetColor(89.9612495035399, 422.911673123017)
$probe6 = PixelGetColor(49.1866058204323, 440.490131890401)
$probe7 = PixelGetColor(36.0165074293036, 408.074324177578)
$probe8 = PixelGetColor(143.491882400122, 408.145107366145)
$probe9 = PixelGetColor(131.823691428872, 431.517714839429)
$probe10 = PixelGetColor(46.4902549632825, 437.37920280546)
$probe11 = PixelGetColor(29.0741356788203, 452.918397504836)
$probe12 = PixelGetColor(47.8347911324818, 429.136258177459)
$probe13 = PixelGetColor(116.084832703928, 439.397344226018)
$probe14 = PixelGetColor(66.8213949596975, 430.63197849784)
$probe15 = PixelGetColor(144.328034372302, 446.28556442447)
$probe16 = PixelGetColor(45.119191671256, 459.028825438581)
$probe17 = PixelGetColor(142.896272713551, 403.12532408163)
$probe18 = PixelGetColor(44.9787504679989, 445.706656756811)
$probe19 = PixelGetColor(57.1765755070373, 431.723790327087)
$probe20 = PixelGetColor(139.837232744321, 425.680558490567)
$probe21 = PixelGetColor(48.283775371965, 417.264074003324)
$probe22 = PixelGetColor(80.1143993507139, 440.976771092974)
$probe23 = PixelGetColor(68.7108652840834, 448.902724911459)
$probe24 = PixelGetColor(92.700627114391, 431.340756029822)
$probe25 = PixelGetColor(66.5883412933908, 433.213004432619)
$probe26 = PixelGetColor(64.1875067143701, 411.906197420321)
$probe27 = PixelGetColor(43.679967004573, 457.676298255101)
$probe28 = PixelGetColor(118.43335518497, 436.969329207204)
$probe29 = PixelGetColor(133.6000057403, 434.537851833738)
$probe30 = PixelGetColor(81.4184089307673, 442.987440982834)
$probe31 = PixelGetColor(133.954573632218, 444.517566501163)
$probe32 = PixelGetColor(60.0410736864433, 450.620526284911)
$probe33 = PixelGetColor(54.3490972835571, 426.721124523319)
$probe34 = PixelGetColor(46.0936086077709, 429.312313068658)
$probe35 = PixelGetColor(103.427042200929, 436.35641857516)
$probe36 = PixelGetColor(75.8417951932643, 418.761701597832)
$probe37 = PixelGetColor(32.7049127430655, 423.366233706474)
$probe38 = PixelGetColor(55.9796055662446, 436.289870385081)
$probe39 = PixelGetColor(114.389892236795, 421.531021762639)
$probe40 = PixelGetColor(30.3591917094309, 430.921659194864)
$probe41 = PixelGetColor(61.3311996043194, 447.960721845739)
$probe42 = PixelGetColor(69.545502285473, 443.075024494901)
$probe43 = PixelGetColor(28.5862972436007, 434.770952379331)
$probe44 = PixelGetColor(105.026873387396, 418.425913979299)
$probe45 = PixelGetColor(105.482920689974, 414.354871748947)
$probe46 = PixelGetColor(115.981209650636, 455.311116552912)
$probe47 = PixelGetColor(59.9933859542944, 450.282803424634)
$probe48 = PixelGetColor(75.1075572392438, 442.408135635778)
$probe49 = PixelGetColor(27.5348528288305, 457.898903498426)
$probe50 = PixelGetColor(128.161727340193, 438.350366065279)
$probe51 = PixelGetColor(42.6547668233979, 438.744591041468)
$probe52 = PixelGetColor(28.5482850798871, 432.068517706357)
$probe53 = PixelGetColor(36.8164722225629, 443.196426192299)
$probe54 = PixelGetColor(106.309262197465, 421.451880754903)
$probe55 = PixelGetColor(147.364620241569, 429.958395892754)
$probe56 = PixelGetColor(101.811965118395, 419.025734383613)
$probe57 = PixelGetColor(146.621716883965, 403.707909351215)
$probe58 = PixelGetColor(28.3575052802917, 402.360126394778)
$probe59 = PixelGetColor(117.921732284594, 405.168585493229)
$probe60 = PixelGetColor(149.176925979555, 448.073544036597)
$probe61 = PixelGetColor(35.1693121832795, 447.957635349594)
$probe62 = PixelGetColor(27.0187519839965, 407.956119170412)
$probe63 = PixelGetColor(128.312763530994, 428.426613258198)
$probe64 = PixelGetColor(83.4492853668053, 452.231312352233)
$probe65 = PixelGetColor(148.723123251693, 445.201248363592)
$probe66 = PixelGetColor(29.5544237073045, 405.268889241852)
$probe67 = PixelGetColor(70.3721694357228, 457.166568767279)
$probe68 = PixelGetColor(139.514472777955, 449.609570875764)
$probe69 = PixelGetColor(104.631026805146, 456.659290273674)
$probe70 = PixelGetColor(146.888835012214, 437.951168692671)
$probe71 = PixelGetColor(74.1625582799315, 418.862681221217)
$probe72 = PixelGetColor(95.2015883871354, 435.705573908053)
$probe73 = PixelGetColor(36.8882778915577, 419.616718767211)
$probe74 = PixelGetColor(114.269522635732, 420.256811003201)
$probe75 = PixelGetColor(30.7140372518916, 426.94840639364)
$probe76 = PixelGetColor(117.224212829024, 403.319271011278)
$probe77 = PixelGetColor(67.2957010450773, 422.514307671227)
$probe78 = PixelGetColor(45.2725598646794, 421.483065360226)
$probe79 = PixelGetColor(33.8478293037042, 429.227946992032)
$probe80 = PixelGetColor(130.018063273747, 425.478580915369)
$probe81 = PixelGetColor(100.62993009924, 419.248219598085)
$probe82 = PixelGetColor(28.7770191847812, 458.201967552304)
$probe83 = PixelGetColor(46.1130709503777, 429.660873562098)
$probe84 = PixelGetColor(106.740013993112, 440.657688691281)
$probe85 = PixelGetColor(35.9632924431935, 412.659731842577)
$probe86 = PixelGetColor(45.0680341513362, 437.858871771023)
$probe87 = PixelGetColor(132.050983002409, 435.265536452644)
$probe88 = PixelGetColor(101.062775828177, 434.213823536411)
$probe89 = PixelGetColor(83.1855812633876, 405.265505760908)
$probe90 = PixelGetColor(139.756587601732, 405.80776355695)
$probe91 = PixelGetColor(145.071020995965, 413.182153417729)
$probe92 = PixelGetColor(140.089618426282, 400.059135444462)
$probe93 = PixelGetColor(50.8861080219503, 401.876755030826)
$probe94 = PixelGetColor(135.183228534879, 453.547281767242)
$probe95 = PixelGetColor(117.660477850586, 443.61958513502)
$probe96 = PixelGetColor(41.423650784418, 443.087219870649)
$probe97 = PixelGetColor(43.0856100923847, 450.265054227784)
$probe98 = PixelGetColor(44.2935370432679, 421.9376357086)
$probe99 = PixelGetColor(64.0691427164711, 410.288906507194)
$probe100 = PixelGetColor(139.574522100156, 428.51130775176)
Select
Case $autonom = 0
Call("Vergleich")
Case $autonom = 1
Call("VergleichAutonom")
EndSelect
EndFunc ;==>ProbeZiehen
Func Vergleich()
If $probe1 = $leerprobe1 Then $unterschied = $unterschied - 1
If $probe2 = $leerprobe2 Then $unterschied = $unterschied - 1
If $probe3 = $leerprobe3 Then $unterschied = $unterschied - 1
If $probe4 = $leerprobe4 Then $unterschied = $unterschied - 1
If $probe5 = $leerprobe5 Then $unterschied = $unterschied - 1
If $probe6 = $leerprobe6 Then $unterschied = $unterschied - 1
If $probe7 = $leerprobe7 Then $unterschied = $unterschied - 1
If $probe8 = $leerprobe8 Then $unterschied = $unterschied - 1
If $probe9 = $leerprobe9 Then $unterschied = $unterschied - 1
If $probe10 = $leerprobe10 Then $unterschied = $unterschied - 1
If $probe11 = $leerprobe11 Then $unterschied = $unterschied - 1
If $probe12 = $leerprobe12 Then $unterschied = $unterschied - 1
If $probe13 = $leerprobe13 Then $unterschied = $unterschied - 1
If $probe14 = $leerprobe14 Then $unterschied = $unterschied - 1
If $probe15 = $leerprobe15 Then $unterschied = $unterschied - 1
If $probe16 = $leerprobe16 Then $unterschied = $unterschied - 1
If $probe17 = $leerprobe17 Then $unterschied = $unterschied - 1
If $probe18 = $leerprobe18 Then $unterschied = $unterschied - 1
If $probe19 = $leerprobe19 Then $unterschied = $unterschied - 1
If $probe20 = $leerprobe20 Then $unterschied = $unterschied - 1
If $probe21 = $leerprobe21 Then $unterschied = $unterschied - 1
If $probe22 = $leerprobe22 Then $unterschied = $unterschied - 1
If $probe23 = $leerprobe23 Then $unterschied = $unterschied - 1
If $probe24 = $leerprobe24 Then $unterschied = $unterschied - 1
If $probe25 = $leerprobe25 Then $unterschied = $unterschied - 1
If $probe26 = $leerprobe26 Then $unterschied = $unterschied - 1
If $probe27 = $leerprobe27 Then $unterschied = $unterschied - 1
If $probe28 = $leerprobe28 Then $unterschied = $unterschied - 1
If $probe29 = $leerprobe29 Then $unterschied = $unterschied - 1
If $probe30 = $leerprobe30 Then $unterschied = $unterschied - 1
If $probe31 = $leerprobe31 Then $unterschied = $unterschied - 1
If $probe32 = $leerprobe32 Then $unterschied = $unterschied - 1
If $probe33 = $leerprobe33 Then $unterschied = $unterschied - 1
If $probe34 = $leerprobe34 Then $unterschied = $unterschied - 1
If $probe35 = $leerprobe35 Then $unterschied = $unterschied - 1
If $probe36 = $leerprobe36 Then $unterschied = $unterschied - 1
If $probe37 = $leerprobe37 Then $unterschied = $unterschied - 1
If $probe38 = $leerprobe38 Then $unterschied = $unterschied - 1
If $probe39 = $leerprobe39 Then $unterschied = $unterschied - 1
If $probe40 = $leerprobe40 Then $unterschied = $unterschied - 1
If $probe41 = $leerprobe41 Then $unterschied = $unterschied - 1
If $probe42 = $leerprobe42 Then $unterschied = $unterschied - 1
If $probe43 = $leerprobe43 Then $unterschied = $unterschied - 1
If $probe44 = $leerprobe44 Then $unterschied = $unterschied - 1
If $probe45 = $leerprobe45 Then $unterschied = $unterschied - 1
If $probe46 = $leerprobe46 Then $unterschied = $unterschied - 1
If $probe47 = $leerprobe47 Then $unterschied = $unterschied - 1
If $probe48 = $leerprobe48 Then $unterschied = $unterschied - 1
If $probe49 = $leerprobe49 Then $unterschied = $unterschied - 1
If $probe50 = $leerprobe50 Then $unterschied = $unterschied - 1
If $probe51 = $leerprobe51 Then $unterschied = $unterschied - 1
If $probe52 = $leerprobe52 Then $unterschied = $unterschied - 1
If $probe53 = $leerprobe53 Then $unterschied = $unterschied - 1
If $probe54 = $leerprobe54 Then $unterschied = $unterschied - 1
If $probe55 = $leerprobe55 Then $unterschied = $unterschied - 1
If $probe56 = $leerprobe56 Then $unterschied = $unterschied - 1
If $probe57 = $leerprobe57 Then $unterschied = $unterschied - 1
If $probe58 = $leerprobe58 Then $unterschied = $unterschied - 1
If $probe59 = $leerprobe59 Then $unterschied = $unterschied - 1
If $probe60 = $leerprobe60 Then $unterschied = $unterschied - 1
If $probe61 = $leerprobe61 Then $unterschied = $unterschied - 1
If $probe62 = $leerprobe62 Then $unterschied = $unterschied - 1
If $probe63 = $leerprobe63 Then $unterschied = $unterschied - 1
If $probe64 = $leerprobe64 Then $unterschied = $unterschied - 1
If $probe65 = $leerprobe65 Then $unterschied = $unterschied - 1
If $probe66 = $leerprobe66 Then $unterschied = $unterschied - 1
If $probe67 = $leerprobe67 Then $unterschied = $unterschied - 1
If $probe68 = $leerprobe68 Then $unterschied = $unterschied - 1
If $probe69 = $leerprobe69 Then $unterschied = $unterschied - 1
If $probe70 = $leerprobe70 Then $unterschied = $unterschied - 1
If $probe71 = $leerprobe71 Then $unterschied = $unterschied - 1
If $probe72 = $leerprobe72 Then $unterschied = $unterschied - 1
If $probe73 = $leerprobe73 Then $unterschied = $unterschied - 1
If $probe74 = $leerprobe74 Then $unterschied = $unterschied - 1
If $probe75 = $leerprobe75 Then $unterschied = $unterschied - 1
If $probe76 = $leerprobe76 Then $unterschied = $unterschied - 1
If $probe77 = $leerprobe77 Then $unterschied = $unterschied - 1
If $probe78 = $leerprobe78 Then $unterschied = $unterschied - 1
If $probe79 = $leerprobe79 Then $unterschied = $unterschied - 1
If $probe80 = $leerprobe80 Then $unterschied = $unterschied - 1
If $probe81 = $leerprobe81 Then $unterschied = $unterschied - 1
If $probe82 = $leerprobe82 Then $unterschied = $unterschied - 1
If $probe83 = $leerprobe83 Then $unterschied = $unterschied - 1
If $probe84 = $leerprobe84 Then $unterschied = $unterschied - 1
If $probe85 = $leerprobe85 Then $unterschied = $unterschied - 1
If $probe86 = $leerprobe86 Then $unterschied = $unterschied - 1
If $probe87 = $leerprobe87 Then $unterschied = $unterschied - 1
If $probe88 = $leerprobe88 Then $unterschied = $unterschied - 1
If $probe89 = $leerprobe89 Then $unterschied = $unterschied - 1
If $probe90 = $leerprobe90 Then $unterschied = $unterschied - 1
If $probe91 = $leerprobe91 Then $unterschied = $unterschied - 1
If $probe92 = $leerprobe92 Then $unterschied = $unterschied - 1
If $probe93 = $leerprobe93 Then $unterschied = $unterschied - 1
If $probe94 = $leerprobe94 Then $unterschied = $unterschied - 1
If $probe95 = $leerprobe95 Then $unterschied = $unterschied - 1
If $probe96 = $leerprobe96 Then $unterschied = $unterschied - 1
If $probe97 = $leerprobe97 Then $unterschied = $unterschied - 1
If $probe98 = $leerprobe98 Then $unterschied = $unterschied - 1
If $probe99 = $leerprobe99 Then $unterschied = $unterschied - 1
If $probe100 = $leerprobe100 Then $unterschied = $unterschied - 1
BlockInput(0)
Select
Case $genre = 1
$pfad = "E:\Daten\Kram\Musik\Geprueft\pop\"
Case $genre = 2
$pfad = "E:\Daten\Kram\Musik\Geprueft\techno\"
Case $genre = 3
$pfad = "E:\Daten\Kram\Musik\Geprueft\metal\"
EndSelect
Select
Case $unterschied = 0
If (MsgBox(4, "Verschieben...", "Grad der Unterscheidung: " & $unterschied & "%" & @CRLF & "Das Cover ist sehr wahrscheinlich nicht vorhanden." & @CRLF & "Soll verschoben werden?")) = 6 Then
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "0")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Call("neustart")
Else
MsgBox(0, "Verschieben...", "Dann halt nicht!")
Call("neustart")
EndIf
Case $unterschied <= 25
If (MsgBox(4, "Verschieben...", "Grad der Unterscheidung: " & $unterschied & "%" & @CRLF & "Das Cover ist wahrscheinlich nicht vorhanden." & @CRLF & "Soll verschoben werden?")) = 6 Then
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "25")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Call("neustart")
Else
MsgBox(0, "Verschieben...", "Dann halt nicht!")
Call("neustart")
EndIf
Case $unterschied <= 75
If (MsgBox(4, "Verschieben...", "Grad der Unterscheidung: " & $unterschied & "%" & @CRLF & "Das Cover ist wahrscheinlich vorhanden." & @CRLF & "Soll verschoben werden?")) = 6 Then
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "75")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Call("neustart")
Else
MsgBox(0, "Verschieben...", "Dann halt nicht!")
Call("neustart")
EndIf
Case $unterschied >= 75
If (MsgBox(4, "Verschieben...", "Grad der Unterscheidung: " & $unterschied & "%" & @CRLF & "Das Cover ist sehr wahrscheinlich vorhanden." & @CRLF & "Soll verschoben werden?")) = 6 Then
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "100")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Call("neustart")
Else
MsgBox(0, "Verschieben...", "Dann halt nicht!")
Call("neustart")
EndIf
EndSelect
EndFunc ;==>Vergleich
Func VergleichAutonom()
$unterschied = 100
If $probe1 = $leerprobe1 Then $unterschied = $unterschied - 1
If $probe2 = $leerprobe2 Then $unterschied = $unterschied - 1
If $probe3 = $leerprobe3 Then $unterschied = $unterschied - 1
If $probe4 = $leerprobe4 Then $unterschied = $unterschied - 1
If $probe5 = $leerprobe5 Then $unterschied = $unterschied - 1
If $probe6 = $leerprobe6 Then $unterschied = $unterschied - 1
If $probe7 = $leerprobe7 Then $unterschied = $unterschied - 1
If $probe8 = $leerprobe8 Then $unterschied = $unterschied - 1
If $probe9 = $leerprobe9 Then $unterschied = $unterschied - 1
If $probe10 = $leerprobe10 Then $unterschied = $unterschied - 1
If $probe11 = $leerprobe11 Then $unterschied = $unterschied - 1
If $probe12 = $leerprobe12 Then $unterschied = $unterschied - 1
If $probe13 = $leerprobe13 Then $unterschied = $unterschied - 1
If $probe14 = $leerprobe14 Then $unterschied = $unterschied - 1
If $probe15 = $leerprobe15 Then $unterschied = $unterschied - 1
If $probe16 = $leerprobe16 Then $unterschied = $unterschied - 1
If $probe17 = $leerprobe17 Then $unterschied = $unterschied - 1
If $probe18 = $leerprobe18 Then $unterschied = $unterschied - 1
If $probe19 = $leerprobe19 Then $unterschied = $unterschied - 1
If $probe20 = $leerprobe20 Then $unterschied = $unterschied - 1
If $probe21 = $leerprobe21 Then $unterschied = $unterschied - 1
If $probe22 = $leerprobe22 Then $unterschied = $unterschied - 1
If $probe23 = $leerprobe23 Then $unterschied = $unterschied - 1
If $probe24 = $leerprobe24 Then $unterschied = $unterschied - 1
If $probe25 = $leerprobe25 Then $unterschied = $unterschied - 1
If $probe26 = $leerprobe26 Then $unterschied = $unterschied - 1
If $probe27 = $leerprobe27 Then $unterschied = $unterschied - 1
If $probe28 = $leerprobe28 Then $unterschied = $unterschied - 1
If $probe29 = $leerprobe29 Then $unterschied = $unterschied - 1
If $probe30 = $leerprobe30 Then $unterschied = $unterschied - 1
If $probe31 = $leerprobe31 Then $unterschied = $unterschied - 1
If $probe32 = $leerprobe32 Then $unterschied = $unterschied - 1
If $probe33 = $leerprobe33 Then $unterschied = $unterschied - 1
If $probe34 = $leerprobe34 Then $unterschied = $unterschied - 1
If $probe35 = $leerprobe35 Then $unterschied = $unterschied - 1
If $probe36 = $leerprobe36 Then $unterschied = $unterschied - 1
If $probe37 = $leerprobe37 Then $unterschied = $unterschied - 1
If $probe38 = $leerprobe38 Then $unterschied = $unterschied - 1
If $probe39 = $leerprobe39 Then $unterschied = $unterschied - 1
If $probe40 = $leerprobe40 Then $unterschied = $unterschied - 1
If $probe41 = $leerprobe41 Then $unterschied = $unterschied - 1
If $probe42 = $leerprobe42 Then $unterschied = $unterschied - 1
If $probe43 = $leerprobe43 Then $unterschied = $unterschied - 1
If $probe44 = $leerprobe44 Then $unterschied = $unterschied - 1
If $probe45 = $leerprobe45 Then $unterschied = $unterschied - 1
If $probe46 = $leerprobe46 Then $unterschied = $unterschied - 1
If $probe47 = $leerprobe47 Then $unterschied = $unterschied - 1
If $probe48 = $leerprobe48 Then $unterschied = $unterschied - 1
If $probe49 = $leerprobe49 Then $unterschied = $unterschied - 1
If $probe50 = $leerprobe50 Then $unterschied = $unterschied - 1
If $probe51 = $leerprobe51 Then $unterschied = $unterschied - 1
If $probe52 = $leerprobe52 Then $unterschied = $unterschied - 1
If $probe53 = $leerprobe53 Then $unterschied = $unterschied - 1
If $probe54 = $leerprobe54 Then $unterschied = $unterschied - 1
If $probe55 = $leerprobe55 Then $unterschied = $unterschied - 1
If $probe56 = $leerprobe56 Then $unterschied = $unterschied - 1
If $probe57 = $leerprobe57 Then $unterschied = $unterschied - 1
If $probe58 = $leerprobe58 Then $unterschied = $unterschied - 1
If $probe59 = $leerprobe59 Then $unterschied = $unterschied - 1
If $probe60 = $leerprobe60 Then $unterschied = $unterschied - 1
If $probe61 = $leerprobe61 Then $unterschied = $unterschied - 1
If $probe62 = $leerprobe62 Then $unterschied = $unterschied - 1
If $probe63 = $leerprobe63 Then $unterschied = $unterschied - 1
If $probe64 = $leerprobe64 Then $unterschied = $unterschied - 1
If $probe65 = $leerprobe65 Then $unterschied = $unterschied - 1
If $probe66 = $leerprobe66 Then $unterschied = $unterschied - 1
If $probe67 = $leerprobe67 Then $unterschied = $unterschied - 1
If $probe68 = $leerprobe68 Then $unterschied = $unterschied - 1
If $probe69 = $leerprobe69 Then $unterschied = $unterschied - 1
If $probe70 = $leerprobe70 Then $unterschied = $unterschied - 1
If $probe71 = $leerprobe71 Then $unterschied = $unterschied - 1
If $probe72 = $leerprobe72 Then $unterschied = $unterschied - 1
If $probe73 = $leerprobe73 Then $unterschied = $unterschied - 1
If $probe74 = $leerprobe74 Then $unterschied = $unterschied - 1
If $probe75 = $leerprobe75 Then $unterschied = $unterschied - 1
If $probe76 = $leerprobe76 Then $unterschied = $unterschied - 1
If $probe77 = $leerprobe77 Then $unterschied = $unterschied - 1
If $probe78 = $leerprobe78 Then $unterschied = $unterschied - 1
If $probe79 = $leerprobe79 Then $unterschied = $unterschied - 1
If $probe80 = $leerprobe80 Then $unterschied = $unterschied - 1
If $probe81 = $leerprobe81 Then $unterschied = $unterschied - 1
If $probe82 = $leerprobe82 Then $unterschied = $unterschied - 1
If $probe83 = $leerprobe83 Then $unterschied = $unterschied - 1
If $probe84 = $leerprobe84 Then $unterschied = $unterschied - 1
If $probe85 = $leerprobe85 Then $unterschied = $unterschied - 1
If $probe86 = $leerprobe86 Then $unterschied = $unterschied - 1
If $probe87 = $leerprobe87 Then $unterschied = $unterschied - 1
If $probe88 = $leerprobe88 Then $unterschied = $unterschied - 1
If $probe89 = $leerprobe89 Then $unterschied = $unterschied - 1
If $probe90 = $leerprobe90 Then $unterschied = $unterschied - 1
If $probe91 = $leerprobe91 Then $unterschied = $unterschied - 1
If $probe92 = $leerprobe92 Then $unterschied = $unterschied - 1
If $probe93 = $leerprobe93 Then $unterschied = $unterschied - 1
If $probe94 = $leerprobe94 Then $unterschied = $unterschied - 1
If $probe95 = $leerprobe95 Then $unterschied = $unterschied - 1
If $probe96 = $leerprobe96 Then $unterschied = $unterschied - 1
If $probe97 = $leerprobe97 Then $unterschied = $unterschied - 1
If $probe98 = $leerprobe98 Then $unterschied = $unterschied - 1
If $probe99 = $leerprobe99 Then $unterschied = $unterschied - 1
If $probe100 = $leerprobe100 Then $unterschied = $unterschied - 1
Select
Case $genre = 1
$pfad = "E:\Daten\Kram\Musik\Geprueft\pop\"
Case $genre = 2
$pfad = "E:\Daten\Kram\Musik\Geprueft\techno\"
Case $genre = 3
$pfad = "E:\Daten\Kram\Musik\Geprueft\metal\"
EndSelect
Select
Case $unterschied = 0
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "0")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Case $unterschied <= 25
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "25")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Case $unterschied <= 75
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "75")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
Case $unterschied >= 75
BlockInput(1)
WinActivate("Mp3tag v2.41")
Sleep(100)
MouseMove(308, 100, 1)
MouseDown("right")
MouseUp("right")
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(100)
Send("{down}")
Sleep(250)
Send("{enter}")
Sleep(600)
Send("" & $pfad & "100")
Sleep(250)
MouseMove(775, 710, 1)
MouseDown("left")
MouseUp("left")
Sleep(100)
EndSelect
EndFunc ;==>VergleichAutonom
Func AutoAnalyse()
If (MsgBox(1, "Sicherheitsabfrage...", "Start der autonomen Bearbeitung für " & $wiederholungen & " Dateien!" & @CRLF & "Sind sie sich sicher?" & @CRLF & "Dieser Vorgang kann längere Zeit in Anspruch nehemen!")) = 1 Then
If WinExists("Mp3tag v2.41") Then
BlockInput(1)
For $i = 0 To $wiederholungen - 1
WinActivate("Mp3tag v2.41")
Sleep(1000)
MouseMove(308, 100, 1)
MouseDown("left")
MouseUp("left")
Call("ProbeZiehen")
;~ Call("VergleichAutonom") Wurzel des übelen
Next
BlockInput(0)
MsgBox(0, "Autonome verarbeitung beendet!", "Vorgang abgeschlossen!")
Exit
Else
BlockInput(0)
MsgBox("0", "Fehler", "Mp3Tag v2.41 nicht gefunden!", 1)
Sleep(100)
WinActivate("Mp3CoverCheck UnAttended")
EndIf
Else
Exit
BlockInput(0)
EndIf
EndFunc ;==>AutoAnalyse
Das Skript wird bei mir mit der Version 2.41 von MP3tag ausgeführt. Um es flexibel zu halten, muss man den Quellpfad der vom Skript in MP3tag bearbeitet werden soll vorher in MP3tag aufrufen.
Das Skript für Tagrunner werde ich Posten wenn ich es etwas ausgeräumt habe, damit ihr es leichter Lesen könnt.
Ich bin gespannt auf eure Tipps und Anregungen, gerne könnt ihr das Skript bei euch nutzen, Geld kann man damit eh nicht machen. 
mfg
-Frozen