home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / CHIP / Tipsy / SendM3UtoPlayer / sendM3UtoPlayer.vbs
Text File  |  2006-11-21  |  4KB  |  131 lines
  1.  
  2. Option Explicit
  3.  
  4. Dim listArgs
  5.  
  6. ' Klucz w rejestrze do zintegrowania skryptu do menu
  7. Const constRegKey = "HKEY_CLASSES_ROOT\m3ufile\shell\Wy£lij do odwarzacza MP3\"
  8. Const constRegKeyUninstall = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\sendM3UToPlayer\"
  9.  
  10.  
  11. Set listArgs = WScript.Arguments
  12.  
  13. If listArgs.Count = 0 Then
  14.    ' Je┐eli brak parametru: Installation 
  15.    installSkript
  16. Else
  17.     If listArgs(0) = "-deinstall" Then
  18.         ' Deinstlacja
  19.         deinstallSkript
  20.     Else
  21.         
  22.         sendM3UToPlayer listArgs(0)
  23.     End If   
  24. End If
  25.    
  26. Set listArgs = Nothing
  27.  
  28. ' Koniec skryptu
  29. Wscript.Quit
  30.  
  31.  
  32.  
  33. '
  34. ' Funcja: sendM3UToPlayer()
  35. ' ---------------------------
  36.  
  37. Function sendM3UToPlayer (strM3UFile)
  38. Dim objM3UFile
  39. Dim objMP3File
  40. Dim objFileSystem
  41. Dim strDrive
  42. Dim strFolder
  43. Dim strMP3File
  44. Set objFileSystem = CreateObject("Scripting.FileSystemObject")
  45. If objFileSystem.FileExists(strM3UFile) Then
  46. strDrive = InputBox("ProszΩ podaµ literΩ napΩdu, odpowiadaj╣c╣ odtwarzaczowi MP3!","Wyb≤r napΩdu","K:\")
  47. If objFileSystem.DriveExists(strDrive) Then
  48. If objFileSystem.FolderExists(strDrive) Then
  49. strFolder = Left(strM3UFile,InStrRev(strM3UFile,"\")-1)
  50. Set objM3UFile = objFileSystem.OpenTextFile(strM3UFile, 1)
  51. Do While Not (objM3UFile.atEndOfStream)
  52. strMP3File = objM3UFile.ReadLine
  53. If Left(strMP3File,1)= "." Then
  54. strMP3File = strFolder & Right(strMP3File, Len(strMP3File) - 1)
  55. End If
  56. If objFileSystem.FileExists(strMP3File) Then
  57. Set objMP3File = objFileSystem.GetFile(strMP3File)
  58. objMP3File.Copy strDrive & "\" & objMP3File.Name, True
  59. Else
  60. MsgBox "Podany plik " & strMP3File & " nie istnieje!"
  61. End If
  62. Loop
  63. objM3UFile.Close
  64. Set objM3UFile = Nothing
  65. MsgBox "Odtwarzacz MP3 za│adowany"
  66. End If
  67. Else
  68. MsgBox "Folderu pod adresem " & strDrive & " nie znaleziono!"
  69. End If
  70. Else
  71. MsgBox "Podany plik " & strM3UFile & " nie istnieje!"
  72. End If
  73. End Function
  74.  
  75.  
  76.  
  77. '
  78. ' Funcja: installSkript()
  79. ' ---------------------------
  80.  
  81. Function installSkript ()
  82.  
  83.     Dim objWSHShell
  84.     Set objWSHShell = WScript.CreateObject("WScript.Shell")
  85.  
  86.     If (MsgBox("Skrypt bΩdzie dodany do menu kontekstowgo?", vbYesNo + vbQuestion, "Installation?")=vbYes) Then
  87.    
  88.         
  89.         objWSHShell.RegWrite constRegKey & "command\", """" & WScript.Fullname & """ """ & WScript.ScriptFullName & """ ""%1"""
  90.       
  91.         ' Informacje dla systemu...
  92.         objWSHShell.RegWrite constRegKeyUninstall & "DisplayName", "VBSkrypt SendM3UToPlayer"
  93.         objWSHShell.RegWrite constRegKeyUninstall & "DisplayVersion", "1.0"
  94.         objWSHShell.RegWrite constRegKeyUninstall & "HelpLink", "http://www.chip.pl"
  95.         objWSHShell.RegWrite constRegKeyUninstall & "Publisher", "CHIP"
  96.         objWSHShell.RegWrite constRegKeyUninstall & "UninstallString", """" & WScript.Fullname & """ """ & WScript.ScriptFullName & """ ""-deinstall"""
  97.       
  98.         ' Gotowe!
  99.         MsgBox "Skrypt """ & WScript.ScriptName & """ dodany do menu!"
  100.       
  101.     End If
  102.       
  103.     Set objWSHShell = Nothing
  104.     
  105. End Function
  106.  
  107. '
  108. ' Funkcja: deinstallSkript()
  109. ' ---------------------------
  110.  
  111. Function deinstallSkript ()
  112.  
  113.     Dim objWSHShell
  114.     Set objWSHShell = WScript.CreateObject("WScript.Shell")
  115.  
  116.     If (MsgBox("Odinsatlowaµ?", vbYesNo + vbQuestion, "Na pewno?")=vbYes) Then
  117.    
  118.         ' usuwanie z menu
  119.         objWSHShell.RegDelete constRegKey & "command\"
  120.         objWSHShell.RegDelete constRegKey 
  121.  
  122.         ' usuwanie informacji z rejestru
  123.         objWSHShell.RegDelete constRegKeyUninstall 
  124.       
  125.     End If
  126.  
  127.     Set objWSHShell = Nothing
  128.    
  129. End Function
  130.  
  131.