; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
IncludeFile "iTunesScriptStarterForms.pb"
Procedure.b FileSystemStartIncludedFile(sPath.s, *lMemory.l, lLength.l)
Protected lFileId.l = CreateFile(#PB_Any, sPath)
If lFileId
WriteData(lFileId, *lMemory, lLength)
CloseFile(lFileId)
RunProgram('wscript.exe', sPath)
ProcedureReturn #True
EndIf
ProcedureReturn #False
EndProcedure
Open_Window_0()
Repeat ; Start of the event loop
Event = WaitWindowEvent() ; This line waits until an event is received from Windows
WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadget() ; Is it a gadget event?
EventType = EventType() ; The event type
;You can place code here, and use the result as parameters for the procedures
If Event = #PB_Event_Gadget
If GadgetID = #Button_AlbumPlaylist
FileSystenStartIncludedFile("test.js", ?CreateAlbumPlaylists, ?RemoveDeadTracks - ?CreateAlbumPlaylists)
ElseIf GadgetID = #Button_DeadTracks
ElseIf GadgetID = #Button_DoubleTracks
ElseIf GadgetID = #Button_RemovePlaylists
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
;
DataSection
CreateAlbumPlaylists: IncludeBinary "E:\Programme\iTunes Scripts\CreateAlbumPlaylists.js"
RemoveDeadTracks: IncludeBinary "E:\Programme\iTunes Scripts\RemoveDeadTracks.js"
RemoveDoubleTracks: IncludeBinary "E:\Programme\iTunes Scripts\RemoveDoubleTracks.js"
RemoveUserPlaylists: IncludeBinary "E:\Programme\iTunes Scripts\RemoveUserPlaylists.js"
EndDataSection
;