#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Images\logo-128x128.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_Res_Comment=EPG-Buddy #AutoIt3Wrapper_Res_Description=EPG-Buddy #AutoIt3Wrapper_Res_Fileversion=0.7.1.12 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y #AutoIt3Wrapper_Res_ProductVersion=0.7.1 #AutoIt3Wrapper_Res_LegalCopyright=Lehmden 2021 #AutoIt3Wrapper_Res_Language=1031 #AutoIt3Wrapper_Add_Constants=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #Region ;Legal stuff #comments-start EPG-Buddy ;~ by Lehmden 2021 Licence: This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Dieses Programm ist Freie Software: Sie können es unter den Bedingungen der GNU General Public License, wie von der Free Software Foundation, Version 3 der Lizenz oder (nach Ihrer Wahl) jeder neueren veröffentlichten Version, weiterverbreiten und/oder modifizieren. Dieses Programm wird in der Hoffnung, dass es nützlich sein wird, aber OHNE JEDE GEWÄHRLEISTUNG, bereitgestellt; sogar ohne die implizite Gewährleistung der MARKTFÄHIGKEIT oder EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. Siehe die GNU General Public License für weitere Details. Sie sollten eine Kopie der GNU General Public License zusammen mit diesem Programm erhalten haben. Wenn nicht, siehe . #comments-end #EndRegion ;Legal stuff #Region ;Includes #include #include #include #include #Include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include Opt("MustDeclareVars", 1) #EndRegion ;Includes #Region ;Log File Handling DirCreate(@ScriptDir & "\Log") If FileExists(@ScriptDir & "\Log\EPG-Buddy_3.log") Then FileMove(@ScriptDir & "\Log\EPG-Buddy_3.log", @ScriptDir & "\Log\EPG-Buddy_4.log", 1) EndIf If FileExists(@ScriptDir & "\Log\EPG-Buddy_2.log") Then FileMove(@ScriptDir & "\Log\EPG-Buddy_2.log", @ScriptDir & "\Log\EPG-Buddy_3.log", 1) EndIf If FileExists(@ScriptDir & "\Log\EPG-Buddy_1.log") Then FileMove(@ScriptDir & "\Log\EPG-Buddy_1.log", @ScriptDir & "\Log\EPG-Buddy_2.log", 1) EndIf If FileExists(@ScriptDir & "\Log\EPG-Buddy.log") Then FileMove(@ScriptDir & "\Log\EPG-Buddy.log", @ScriptDir & "\Log\EPG-Buddy_1.log", 1) EndIf #EndRegion #Region ;Ini Read Config ;Files, Folders & Credentials Global $ini_tv_database_DVBV = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", @MyDocumentsDir & "\video.ini") Global $ini_tv_database_MP2 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", "C:\ProgramData\Team MediaPortal\MP2-Server\Database\MP2TVE_3.s3db") Global $ini_tv_database_NPVR = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", "c:\Users\Public\NPVR-data\npvr.db3") Global $ini_tv_database_Argus_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", "Localhost") Global $ini_tv_database_Argus_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", "root") Global $ini_tv_database_Argus_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", "MediaPortal") Global $ini_tv_database_MySQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", "Localhost") Global $ini_tv_database_MySQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", "root") Global $ini_tv_database_MySQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", "MediaPortal") Global $ini_tv_database_MSSQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", @ComputerName) Global $ini_tv_database_MSSQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", "sa") Global $ini_tv_database_MSSQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", "MediaPortal") Global $ini_database_clickfinder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_Clickfinder", @AppDataDir & "\TV Movie\TV Movie ClickFinder\tvdaten.mdb") Global $ini_xepg_folder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xepg_folder", @ProgramFilesDir & "\xepg\xepg.exe") Global $ini_xml_folder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", @ScriptDir) Global $ini_xml_name = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_name", "TVGuide") Global $ini_xml_suffix = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_suffix", "1") Global $ini_task = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_task", "") ;Config Global $ini_cacheclean = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_cacheclean", "1") Global $ini_channelname = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") Global $ini_combine = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine", "") Global $ini_combine_xml = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine_xml", "1") Global $ini_epg_source_tvspielfilm = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", "4") Global $ini_epg_source_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", "4") Global $ini_epg_source_rytec = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_rytec", "4") Global $ini_epg_source_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", "4") Global $ini_epg_source_clickfinder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", "4") Global $ini_epg_source_tvguide = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", "4") Global $ini_epg_source_xml = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", "4") Global $ini_gui_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_gui_flag", @ScriptDir & "\Images\Flags\en.jpg") Global $ini_language = IniRead(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_language", "English") Global $ini_loglevel = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_loglevel", "4") Global $ini_maxdays_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", "14") Global $ini_mapping = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_mapping", "1") Global $ini_maxdays_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", "14") Global $ini_maxdays_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_webgrab", "14") Global $ini_maxdays_tvspielfilm = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvspielfilm", "14") Global $ini_maxdays_tvguide = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvguide", "14") Global $ini_meta_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_meta_flag", @ScriptDir & "\Images\Flags\en.jpg") Global $ini_meta_language = IniRead(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_meta_language", "en") Global $ini_pass_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", "") Global $ini_pass_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", "") Global $ini_plot_override = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", "4") Global $ini_series_override = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_series_override", "1") Global $ini_tvdatabase = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "Manual") Global $ini_notmdb_tvspielfilm = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvspielfilm", "4") Global $ini_notmdb_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_webgrab", "4") Global $ini_notmdb_rytec = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_rytec", "4") Global $ini_notmdb_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_epgdata", "4") Global $ini_notmdb_clickfinder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_clickfinder", "4") Global $ini_notmdb_tvguide = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvguide", "4") Global $ini_notmdb_xml = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_xml", "4") Global $ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1") Global $ini_lastsubmodule2 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "21") Global $ini_lastsubmodule3 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "31") Global $ini_schedule_wake = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_wake", "1") Global $ini_schedule_delay = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_delay", "1") Global $ini_schedule_idle = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_idle", "4") Global $ini_task_parameter = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_parameter", "") Global $ini_task_run = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_run", "4") Global $ini_task_type = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_type", "1.4") Global $ini_user_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", "username") Global $ini_email_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", "forum email-address") Global $ini_pass_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", "password") Global $ini_xepg = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_xepg", "4") ;Day & Time Global $ini_monday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_monday", "1") Global $ini_tuesday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tuesday", "1") Global $ini_wednesday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_wednesday", "1") Global $ini_thursday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_thursday", "1") Global $ini_friday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_friday", "1") Global $ini_saturday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_saturday", "1") Global $ini_sunday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_sunday", "1") Global $ini_time = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_time", "09:00") #EndRegion ;Ini Read Config #Region ;Ini Read Localized Strings Global $lng_about = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_about", "About") Global $lng_above = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_above", "At least") Global $lng_accomplished = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_accomplished", "Mission accomplished") Global $lng_action = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_action", "Action") Global $lng_areyousure= IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_areyousure", "Are you sure?") Global $lng_below = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_below", "Up to") Global $lng_cancel = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel", "Cancel") Global $lng_cancel1 = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel1", "Abort recent Action.") Global $lng_cancel2 = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel2", "Yes -> Abort now!") Global $lng_cancel3 = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel3", "No -> Do nothing.") Global $lng_channeldbname = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_channeldbname", "Channel name in TV database") Global $lng_channelname = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_channelname", "Channel names") Global $lng_channelsettings = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_channelsettings", "Mapping and settings for") Global $lng_clock = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_clock", "Time") Global $lng_clearcache = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_clearcache", "Clear cache?") Global $lng_combine = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_combine", "Combine ComedyCentral and Viva?") Global $lng_combine_name = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_combine_name", "Name of the combined channel") Global $lng_combine_xml = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_combine_xml", "Combine XML files?") Global $lng_counter = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_counter", "Counter") Global $lng_createschedule = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_createschedule", "Create schedule") Global $lng_credentials = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_credentials", "Credentials") Global $lng_database = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_database", "Database") Global $lng_databasemode = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_databasemode", "Database mode") Global $lng_day = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_day", "Day") Global $lng_days = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_days", "How much days to grab?") Global $lng_daysgrab = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_daysgrab", "Days to grab") Global $lng_deleteschedule = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_deleteschedule", "Delete schedule") Global $lng_doc = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_doc", "Documentation") Global $lng_epgdata = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata", "EPG Data") Global $lng_epgdata_int = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_int", "Global") Global $lng_epgdata_eur = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_eur", "Europe") Global $lng_epgdata_ger = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_ger", "Germany") Global $lng_epgdata_usa = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_usa", "USA") Global $lng_epgwizard = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgwizard", "EPG Source") Global $lng_errmsg = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_errmsg", "An error occured") Global $lng_error = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_error", "Error") Global $lng_exit = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_exit", "Exit Program") Global $lng_externalxml = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_externalxml", "External XML") Global $lng_files = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_files", "File") Global $lng_folder = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_folder", "Folder") Global $lng_fri = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_fri", "Friday") Global $lng_global = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_global", "Global settings") Global $lng_go = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_go", "Start") Global $lng_grabfrom = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_grabfrom", " grab from") Global $lng_grabnow = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_grabnow", "Grab EPG now?") Global $lng_groupselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_groupselect", "Category preselection") Global $lng_groupset = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_groupset", "Set") Global $lng_ignorechars = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_ignorechars", "Clear chars before searching TMDB:") Global $lng_inputfoldertext = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_inputfoldertext", "Choose Directory to save tvguide.xml files") Global $lng_langchange = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_langchange", "You need to restart EPG-Buddy to activate changes. Restart now?") Global $lng_language = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_language", "GUI language") Global $lng_langselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_langselect", "Select GUI language") Global $lng_makeWGconfig = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_makeWGconfig", "Generate WebGrab config now?") Global $lng_manual = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_manual", "Manual") Global $lng_mapping = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_mapping", "Activate Genre Mapping?") Global $lng_metadata = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_metadata", "TMDB metadata language:") Global $lng_loadtvdb = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_loadtvdb", "Load series data from TMDB") Global $lng_mon = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_mon", "Monday") Global $lng_notvdb = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_notvdb", "Never load series data from TMDB?") Global $lng_options = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_options", "Options") Global $lng_path = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_path", "URL/Path") Global $lng_plotoverwrite = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_plotoverwrite", "Always overwrite plot with TMDB data?") Global $lng_program = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_program", "Program") Global $lng_regionpreselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_regionpreselect", "Region- preselection") Global $lng_regionselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_regionselect", "Region- selection") Global $lng_sat = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_sat", "Saturday") Global $lng_save = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_save", "Save") Global $lng_saveconfig = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_saveconfig", "Save Settings") Global $lng_saveexit = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_saveexit", "Yes -> Save and exit") Global $lng_savenotexit = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_savenotexit", "No -> Save") Global $lng_savenot = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_savenot", "Cancel -> Don't save") Global $lng_schedules = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedules", "Schedule") Global $lng_schedule_wake = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedule_wake", "Wake system for download") Global $lng_schedule_delay = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedule_delay", "Enable delayed start") Global $lng_schedule_idle = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedule_idle", "Run only when idle") Global $lng_search = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_search", "Search") Global $lng_select = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_select", "Configuration") Global $lng_selectchannel = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_selectchannel", "Select offered channel from EPG data") Global $lng_seriesoverwrite = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_seriesoverwrite", "Always replace series/episodes names with TMDB data?") Global $lng_settings = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_settings", "Settings") Global $lng_sitepreselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_sitepreselect", "Website- preselection") Global $lng_siteselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_siteselect", "Website- selection") Global $lng_success = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_success", "Success") Global $lng_waiting = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_waiting", "Waiting") Global $lng_workingdrive = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_workingdrive", "Working drive:") Global $lng_sun = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_sun", "Sunday") Global $lng_show = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_show", "Show") Global $lng_task = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_task", "Run task after grabbing?") Global $lng_taskplaner = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_taskplaner", "Taskplaner version:") Global $lng_thu = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_thu", "Thursday") Global $lng_timeinput = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_timeinput", "Please enter time in 24 hours format - HH:MM - (Example: 6.00pm = 18:00)") Global $lng_tue = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tue", "Tuesday") Global $lng_tvdbfile = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvdbsource", "TV database") Global $lng_tvdbsource = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvdbsource", "TV database source") Global $lng_tvguidelst = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvguidelst", " Create 'TVguide.lst' for MediaPortal?") Global $lng_tvwizard = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvwizard", "Setup TV database") Global $lng_wen = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_wen", "Wednesday") Global $lng_xepg = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xepg", "Run Xepg Importer after grabbing?") Global $lng_xepg_folder = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xepg_folder", "Path to Xepg (DVB-Viewer)") Global $lng_xml_name= IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xml_name", "XML- name") Global $lng_xml_suffix= IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xml_suffix", "XML- suffix") Global $lng_xmltv_line = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xmltv_line", "---------- means channel- name will not be changed") Global $lng_xmltv_name = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xmltv_name", "Recent channel- name in tvguide.xml") Global $lng_yes = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_yes", "Yes") Global $lng_zerodays = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_zerodays", "0 means nothing will be grabbed") #EndRegion ;Ini Read Localized Strings #Region ;Declare Global Variables Dim $list_WebGrab[1] Global $channel_query, $channel_array, $channel_Rows, $channel_Columns, $fle_hwnd Dim $line[1] Global $chars_query, $chars_array, $chars_Rows, $chars_Columns, $Ignore_Chars Global $channel_query3, $channel_array3, $channel_Rows3, $channel_Columns3 Global $channel_query4, $channel_array4, $channel_Rows4, $channel_Columns4 Global $channel_query5, $channel_array5, $channel_Rows5, $channel_Columns5 Global $channel_query6, $channel_array6, $channel_Rows6, $channel_Columns6 Global $channel_query7, $channel_array7, $channel_Rows7, $channel_Columns7 Global $Clock = "00:00", $channel_Rval, $channel_Rval3, $channel_Rval5, $channel_Rval6, $channel_Rval4, $channel_Rval7, $comboitem_32_11 = "", $comboitem_37_11 = "" Global $listitem_31_11 = "", $listitem_32_11 = "", $listitem_33_11 = "", $listitem_35_11 = "", $listitem_36_11 = "", $listitem_34_11 = "", $listitem_37_11 = "" Global $ini_email_tvguide, $ini_pass_tvguide, $ini_path_xml, $ini_user_xml, $ini_pass_xml Global $line, $file, $Version Dim $ver[1] If @Compiled = 1 Then Global $Version = FileGetVersion(@ScriptFullPath) Else $file = FileOpen(@ScriptFullPath, 0) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf While 1 $line = FileReadLine($file) If @error = -1 Then ExitLoop If StringInStr($line, "#AutoIt3Wrapper_Res_Fileversion=") Then $ver = StringSplit($line, "=") $Version = $ver[2] ExitLoop EndIf WEnd FileClose($file) EndIf Global $Title = "EPG-Buddy " & $Version, $index_prev, $showitem_32_11 = 1, $showitem_37_11 = 1 _WriteLog("*********************************") _WriteLog("* *") _WriteLog("* Starting " & $Title & " *") _WriteLog("* *") _WriteLog("*********************************") _WriteLog(" ") _WriteLog("Info - Read Localized Strings") _WriteLog("Info - Read Configuration From Ini") _WriteLog("Info - Declared Global Variables") #EndRegion ;Declare Global Variables #Region ;Initial preparations Global $Splashwindow = GUICreate($Title, 640, 270, -1, -1, $WS_POPUP) GUISetState(@SW_SHOW, $Splashwindow) GUISetBkColor("0xffffff") Global $S_Pic02 = GUICtrlCreatePic (@ScriptDir & "\Images\Line_1.jpg", 0, 73, 638, 1) Global $S_Pic01 = GUICtrlCreatePic (@ScriptDir & "\Images\splash.jpg", 0, 0, 640, 270) Global $S_Label01 = GUICtrlCreateLabel("EPG-Buddy is starting, please be patient.", 20, 100, 600, 50) GUICtrlSetFont(-1, 20, 600, 0, "Georgia") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1, $COLOR_CREAM) Global $S_Label02 = GUICtrlCreateLabel("Start initial preparation", 20, 200, 600, 50) GUICtrlSetFont(-1, 15, 600, 0, "Georgia") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1,$COLOR_CREAM) GUISetState(@SW_SHOW, $Splashwindow) ;Startup SQLite _SQLite_Startup() If @error Then MsgBox($MB_SYSTEMMODAL, "SQLite Error", "No SQlite3.dll found") Exit -1 EndIf Global $buddy_db = _SQLite_Open(@ScriptDir & "\EPG-Buddy.s3db") If @error Then MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Could Not Create Database") Exit -1 EndIf GUICtrlSetData($S_Label02, "SQlite Started") _WriteLog("Info - SQlite Started") ; Create new tables if not exist _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS WEBGRAB_SITEINI (SITEINI_NAME TEXT NOT NULL ON CONFLICT IGNORE UNIQUE ON CONFLICT IGNORE, SITEINI_USE TEXT DEFAULT FALSE) ;") _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS TVGUIDE_CREDENTIALS (EMAIL TEXT, PASSWORD TEXT) ;") _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EXTERNALXML_CREDENTIALS (PATH TEXT, USER TEXT, PASSWORD TEXT) ;") _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS GROUPS (GROUP_TVSPIELFILM TEXT UNIQUE ON CONFLICT IGNORE, GROUP_CLICKFINDER TEXT UNIQUE ON CONFLICT IGNORE) ;") _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EPG_GRABBER_COMBINED_CHANNELS(PROVIDER TEXT, NAME TEXT, CHANNELS TEXT, OFFSET INT DEFAULT 0, CHANNEL TEXT) ;") _WriteLog("Info - Updated Tables") If FileExists(@ScriptDir & "\groups.ini") Then $line = FileReadToArray(@ScriptDir & "\groups.ini") For $i = 0 To UBound($line) -1 _SQLite_Exec($buddy_db, 'INSERT INTO GROUPS (GROUP_TVSPIELFILM) VALUES ("' & $line[$i] & '") ;') Next EndIf If FileExists(@ScriptDir & "\groups3.ini") Then $line = FileReadToArray(@ScriptDir & "\groups3.ini") For $i = 0 To UBound($line) -1 _SQLite_Exec($buddy_db, 'INSERT INTO GROUPS (GROUP_CLICKFINDER) VALUES ("' & $line[$i] & '") ;') Next EndIf $ini_email_tvguide = FileRead(@ScriptDir & "\email_tvguide.txt") $ini_pass_tvguide = FileRead(@ScriptDir & "\pass_tvguide.txt") $ini_path_xml = FileRead(@ScriptDir & "\path_xml.txt") $ini_user_xml = FileRead(@ScriptDir & "\user_xml.txt") $ini_pass_xml = FileRead(@ScriptDir & "\pass_xml.txt") ; Refresh Available Channels List _Refresh_channellist() _WriteLog("Info - Channrel Lists Refreshed") ; Read Available Channels for TVSpielfilm $channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVSPIELFILM_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array, $channel_Rows, $channel_Columns) _WriteLog("Info - Read Available Channels for TVSpielfilm") ; Read Available Channels for TVGuide $channel_query5 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVGUIDE_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval5 = _SQLite_GetTable2d($buddy_db, $channel_query5, $channel_array5, $channel_Rows5, $channel_Columns5) _WriteLog("Info - Read Available Channels for TVGuide") ; Read Available Channels for External XML $channel_query6 = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval6 = _SQLite_GetTable2d($buddy_db, $channel_query6, $channel_array6, $channel_Rows6, $channel_Columns6) _WriteLog("Info - Read Available Channels for External XML") ; Read Available Channels for epgData.com $channel_query3 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM EPGDATA_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval3 = _SQLite_GetTable2d($buddy_db, $channel_query3, $channel_array3, $channel_Rows3, $channel_Columns3) _WriteLog("Info - Read Available Channels for epgData.com") ; Read Available Channels for Clickfinder $channel_query4 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM CLICKFINDER_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval4 = _SQLite_GetTable2d($buddy_db, $channel_query4, $channel_array4, $channel_Rows4, $channel_Columns4) _WriteLog("Info - Read Available Channels for Clickfinder") GUICtrlSetData($S_Label02, "Successfully Readed Available Channels") ; Read Available Channels for Rytec $channel_query7 = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval7 = _SQLite_GetTable2d($buddy_db, $channel_query7, $channel_array7, $channel_Rows7, $channel_Columns7) _WriteLog("Info - Read Available Channels for External XML") ; Read Chars to ignore for TMDB search $chars_query = "SELECT VALUE FROM EPG_GRABBER_SETTINGS WHERE SETTING LIKE 'Clear_Chars_Before_Searching_TVDB' ;" Global $chars_Rval = _SQLite_GetTable($buddy_db, $chars_query, $chars_array, $chars_Rows, $chars_Columns) If _ElementExists($chars_array, 2) Then $Ignore_Chars = $chars_array[2] EndIf _WriteLog("Info - Read Chars to ignore for TMDB search") ; Read Available Groups Dim $group[1] Dim $group_array[1] Dim $group3[1] Dim $group_array3[1] For $i = 1 To UBound($channel_array) - 1 _ArrayAdd($group, $channel_array[$i][2]) Next $group_array = _ArrayUnique($group) For $i = 1 To UBound($channel_array4) - 1 _ArrayAdd($group3, $channel_array4[$i][2]) Next $group_array3 = _ArrayUnique($group3) _WriteLog("Info - Read Available Groups") ; Read checked groups If Not FileExists(@ScriptDir & "\groups.ini") Then $fle_hwnd = FileOpen(@ScriptDir & "\groups.ini", 9) Sleep(1) FileClose($fle_hwnd) EndIf Dim $Groups_checked[1] _FileReadToArray(@ScriptDir & "\groups.ini", $Groups_checked) If Not FileExists(@ScriptDir & "\groups3.ini") Then $fle_hwnd = FileOpen(@ScriptDir & "\groups3.ini", 9) Sleep(1) FileClose($fle_hwnd) EndIf Dim $Groups_checked3[1] _FileReadToArray(@ScriptDir & "\groups3.ini", $Groups_checked3) _WriteLog("Info - Read Checked Groups") _WriteLog("Info - Start Generating Main GUI Window") GUICtrlSetData($S_Label02, "Start Generating Main GUI Window") #EndRegion ;Initial preparations #Region ;Main Window #Region ;Generate Header And Footer Local $style = $WS_SYSMENU + $WS_CAPTION + $WS_MINIMIZEBOX + $WS_EX_ACCEPTFILES + $BS_PUSHLIKE Global $Mainwindow = GUICreate($Title, 1004, 680, -1, -1, $style) GUISetState(@SW_HIDE, $Mainwindow) GUISetBkColor("0xffffff") Global $Pic01 = GUICtrlCreatePic (@ScriptDir & "\Images\EPG-Buddy_Header.jpg", 0, 0, 1004, 111) Global $Pic03 = GUICtrlCreatePic (@ScriptDir & "\Images\Line_1.jpg", 0, 111, 1004, 1) Global $Label01 = GUICtrlCreateLabel($Title, 1, 632, 1003, 28, $SS_ETCHEDFRAME) Global $Label02 = GUICtrlCreateLabel($lng_waiting, 10, 639, 900, 18) Global $Label03 = GUICtrlCreateLabel($Clock, 935, 639, 50, 18, $SS_RIGHT) #EndRegion #Region ;Generate Main Menu Global $Filemenu = GUICtrlCreateMenu($lng_files) Global $tvwizarditem = GUICtrlCreateMenuItem($lng_tvwizard, $filemenu) Global $epgwizarditem = GUICtrlCreateMenuItem($lng_epgwizard, $filemenu) Global $epgdataitem = GUICtrlCreateMenuItem($lng_epgdata, $filemenu) Global $schedulesitem = GUICtrlCreateMenuItem($lng_schedules, $filemenu) Global $settingsitem = GUICtrlCreateMenuItem($lng_settings, $filemenu) GUICtrlCreateMenuItem("", $Filemenu) Global $Exititem = GUICtrlCreateMenuItem($lng_exit, $filemenu) #EndRegion #Region ;Generate Help Menu Global $Helpmenu = GUICtrlCreateMenu("?") Global $Infoitem = GUICtrlCreateMenuItem($lng_about, $helpmenu) Global $Docitem = GUICtrlCreateMenuItem($lng_doc, $helpmenu) #EndRegion #Region ;Generate Main Navigation Global $Navigation_Button_01 = GUICtrlCreateButton($lng_tvwizard, 2, 112, 200, 25) GUICtrlSetFont(-1, 10, 0, 0, "Verdana") Global $Navigation_Button_02 = GUICtrlCreateButton($lng_epgwizard, 202, 112, 200, 25, $BS_FLAT) GUICtrlSetFont(-1, 10, 0, 0, "Verdana") Global $Navigation_Button_03 = GUICtrlCreateButton($lng_epgdata, 402, 112, 200, 25) GUICtrlSetFont(-1, 10, 0, 0, "Verdana") Global $Navigation_Button_04 = GUICtrlCreateButton($lng_schedules, 602, 112, 200, 25) GUICtrlSetFont(-1, 10, 0, 0, "Verdana") Global $Navigation_Button_05 = GUICtrlCreateButton($lng_settings, 802, 112, 200, 25) GUICtrlSetFont(-1, 10, 0, 0, "Verdana") Global $Navigation_Pic_01 = GUICtrlCreatePic (@ScriptDir & "\Images\Line_1.jpg", 0, 138, 15100, 1) #EndRegion #Region ;Generate TV Settings GUI (1-1) Global $label_11_01 = GUICtrlCreateLabel($lng_tvwizard, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $input_11_01 = GUICtrlCreateInput($ini_tv_database_MP2, 150, 250, 400, 20) Global $button_11_01 = GUICtrlCreateButton($lng_search, 570, 247, 60) Global $label_11_02 = GUICtrlCreateLabel("MySQL Server :", 150, 300, 80, 20) Global $input_11_02 = GUICtrlCreateInput($ini_tv_database_MySQL_server, 230, 298, 150, 20) Global $label_11_03 = GUICtrlCreateLabel("MySQL User :", 400, 300, 80) Global $input_11_03 = GUICtrlCreateInput($ini_tv_database_MySQL_user, 470, 298, 150, 20) Global $label_11_04 = GUICtrlCreateLabel("MySQL Password :", 640, 300, 100) Global $input_11_04 = GUICtrlCreateInput($ini_tv_database_MySQL_pass, 735, 298, 150, 20) Global $label_11_05 = GUICtrlCreateLabel("MSSQL Server :", 150, 350, 80, 20) Global $input_11_05 = GUICtrlCreateInput($ini_tv_database_MSSQL_server, 230,348, 150, 20) Global $label_11_06 = GUICtrlCreateLabel("MSSQL User :", 400, 350, 80) Global $input_11_06 = GUICtrlCreateInput($ini_tv_database_MSSQL_user, 470, 348, 150, 20) Global $label_11_07 = GUICtrlCreateLabel("MSSQL Password :", 640, 350, 100) Global $input_11_07 = GUICtrlCreateInput($ini_tv_database_MSSQL_pass, 735, 348, 150, 20) Global $label_11_10 = GUICtrlCreateLabel("ArgusTV Server :", 150, 400, 80, 20) Global $input_11_10 = GUICtrlCreateInput($ini_tv_database_Argus_server, 230, 398, 150, 20) Global $label_11_08 = GUICtrlCreateLabel("ArgusTV User :", 400, 400, 80) Global $input_11_08 = GUICtrlCreateInput($ini_tv_database_Argus_user, 470, 398, 150, 20) Global $label_11_09 = GUICtrlCreateLabel("ArgusTV Password :", 640, 400, 100) Global $input_11_09 = GUICtrlCreateInput($ini_tv_database_Argus_pass, 735, 398, 150, 20) Global $input_11_11 = GUICtrlCreateInput($ini_tv_database_NPVR, 150, 450, 400, 20) Global $button_11_11 = GUICtrlCreateButton($lng_search, 570, 447, 60) Global $input_11_13 = GUICtrlCreateInput($ini_tv_database_DVBV, 150, 500, 400, 20) Global $button_11_13 = GUICtrlCreateButton($lng_search, 570, 497, 60) Global $button_11_02 = GUICtrlCreateButton($lng_save, 905, 583, 80) GUIStartGroup() Global $radio_11_01 = GUICtrlCreateRadio("MP2- SQLite ", 20, 248, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $radio_11_02 = GUICtrlCreateRadio("MP1/2 MySQL ", 20, 298, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $radio_11_03 = GUICtrlCreateRadio("MP1- MSSQL ", 20, 348, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $radio_11_04 = GUICtrlCreateRadio("ArgusTV ", 20, 398, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $radio_11_05 = GUICtrlCreateRadio("NextPVR ", 20, 448, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $radio_11_06 = GUICtrlCreateRadio("DVB-Viewer ", 20, 498, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $radio_11_07 = GUICtrlCreateRadio($lng_manual, 20, 583, 130, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") If $ini_tvdatabase = "SQLite" Then GUICtrlSetState($radio_11_01, $GUI_CHECKED) EndIf If $ini_tvdatabase = "MySQL" Then GUICtrlSetState($radio_11_02, $GUI_CHECKED) EndIf If $ini_tvdatabase = "MSSQL" Then GUICtrlSetState($radio_11_03, $GUI_CHECKED) EndIf If $ini_tvdatabase = "Argus" Then GUICtrlSetState($radio_11_04, $GUI_CHECKED) EndIf If $ini_tvdatabase = "Argus" Then GUICtrlSetState($radio_11_04, $GUI_CHECKED) EndIf If $ini_tvdatabase = "NextPVR" Then GUICtrlSetState($radio_11_05, $GUI_CHECKED) EndIf If $ini_tvdatabase = "DVBV" Then GUICtrlSetState($radio_11_06, $GUI_CHECKED) EndIf If $ini_tvdatabase = "Manual" Then GUICtrlSetState($radio_11_07, $GUI_CHECKED) EndIf Dim $Array_GUI_Elements_11[1] _ArrayAdd($Array_GUI_Elements_11, $button_11_01) _ArrayAdd($Array_GUI_Elements_11, $button_11_02) _ArrayAdd($Array_GUI_Elements_11, $button_11_11) _ArrayAdd($Array_GUI_Elements_11, $button_11_13) _ArrayAdd($Array_GUI_Elements_11, $input_11_01) _ArrayAdd($Array_GUI_Elements_11, $input_11_02) _ArrayAdd($Array_GUI_Elements_11, $input_11_03) _ArrayAdd($Array_GUI_Elements_11, $input_11_04) _ArrayAdd($Array_GUI_Elements_11, $input_11_05) _ArrayAdd($Array_GUI_Elements_11, $input_11_06) _ArrayAdd($Array_GUI_Elements_11, $input_11_07) _ArrayAdd($Array_GUI_Elements_11, $input_11_08) _ArrayAdd($Array_GUI_Elements_11, $input_11_09) _ArrayAdd($Array_GUI_Elements_11, $input_11_10) _ArrayAdd($Array_GUI_Elements_11, $input_11_11) _ArrayAdd($Array_GUI_Elements_11, $input_11_13) _ArrayAdd($Array_GUI_Elements_11, $label_11_01) _ArrayAdd($Array_GUI_Elements_11, $label_11_02) _ArrayAdd($Array_GUI_Elements_11, $label_11_03) _ArrayAdd($Array_GUI_Elements_11, $label_11_04) _ArrayAdd($Array_GUI_Elements_11, $label_11_05) _ArrayAdd($Array_GUI_Elements_11, $label_11_06) _ArrayAdd($Array_GUI_Elements_11, $label_11_07) _ArrayAdd($Array_GUI_Elements_11, $label_11_08) _ArrayAdd($Array_GUI_Elements_11, $label_11_09) _ArrayAdd($Array_GUI_Elements_11, $label_11_10) _ArrayAdd($Array_GUI_Elements_11, $radio_11_01) _ArrayAdd($Array_GUI_Elements_11, $radio_11_02) _ArrayAdd($Array_GUI_Elements_11, $radio_11_03) _ArrayAdd($Array_GUI_Elements_11, $radio_11_04) _ArrayAdd($Array_GUI_Elements_11, $radio_11_05) _ArrayAdd($Array_GUI_Elements_11, $radio_11_06) _ArrayAdd($Array_GUI_Elements_11, $radio_11_07) #EndRegion ;Generate TV Settings GUI (1) #Region ;Generate EPG Settings GUI (2) Global $label_02_02 = GUICtrlCreateLabel($lng_epgwizard & " " & $lng_select, 20, 230, 400) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_02_03 = GUICtrlCreateLabel($lng_credentials, 250, 230, 400) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $Select_Button_02_01 = GUICtrlCreateButton($lng_epgdata_int, 302, 140, 150, 25) Global $Select_Button_02_03 = GUICtrlCreateButton($lng_epgdata_eur, 2, 140, 150, 25) Global $Select_Button_02_04 = GUICtrlCreateButton($lng_epgdata_usa, 152, 140, 150, 25) Global $button_02_01 = GUICtrlCreateButton($lng_save, 905, 583, 80) Dim $Array_GUI_Elements_02[1] _ArrayAdd($Array_GUI_Elements_02, $button_02_01) _ArrayAdd($Array_GUI_Elements_02, $Select_Button_02_01) _ArrayAdd($Array_GUI_Elements_02, $Select_Button_02_03) _ArrayAdd($Array_GUI_Elements_02, $Select_Button_02_04) _ArrayAdd($Array_GUI_Elements_02, $label_02_02) _ArrayAdd($Array_GUI_Elements_02, $label_02_03) #EndRegion #Region ;Generate EPG Settings GUI International (21) Global $label_21_01 = GUICtrlCreateLabel($lng_epgwizard & " - " & $lng_epgdata_int, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_21_01 = GUICtrlCreatePic(@ScriptDir & "\Images\global.jpg", 900, 177, 68, 68) Global $check_21_01 = GUICtrlCreateCheckbox("WebGrab+Plus", 20, 290, 100, 20) Global $button_21_01 = GUICtrlCreateButton("WebGrab+Plus", 150, 273, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\WebGrab+Plus-Logo.bmp") Global $label_21_02 = GUICtrlCreateLabel("User:", 2500, 290, 30, 20) Global $password_21_02 = GUICtrlCreateInput($ini_user_webgrab, 2800, 288, 150, 20, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL) Global $label_21_03 = GUICtrlCreateLabel("Email:", 4500, 290, 30, 20) Global $password_21_03 = GUICtrlCreateInput($ini_email_webgrab, 4850, 288, 150, 20, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL) Global $label_21_04 = GUICtrlCreateLabel("Password:", 6550, 290, 50, 20) Global $password_21_04 = GUICtrlCreateInput($ini_pass_webgrab, 7100, 288, 150, 20, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL) Global $check_21_11 = GUICtrlCreateCheckbox($lng_externalxml, 20, 355, 130, 20) Global $button_21_11 = GUICtrlCreateButton("XML.com", 150, 338, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\XML-logo.bmp") Global $label_21_11 = GUICtrlCreateLabel($lng_path, 250, 358, 100, 20) Global $password_21_11 = GUICtrlCreateInput($ini_path_xml, 310, 342, 450, 50, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL) If $ini_epg_source_webgrab = "1" Then GUICtrlSetState($check_21_01, $GUI_CHECKED) Else GUICtrlSetState($check_21_01, $GUI_UNCHECKED) EndIf If $ini_epg_source_xml = "1" Then GUICtrlSetState($check_21_11, $GUI_CHECKED) Else GUICtrlSetState($check_21_11, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_21[1] _ArrayAdd($Array_GUI_Elements_21, $button_21_01) _ArrayAdd($Array_GUI_Elements_21, $button_21_11) _ArrayAdd($Array_GUI_Elements_21, $check_21_01) _ArrayAdd($Array_GUI_Elements_21, $check_21_11) _ArrayAdd($Array_GUI_Elements_21, $label_21_01) _ArrayAdd($Array_GUI_Elements_21, $label_21_02) _ArrayAdd($Array_GUI_Elements_21, $label_21_03) _ArrayAdd($Array_GUI_Elements_21, $label_21_04) _ArrayAdd($Array_GUI_Elements_21, $label_21_11) _ArrayAdd($Array_GUI_Elements_21, $password_21_02) _ArrayAdd($Array_GUI_Elements_21, $password_21_03) _ArrayAdd($Array_GUI_Elements_21, $password_21_04) _ArrayAdd($Array_GUI_Elements_21, $password_21_11) _ArrayAdd($Array_GUI_Elements_21, $pic_21_01) #EndRegion ;Generate EPG Settings GUI (2) #Region ;Generate EPG Settings GUI Europe (23) Global $label_23_01 = GUICtrlCreateLabel($lng_epgwizard & " - " & $lng_epgdata_eur, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_23_01 = GUICtrlCreatePic(@ScriptDir & "\Images\eur.jpg", 900, 183, 68, 40) Global $check_23_04 = GUICtrlCreateCheckbox("Rytec", 20, 290, 100, 20) Global $button_23_04 = GUICtrlCreateButton("Rytec", 150, 273, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\Rytec-Logo.bmp") Global $check_23_01 = GUICtrlCreateCheckbox("TVSpielfilm", 20, 350, 100, 20) Global $button_23_01 = GUICtrlCreateButton("TVSpielfilm", 150, 333, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\TVSpielfilm-Logo.bmp") Global $check_23_02 = GUICtrlCreateCheckbox("Clickfinder", 20, 410, 100, 20) Global $button_23_02 = GUICtrlCreateButton("Clickfinder", 150, 393, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\TV_Movie-Logo.bmp") Global $input_23_02 = GUICtrlCreateInput($ini_database_clickfinder, 320, 407, 430, 20) Global $button_23_02a = GUICtrlCreateButton($lng_search, 770, 404, 60) Global $label_23_02 = GUICtrlCreateLabel($lng_database & ": ", 250, 410, 60) Global $check_23_03 = GUICtrlCreateCheckbox("epgData.com", 20, 470, 100, 20) Global $button_23_03 = GUICtrlCreateButton("epgData.com", 150, 453, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\epgDATA-Logo.bmp") Global $label_23_03 = GUICtrlCreateLabel("Pin:", 250, 470, 30, 20) Global $password_23_03 = GUICtrlCreateInput($ini_pass_epgdata, 275, 467, 275, 20) If $ini_epg_source_tvspielfilm = "1" Then GUICtrlSetState($check_23_01, $GUI_CHECKED) Else GUICtrlSetState($check_23_01, $GUI_UNCHECKED) EndIf If $ini_epg_source_epgdata = "1" Then GUICtrlSetState($check_23_03, $GUI_CHECKED) Else GUICtrlSetState($check_23_03, $GUI_UNCHECKED) EndIf If $ini_epg_source_clickfinder = "1" Then GUICtrlSetState($check_23_02, $GUI_CHECKED) Else GUICtrlSetState($check_23_02, $GUI_UNCHECKED) EndIf If $ini_epg_source_rytec = "1" Then GUICtrlSetState($check_23_04, $GUI_CHECKED) Else GUICtrlSetState($check_23_04, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_23[1] _ArrayAdd($Array_GUI_Elements_23, $button_23_01) _ArrayAdd($Array_GUI_Elements_23, $button_23_02) _ArrayAdd($Array_GUI_Elements_23, $button_23_02a) _ArrayAdd($Array_GUI_Elements_23, $button_23_03) _ArrayAdd($Array_GUI_Elements_23, $button_23_04) _ArrayAdd($Array_GUI_Elements_23, $check_23_01) _ArrayAdd($Array_GUI_Elements_23, $check_23_02) _ArrayAdd($Array_GUI_Elements_23, $check_23_03) _ArrayAdd($Array_GUI_Elements_23, $check_23_04) _ArrayAdd($Array_GUI_Elements_23, $input_23_02) _ArrayAdd($Array_GUI_Elements_23, $label_23_01) _ArrayAdd($Array_GUI_Elements_23, $label_23_02) _ArrayAdd($Array_GUI_Elements_23, $label_23_03) _ArrayAdd($Array_GUI_Elements_23, $password_23_03) _ArrayAdd($Array_GUI_Elements_23, $pic_23_01) #EndRegion #Region ;Generate EPG Settings GUI America (24) Global $label_24_01 = GUICtrlCreateLabel($lng_epgwizard & " - " & $lng_epgdata_usa, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_24_01 = GUICtrlCreatePic(@ScriptDir & "\Images\america.jpg", 900, 183, 68, 40) Global $check_24_01 = GUICtrlCreateCheckbox("TVGuide.com", 20, 305, 100, 20) Global $button_24_01 = GUICtrlCreateButton("TVGuide.com", 150, 288, 50, 48, $BS_BITMAP) GUICtrlSetImage(-1, @ScriptDir & "\Images\TVGuidecom-Logo.bmp") Global $label_24_02 = GUICtrlCreateLabel("EMail:", 250, 308, 70, 20) Global $password_24_01 = GUICtrlCreateInput($ini_email_tvguide, 325, 292, 200, 50, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL) Global $label_24_03 = GUICtrlCreateLabel("Password:", 555, 308, 50, 20) Global $password_24_02 = GUICtrlCreateInput($ini_pass_tvguide, 610, 292, 200, 50, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL) If $ini_epg_source_tvguide = "1" Then GUICtrlSetState($check_24_01, $GUI_CHECKED) Else GUICtrlSetState($check_24_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_24[1] _ArrayAdd($Array_GUI_Elements_24, $button_24_01) _ArrayAdd($Array_GUI_Elements_24, $check_24_01) _ArrayAdd($Array_GUI_Elements_24, $label_24_01) _ArrayAdd($Array_GUI_Elements_24, $label_24_02) _ArrayAdd($Array_GUI_Elements_24, $label_24_03) _ArrayAdd($Array_GUI_Elements_24, $password_24_01) _ArrayAdd($Array_GUI_Elements_24, $password_24_02) _ArrayAdd($Array_GUI_Elements_24, $pic_24_01) #EndRegion #Region ;Generate EPG Data GUI (3) Global $Select_Button_03_01 = GUICtrlCreateButton("TV Spielfilm", 288, 140, 143, 25) Global $Select_Button_03_02 = GUICtrlCreateButton("WebGrab+Plus", 431, 140, 143, 25) Global $Select_Button_03_03 = GUICtrlCreateButton("epgData.com", 717, 140, 143, 25) Global $Select_Button_03_04 = GUICtrlCreateButton("Clickfinder", 574,140, 143, 25) Global $Select_Button_03_05 = GUICtrlCreateButton("TVGuide.com", 145, 140, 143, 25) Global $Select_Button_03_06 = GUICtrlCreateButton($lng_externalxml, 860, 140, 142, 25) Global $Select_Button_03_07 = GUICtrlCreateButton("Rytec", 2, 140, 143, 25) Global $label_03_02 = GUICtrlCreateLabel($lng_channelname & " " & $lng_select, 20, 250, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_03_04 = GUICtrlCreateLabel($lng_global, 20, 420, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") GUIStartGroup() Global $radio_03_01 = GUICtrlCreateRadio($lng_manual, 20, 270, 160, 20) Global $radio_03_02 = GUICtrlCreateRadio($lng_databasemode, 20, 290, 160, 20) If $ini_channelname = "1" Then GUICtrlSetState($radio_03_01, $GUI_CHECKED) EndIf If $ini_channelname = "2" Then GUICtrlSetState($radio_03_02, $GUI_CHECKED) EndIf Dim $Array_GUI_Elements_03[1] _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_01) _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_02) _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_03) _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_04) _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_05) _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_06) _ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_07) _ArrayAdd($Array_GUI_Elements_03, $label_03_04) _ArrayAdd($Array_GUI_Elements_03, $label_03_02) _ArrayAdd($Array_GUI_Elements_03, $radio_03_01) _ArrayAdd($Array_GUI_Elements_03, $radio_03_02) #EndRegion #Region ;Generate EPG Data TV Spielfilm GUI (3-1) Global $label_31_01 = GUICtrlCreateLabel($lng_epgdata & " - TVSpielfilm", 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $label_31_03 = GUICtrlCreateLabel($lng_groupselect, 11120, 330, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $button_31_01 = GUICtrlCreateButton($lng_go, 11120, 353, 100) Global $pic_31_01 = GUICtrlCreatePic(@ScriptDir & "\Images\TVSpielfilm-Logo.bmp", 920, 173, 50, 50) Global $check_31_01 = GUICtrlCreateCheckbox("TVSpielfilm - " & $lng_notvdb, 20, 530, 320) ;~ Global $check_31_02 = GUICtrlCreateCheckbox($lng_combine, 20, 450, 320) ;~ Global $label_31_02 = GUICtrlCreateLabel($lng_combine_name, 20, 480, 200) ;~ Global $input_31_02 = GUICtrlCreateInput($ini_combine, 20, 500, 200, 20) Global $label_31_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_31_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_31_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_31_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_31_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_31_24 = GUICtrlCreateLabel("", 700, 320, 250, 20) Global $label_31_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_31_21 = GUICtrlCreateInput("----------", 700, 320, 250, 20) Global $combo_31_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_31_21, "----------", "----------") Global $label_31_26a = GUICtrlCreateLabel($lng_xmltv_line, 700, 410, 350, 20) Global $label_31_26 = GUICtrlCreateLabel($lng_days, 700, 450, 250, 20) Global $input_31_22 = GUICtrlCreateInput($ini_maxdays_tvspielfilm, 700, 470, 50, 20) Global $label_31_27 = GUICtrlCreateLabel($lng_zerodays, 700, 500, 250, 20) Global $check_31_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 540, 250, 20) Global $label_31_91 = GUICtrlCreateLabel($lng_groupselect, 11350, 250, 200, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_31_91 = GUICtrlCreateListview("Name ", 11350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES) Global $button_31_91 = GUICtrlCreateButton($lng_groupset, 11350, 573, 100) ; If $ini_do_combine_tvspielfilm = "1" Then ; GUICtrlSetState($check_31_02, $GUI_CHECKED) ; Else ; GUICtrlSetState($check_31_02, $GUI_UNCHECKED) ; EndIf If $ini_notmdb_tvspielfilm = "1" Then GUICtrlSetState($check_31_01, $GUI_CHECKED) Else GUICtrlSetState($check_31_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_31[1] _ArrayAdd($Array_GUI_Elements_31, $button_31_01) _ArrayAdd($Array_GUI_Elements_31, $check_31_01) ; _ArrayAdd($Array_GUI_Elements_31, $check_31_02) ; _ArrayAdd($Array_GUI_Elements_31, $input_31_02) _ArrayAdd($Array_GUI_Elements_31, $label_31_01) ; _ArrayAdd($Array_GUI_Elements_31, $label_31_02) _ArrayAdd($Array_GUI_Elements_31, $label_31_03) _ArrayAdd($Array_GUI_Elements_31, $label_31_21) _ArrayAdd($Array_GUI_Elements_31, $pic_31_01) _ArrayAdd($Array_GUI_Elements_31, $label_31_22) Dim $Array_GUI_Elements_31_6[1] _ArrayAdd($Array_GUI_Elements_31_6, $check_31_21) _ArrayAdd($Array_GUI_Elements_31_6, $input_31_21) _ArrayAdd($Array_GUI_Elements_31_6, $input_31_22) _ArrayAdd($Array_GUI_Elements_31_6, $label_31_22) _ArrayAdd($Array_GUI_Elements_31_6, $label_31_23) _ArrayAdd($Array_GUI_Elements_31_6, $label_31_26) _ArrayAdd($Array_GUI_Elements_31_6, $label_31_27) Dim $Array_GUI_Elements_31_7[1] _ArrayAdd($Array_GUI_Elements_31_7, $check_31_21) _ArrayAdd($Array_GUI_Elements_31_7, $combo_31_21) _ArrayAdd($Array_GUI_Elements_31_7, $input_31_22) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_22) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_23) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_24) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_25) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_26) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_26a) _ArrayAdd($Array_GUI_Elements_31_7, $label_31_27) Dim $Array_GUI_Elements_31_8[1] _ArrayAdd($Array_GUI_Elements_31_8, $label_31_11) _ArrayAdd($Array_GUI_Elements_31_8, $listview_31_11) Dim $Array_GUI_Elements_31_9[1] _ArrayAdd($Array_GUI_Elements_31_9, $button_31_91) _ArrayAdd($Array_GUI_Elements_31_9, $label_31_91) _ArrayAdd($Array_GUI_Elements_31_9, $listview_31_91) #EndRegion ;Generate EPG Data GUI (3) #Region ;Generate EPG Data WebGrab GUI (3-2) Global $label_32_01 = GUICtrlCreateLabel($lng_epgdata & " - WebGrab+Plus", 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $label_32_03 = GUICtrlCreateLabel($lng_sitepreselect, 20, 330, 200, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $button_32_01 = GUICtrlCreateButton($lng_go, 20, 353, 100) Global $pic_32_01 = GUICtrlCreatePic(@ScriptDir & "\Images\WebGrab+Plus-Logo.bmp", 920, 173, 50, 50) Global $check_32_01 = GUICtrlCreateCheckbox("WebGrab+Plus - " & $lng_notvdb, 20, 530, 320) Global $label_32_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 400, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_32_12 = GUICtrlCreateLabel($lng_siteselect, 350, 280, 200, 20) Global $combo_32_11 = GUICtrlCreateCombo("----------", 350, 310, 170, 20) GUICtrlSetData($combo_32_11, "----------", "----------") Global $button_32_11 = GUICtrlCreateButton($lng_show, 540, 308, 70) Global $listview_32_11 = GUICtrlCreateList("", 350, 350, 260, 250, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_32_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 400, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_32_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_32_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_32_24 = GUICtrlCreateLabel("", 700, 330, 250, 20) Global $label_32_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_32_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20) Global $combo_32_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_32_21, "----------", "----------") Global $label_32_26 = GUICtrlCreateLabel($lng_daysgrab, 65, 573, 250, 20) Global $input_32_22 = GUICtrlCreateInput($ini_maxdays_webgrab, 20, 570, 40, 20) Global $check_32_22 = GUICtrlCreateCheckbox("", 700, 420, 300, 20) Global $check_32_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20) Global $label_32_27 = GUICtrlCreateLabel($lng_makeWGconfig, 700, 553, 250, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $button_32_21 = GUICtrlCreateButton($lng_go, 850, 580, 100) Global $label_32_91 = GUICtrlCreateLabel($lng_sitepreselect, 350, 250, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_32_91 = GUICtrlCreateListview("Name ", 350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES) Global $button_32_91 = GUICtrlCreateButton($lng_groupset, 350, 573, 100) If $ini_notmdb_webgrab = "1" Then GUICtrlSetState($check_32_01, $GUI_CHECKED) Else GUICtrlSetState($check_32_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_32_6[1] _ArrayAdd($Array_GUI_Elements_32_6, $check_32_21) _ArrayAdd($Array_GUI_Elements_32_6, $check_32_22) _ArrayAdd($Array_GUI_Elements_32_6, $input_32_21) _ArrayAdd($Array_GUI_Elements_32_6, $label_32_22) _ArrayAdd($Array_GUI_Elements_32_6, $label_32_23) Dim $Array_GUI_Elements_32_7[1] _ArrayAdd($Array_GUI_Elements_32_7, $check_32_21) _ArrayAdd($Array_GUI_Elements_32_7, $check_32_22) _ArrayAdd($Array_GUI_Elements_32_7, $combo_32_21) _ArrayAdd($Array_GUI_Elements_32_7, $label_32_22) _ArrayAdd($Array_GUI_Elements_32_7, $label_32_23) _ArrayAdd($Array_GUI_Elements_32_7, $label_32_24) _ArrayAdd($Array_GUI_Elements_32_7, $label_32_25) Dim $Array_GUI_Elements_32_8[1] _ArrayAdd($Array_GUI_Elements_32_8, $button_32_11) _ArrayAdd($Array_GUI_Elements_32_8, $combo_32_11) _ArrayAdd($Array_GUI_Elements_32_8, $label_32_11) _ArrayAdd($Array_GUI_Elements_32_8, $label_32_12) _ArrayAdd($Array_GUI_Elements_32_8, $listview_32_11) Dim $Array_GUI_Elements_32_9[1] _ArrayAdd($Array_GUI_Elements_32_9, $button_32_91) _ArrayAdd($Array_GUI_Elements_32_9, $label_32_91) _ArrayAdd($Array_GUI_Elements_32_9, $listview_32_91) Dim $Array_GUI_Elements_32[1] _ArrayAdd($Array_GUI_Elements_32, $button_32_01) _ArrayAdd($Array_GUI_Elements_32, $button_32_21) _ArrayAdd($Array_GUI_Elements_32, $check_32_01) _ArrayAdd($Array_GUI_Elements_32, $combo_32_11) _ArrayAdd($Array_GUI_Elements_32, $input_32_22) _ArrayAdd($Array_GUI_Elements_32, $label_32_01) _ArrayAdd($Array_GUI_Elements_32, $label_32_03) _ArrayAdd($Array_GUI_Elements_32, $label_32_21) _ArrayAdd($Array_GUI_Elements_32, $label_32_26) _ArrayAdd($Array_GUI_Elements_32, $label_32_27) _ArrayAdd($Array_GUI_Elements_32, $pic_32_01) #EndRegion ;Generate EPG Data GUI (3) #Region ;Generate EPG Data epgData.com GUI (3-3) Global $label_33_01 = GUICtrlCreateLabel($lng_epgdata & " - epgData.com", 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_33_01 = GUICtrlCreatePic(@ScriptDir & "\Images\epgDATA-Logo.bmp", 920, 173, 50, 50) Global $check_33_01 = GUICtrlCreateCheckbox("epgData.com - " & $lng_notvdb, 20, 530, 320) ; Global $check_33_02 = GUICtrlCreateCheckbox($lng_combine, 20, 450, 320) Global $label_33_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_33_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_33_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_33_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_33_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_33_24 = GUICtrlCreateLabel("", 700, 330, 250, 20) Global $label_33_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_33_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20) Global $combo_33_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_33_21, "----------", "----------") Global $label_33_26 = GUICtrlCreateLabel($lng_daysgrab, 65, 573, 250, 20) Global $input_33_22 = GUICtrlCreateInput($ini_maxdays_epgdata, 20, 570, 40, 20) Global $check_33_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20) ; If $ini_do_combine_epgdata = "1" Then ; GUICtrlSetState($check_33_02, $GUI_CHECKED) ; Else ; GUICtrlSetState($check_33_02, $GUI_UNCHECKED) ; EndIf If $ini_notmdb_epgdata = "1" Then GUICtrlSetState($check_33_01, $GUI_CHECKED) Else GUICtrlSetState($check_33_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_33[1] _ArrayAdd($Array_GUI_Elements_33, $check_33_01) ; _ArrayAdd($Array_GUI_Elements_33, $check_33_02) _ArrayAdd($Array_GUI_Elements_33, $label_33_01) _ArrayAdd($Array_GUI_Elements_33, $label_33_11) _ArrayAdd($Array_GUI_Elements_33, $label_33_21) _ArrayAdd($Array_GUI_Elements_33, $label_33_22) _ArrayAdd($Array_GUI_Elements_33, $label_33_26) ; _ArrayAdd($Array_GUI_Elements_33, $label_31_02) ; _ArrayAdd($Array_GUI_Elements_33, $input_31_02) _ArrayAdd($Array_GUI_Elements_33, $input_33_22) _ArrayAdd($Array_GUI_Elements_33, $listview_33_11) _ArrayAdd($Array_GUI_Elements_33, $pic_33_01) Dim $Array_GUI_Elements_33_6[1] _ArrayAdd($Array_GUI_Elements_33_6, $check_33_21) _ArrayAdd($Array_GUI_Elements_33_6, $input_33_21) _ArrayAdd($Array_GUI_Elements_33_6, $label_33_23) Dim $Array_GUI_Elements_33_7[1] _ArrayAdd($Array_GUI_Elements_33_7, $check_33_21) _ArrayAdd($Array_GUI_Elements_33_7, $combo_33_21) _ArrayAdd($Array_GUI_Elements_33_7, $label_33_23) _ArrayAdd($Array_GUI_Elements_33_7, $label_33_24) _ArrayAdd($Array_GUI_Elements_33_7, $label_33_25) #EndRegion #Region ;Generate EPG Data Clickfinder GUI (3-4) Global $label_34_01 = GUICtrlCreateLabel($lng_epgdata & " - Clickfinder", 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_34_01 = GUICtrlCreatePic(@ScriptDir & "\Images\TV_Movie-Logo.bmp", 920, 173, 50, 50) Global $check_34_01 = GUICtrlCreateCheckbox("Clickfinder - " & $lng_notvdb, 20, 530, 320) ; Global $check_34_02 = GUICtrlCreateCheckbox($lng_combine, 20, 450, 320) Global $label_34_03 = GUICtrlCreateLabel($lng_groupselect, 20, 330, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $button_34_01 = GUICtrlCreateButton($lng_go, 20, 353, 100) Global $label_34_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_34_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_34_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_34_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_34_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_34_24 = GUICtrlCreateLabel("", 700, 330, 250, 20) Global $label_34_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_34_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20) Global $combo_34_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_34_21, "----------", "----------") Global $label_34_91 = GUICtrlCreateLabel($lng_groupselect, 350, 250, 200, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_34_91 = GUICtrlCreateListview("Name ", 350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES) Global $button_34_91 = GUICtrlCreateButton($lng_groupset, 350, 573, 100) Global $check_34_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20) Global $check_34_22 = GUICtrlCreateCheckbox("", 700, 420, 300, 20) ; If $ini_do_combine_clickfinder = "1" Then ; GUICtrlSetState($check_34_02, $GUI_CHECKED) ; Else ; GUICtrlSetState($check_34_02, $GUI_UNCHECKED) ; EndIf If $ini_notmdb_clickfinder = "1" Then GUICtrlSetState($check_34_01, $GUI_CHECKED) Else GUICtrlSetState($check_34_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_34[1] _ArrayAdd($Array_GUI_Elements_34, $button_34_01) _ArrayAdd($Array_GUI_Elements_34, $check_34_01) ; _ArrayAdd($Array_GUI_Elements_34, $check_34_02) ; _ArrayAdd($Array_GUI_Elements_34, $input_31_02) _ArrayAdd($Array_GUI_Elements_34, $label_34_01) _ArrayAdd($Array_GUI_Elements_34, $label_34_03) _ArrayAdd($Array_GUI_Elements_34, $label_34_21) _ArrayAdd($Array_GUI_Elements_34, $label_34_22) ; _ArrayAdd($Array_GUI_Elements_34, $label_31_02) _ArrayAdd($Array_GUI_Elements_34, $pic_34_01) Dim $Array_GUI_Elements_34_6[1] _ArrayAdd($Array_GUI_Elements_34_6, $check_34_21) _ArrayAdd($Array_GUI_Elements_34_6, $check_34_22) _ArrayAdd($Array_GUI_Elements_34_6, $input_34_21) _ArrayAdd($Array_GUI_Elements_34_6, $label_34_23) Dim $Array_GUI_Elements_34_7[1] _ArrayAdd($Array_GUI_Elements_34_7, $check_34_21) _ArrayAdd($Array_GUI_Elements_34_7, $check_34_22) _ArrayAdd($Array_GUI_Elements_34_7, $combo_34_21) _ArrayAdd($Array_GUI_Elements_34_7, $label_34_23) _ArrayAdd($Array_GUI_Elements_34_7, $label_34_24) _ArrayAdd($Array_GUI_Elements_34_7, $label_34_25) Dim $Array_GUI_Elements_34_8[1] _ArrayAdd($Array_GUI_Elements_34_8, $label_34_11) _ArrayAdd($Array_GUI_Elements_34_8, $listview_34_11) Dim $Array_GUI_Elements_34_9[1] _ArrayAdd($Array_GUI_Elements_34_9, $button_34_91) _ArrayAdd($Array_GUI_Elements_34_9, $label_34_91) _ArrayAdd($Array_GUI_Elements_34_9, $listview_34_91) #EndRegion #Region ;Generate EPG Data TVGuide.com GUI (3-5) Global $label_35_01 = GUICtrlCreateLabel($lng_epgdata & " - TVGuide.com", 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_35_01 = GUICtrlCreatePic(@ScriptDir & "\Images\TVGuidecom-Logo.bmp", 920, 173, 50, 50) Global $check_35_01 = GUICtrlCreateCheckbox("TVGuide.com - " & $lng_notvdb, 20, 530, 320) Global $label_35_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_35_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_35_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_35_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_35_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_35_24 = GUICtrlCreateLabel("", 700, 330, 250, 20) Global $label_35_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_35_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20) Global $combo_35_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_35_21, "----------", "----------") Global $check_35_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20) Global $check_35_22 = GUICtrlCreateCheckbox("", 700, 420, 300, 20) Global $label_35_26 = GUICtrlCreateLabel($lng_daysgrab, 65, 573, 250, 20) Global $input_35_22 = GUICtrlCreateInput($ini_maxdays_tvguide, 20, 570, 40, 20) If $ini_notmdb_tvguide = "1" Then GUICtrlSetState($check_35_01, $GUI_CHECKED) Else GUICtrlSetState($check_35_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_35[1] ;~ _ArrayAdd($Array_GUI_Elements_35, $button_35_01) _ArrayAdd($Array_GUI_Elements_35, $check_35_01) _ArrayAdd($Array_GUI_Elements_35, $label_35_01) ;~ _ArrayAdd($Array_GUI_Elements_35, $label_35_03) _ArrayAdd($Array_GUI_Elements_35, $label_35_11) _ArrayAdd($Array_GUI_Elements_35, $label_35_21) _ArrayAdd($Array_GUI_Elements_35, $label_35_22) _ArrayAdd($Array_GUI_Elements_35, $label_35_26) _ArrayAdd($Array_GUI_Elements_35, $listview_35_11) _ArrayAdd($Array_GUI_Elements_35, $input_35_22) _ArrayAdd($Array_GUI_Elements_35, $pic_35_01) Dim $Array_GUI_Elements_35_6[1] _ArrayAdd($Array_GUI_Elements_35_6, $check_35_21) _ArrayAdd($Array_GUI_Elements_35_6, $check_35_22) _ArrayAdd($Array_GUI_Elements_35_6, $input_35_21) _ArrayAdd($Array_GUI_Elements_35_6, $label_35_23) Dim $Array_GUI_Elements_35_7[1] _ArrayAdd($Array_GUI_Elements_35_7, $check_35_21) _ArrayAdd($Array_GUI_Elements_35_7, $check_35_22) _ArrayAdd($Array_GUI_Elements_35_7, $combo_35_21) _ArrayAdd($Array_GUI_Elements_35_7, $label_35_23) _ArrayAdd($Array_GUI_Elements_35_7, $label_35_24) _ArrayAdd($Array_GUI_Elements_35_7, $label_35_25) #EndRegion #Region ;Generate EPG Data External XML GUI (3-6) Global $label_36_01 = GUICtrlCreateLabel($lng_epgdata & " - " & $lng_externalxml, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $pic_36_01 = GUICtrlCreatePic(@ScriptDir & "\Images\XML-logo.bmp", 920, 173, 50, 50) Global $check_36_01 = GUICtrlCreateCheckbox($lng_externalxml & " - " & $lng_notvdb, 20, 530, 320) Global $label_36_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_36_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_36_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_36_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_36_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_36_24 = GUICtrlCreateLabel("", 700, 330, 250, 20) Global $label_36_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_36_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20) Global $combo_36_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_36_21, "----------", "----------") Global $check_36_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20) If $ini_notmdb_xml = "1" Then GUICtrlSetState($check_36_01, $GUI_CHECKED) Else GUICtrlSetState($check_36_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_36[1] _ArrayAdd($Array_GUI_Elements_36, $check_36_01) _ArrayAdd($Array_GUI_Elements_36, $label_36_01) _ArrayAdd($Array_GUI_Elements_36, $label_36_11) _ArrayAdd($Array_GUI_Elements_36, $label_36_21) _ArrayAdd($Array_GUI_Elements_36, $label_36_22) _ArrayAdd($Array_GUI_Elements_36, $listview_36_11) _ArrayAdd($Array_GUI_Elements_36, $pic_36_01) Dim $Array_GUI_Elements_36_6[1] _ArrayAdd($Array_GUI_Elements_36_6, $check_36_21) _ArrayAdd($Array_GUI_Elements_36_6, $input_36_21) _ArrayAdd($Array_GUI_Elements_36_6, $label_36_23) Dim $Array_GUI_Elements_36_7[1] _ArrayAdd($Array_GUI_Elements_36_7, $check_36_21) _ArrayAdd($Array_GUI_Elements_36_7, $combo_36_21) _ArrayAdd($Array_GUI_Elements_36_7, $label_36_23) _ArrayAdd($Array_GUI_Elements_36_7, $label_36_24) _ArrayAdd($Array_GUI_Elements_36_7, $label_36_25) #EndRegion #Region ;Generate EPG Data Rytec GUI (3-7) Global $label_37_01 = GUICtrlCreateLabel($lng_epgdata & " - Rytec", 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $label_37_03 = GUICtrlCreateLabel($lng_regionpreselect, 20, 330, 200, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $button_37_01 = GUICtrlCreateButton($lng_go, 20, 353, 100) Global $pic_37_01 = GUICtrlCreatePic(@ScriptDir & "\Images\Rytec-Logo.bmp", 920, 173, 50, 50) Global $check_37_01 = GUICtrlCreateCheckbox("Rytec - " & $lng_notvdb, 20, 530, 320) Global $label_37_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_37_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY) Global $label_37_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 400, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_37_22 = GUICtrlCreateLabel("", 700, 270, 250, 20) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_37_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20) Global $label_37_24 = GUICtrlCreateLabel("", 700, 330, 250, 20) Global $label_37_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20) Global $input_37_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20) Global $combo_37_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20) GUICtrlSetData($combo_37_21, "----------", "----------") Global $label_37_26a = GUICtrlCreateLabel($lng_xmltv_line, 700, 420, 350, 20) Global $check_37_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20) Global $label_37_91 = GUICtrlCreateLabel($lng_regionpreselect, 350, 250, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $listview_37_91 = GUICtrlCreateListview("Name ", 350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES) Global $button_37_91 = GUICtrlCreateButton($lng_groupset, 350, 573, 100) If $ini_notmdb_rytec = "1" Then GUICtrlSetState($check_37_01, $GUI_CHECKED) Else GUICtrlSetState($check_37_01, $GUI_UNCHECKED) EndIf Dim $Array_GUI_Elements_37_6[1] _ArrayAdd($Array_GUI_Elements_37_6, $check_37_21) _ArrayAdd($Array_GUI_Elements_37_6, $input_37_21) _ArrayAdd($Array_GUI_Elements_37_6, $label_37_22) _ArrayAdd($Array_GUI_Elements_37_6, $label_37_23) Dim $Array_GUI_Elements_37_7[1] _ArrayAdd($Array_GUI_Elements_37_7, $check_37_21) _ArrayAdd($Array_GUI_Elements_37_7, $combo_37_21) _ArrayAdd($Array_GUI_Elements_37_7, $label_37_22) _ArrayAdd($Array_GUI_Elements_37_7, $label_37_23) _ArrayAdd($Array_GUI_Elements_37_7, $label_37_24) _ArrayAdd($Array_GUI_Elements_37_7, $label_37_25) _ArrayAdd($Array_GUI_Elements_37_7, $label_37_26a) Dim $Array_GUI_Elements_37_8[1] _ArrayAdd($Array_GUI_Elements_37_8, $label_37_11) _ArrayAdd($Array_GUI_Elements_37_8, $listview_37_11) Dim $Array_GUI_Elements_37_9[1] _ArrayAdd($Array_GUI_Elements_37_9, $button_37_91) _ArrayAdd($Array_GUI_Elements_37_9, $label_37_91) _ArrayAdd($Array_GUI_Elements_37_9, $listview_37_91) Dim $Array_GUI_Elements_37[1] _ArrayAdd($Array_GUI_Elements_37, $button_37_01) _ArrayAdd($Array_GUI_Elements_37, $check_37_01) _ArrayAdd($Array_GUI_Elements_37, $label_37_01) _ArrayAdd($Array_GUI_Elements_37, $label_37_03) _ArrayAdd($Array_GUI_Elements_37, $label_37_21) _ArrayAdd($Array_GUI_Elements_37, $pic_37_01) #EndRegion ;Generate EPG Data GUI (3) #Region ;Generate Schedules GUI (4) Global $label_41_00 = GUICtrlCreateLabel($lng_schedules, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $label_41_01 = GUICtrlCreateLabel($lng_day, 30, 250, 200) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $check_41_01 = GUICtrlCreateCheckbox($lng_mon & " ", 30, 280, 100, 20, $BS_TOP) Global $check_41_02 = GUICtrlCreateCheckbox($lng_tue & " ", 30, 310, 100, 20, $BS_TOP) Global $check_41_03 = GUICtrlCreateCheckbox($lng_wen & " ", 30, 340, 100, 20, $BS_TOP) Global $check_41_04 = GUICtrlCreateCheckbox($lng_thu & " ", 30, 370, 100, 20, $BS_TOP) Global $check_41_05 = GUICtrlCreateCheckbox($lng_fri & " ", 30, 400, 100, 20, $BS_TOP) Global $check_41_06 = GUICtrlCreateCheckbox($lng_sat & " ", 30, 430, 100, 20, $BS_TOP) Global $check_41_07 = GUICtrlCreateCheckbox($lng_sun & " ", 30, 460, 100, 20, $BS_TOP) Global $button_41_01 = GUICtrlCreateButton($lng_cancel, 350, 580, 60) GUICtrlSetState($button_41_01, $GUI_HIDE) Global $label_41_11 = GUICtrlCreateLabel($lng_clock, 30, 500, 400) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $input_41_11 = GUICtrlCreateInput($ini_time, 30, 530, 40, 20) Global $label_41_12 = GUICtrlCreateLabel($lng_timeinput, 30, 560, 220, 70) Global $label_41_14 = GUICtrlCreateLabel($lng_options, 360, 250, 300, 30) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_41_15 = GUICtrlCreateLabel($lng_taskplaner, 360, 420, 300, 30) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $check_41_11 = GUICtrlCreateCheckbox($lng_schedule_wake, 360, 290, 300, 20, $BS_TOP) Global $check_41_12 = GUICtrlCreateCheckbox($lng_schedule_delay, 360, 320, 300, 20, $BS_TOP) Global $check_41_13 = GUICtrlCreateCheckbox($lng_schedule_idle, 360, 350, 300, 20, $BS_TOP) Global $label_41_21 = GUICtrlCreateLabel($lng_action, 700, 250, 400) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_41_22 = GUICtrlCreateLabel($lng_deleteschedule, 700, 300, 150, 20) Global $button_41_21 = GUICtrlCreateButton($lng_Go, 700, 330, 60) Global $label_41_23 = GUICtrlCreateLabel($lng_createschedule, 700, 380, 150, 20) Global $button_41_22 = GUICtrlCreateButton($lng_Go, 700, 410, 60) Global $label_41_24 = GUICtrlCreateLabel($lng_grabnow, 700, 470, 400) Global $button_41_23 = GUICtrlCreateButton($lng_Go, 700, 500, 60) If $ini_monday = "1" Then GUICtrlSetState($check_41_01, $GUI_CHECKED) Else GUICtrlSetState($check_41_01, $GUI_UNCHECKED) EndIf If $ini_tuesday = "1" Then GUICtrlSetState($check_41_02, $GUI_CHECKED) Else GUICtrlSetState($check_41_02, $GUI_UNCHECKED) EndIf If $ini_wednesday = "1" Then GUICtrlSetState($check_41_03, $GUI_CHECKED) Else GUICtrlSetState($check_41_03, $GUI_UNCHECKED) EndIf If $ini_thursday = "1" Then GUICtrlSetState($check_41_04, $GUI_CHECKED) Else GUICtrlSetState($check_41_04, $GUI_UNCHECKED) EndIf If $ini_friday = "1" Then GUICtrlSetState($check_41_05, $GUI_CHECKED) Else GUICtrlSetState($check_41_05, $GUI_UNCHECKED) EndIf If $ini_saturday = "1" Then GUICtrlSetState($check_41_06, $GUI_CHECKED) Else GUICtrlSetState($check_41_06, $GUI_UNCHECKED) EndIf If $ini_sunday = "1" Then GUICtrlSetState($check_41_07, $GUI_CHECKED) Else GUICtrlSetState($check_41_07, $GUI_UNCHECKED) EndIf If $ini_schedule_wake = "1" Then GUICtrlSetState($check_41_11, $GUI_CHECKED) Else GUICtrlSetState($check_41_11, $GUI_UNCHECKED) EndIf If $ini_schedule_delay = "1" Then GUICtrlSetState($check_41_12, $GUI_CHECKED) Else GUICtrlSetState($check_41_12, $GUI_UNCHECKED) EndIf If $ini_schedule_idle = "1" Then GUICtrlSetState($check_41_13, $GUI_CHECKED) Else GUICtrlSetState($check_41_13, $GUI_UNCHECKED) EndIf GUIStartGroup() Global $radio_41_01 = GUICtrlCreateRadio($lng_above & " Windows 10 2004", 360, 450, 230, 20) Global $radio_41_02 = GUICtrlCreateRadio($lng_below & " Windows 10 1909 ", 360, 480, 230, 20) If $ini_task_type = "1.4" Then GUICtrlSetState($radio_41_01, $GUI_CHECKED) EndIf If $ini_task_type = "1.2" Then GUICtrlSetState($radio_41_02, $GUI_CHECKED) EndIf Dim $Array_GUI_Elements_41[1] _ArrayAdd($Array_GUI_Elements_41, $button_41_21) _ArrayAdd($Array_GUI_Elements_41, $button_41_22) _ArrayAdd($Array_GUI_Elements_41, $button_41_23) _ArrayAdd($Array_GUI_Elements_41, $check_41_01) _ArrayAdd($Array_GUI_Elements_41, $check_41_02) _ArrayAdd($Array_GUI_Elements_41, $check_41_03) _ArrayAdd($Array_GUI_Elements_41, $check_41_04) _ArrayAdd($Array_GUI_Elements_41, $check_41_05) _ArrayAdd($Array_GUI_Elements_41, $check_41_06) _ArrayAdd($Array_GUI_Elements_41, $check_41_07) _ArrayAdd($Array_GUI_Elements_41, $check_41_11) _ArrayAdd($Array_GUI_Elements_41, $check_41_12) _ArrayAdd($Array_GUI_Elements_41, $check_41_13) _ArrayAdd($Array_GUI_Elements_41, $input_41_11) _ArrayAdd($Array_GUI_Elements_41, $label_41_00) _ArrayAdd($Array_GUI_Elements_41, $label_41_01) _ArrayAdd($Array_GUI_Elements_41, $label_41_11) _ArrayAdd($Array_GUI_Elements_41, $label_41_12) _ArrayAdd($Array_GUI_Elements_41, $label_41_14) _ArrayAdd($Array_GUI_Elements_41, $label_41_15) _ArrayAdd($Array_GUI_Elements_41, $label_41_21) _ArrayAdd($Array_GUI_Elements_41, $label_41_22) _ArrayAdd($Array_GUI_Elements_41, $label_41_23) _ArrayAdd($Array_GUI_Elements_41, $label_41_24) _ArrayAdd($Array_GUI_Elements_41, $radio_41_01) _ArrayAdd($Array_GUI_Elements_41, $radio_41_02) #EndRegion #Region ;Generate Settings GUI (5) Global $label_05_00 = GUICtrlCreateLabel($lng_settings, 20, 180, 600, 50) GUICtrlSetFont(-1, 20, 700, 0, "Georgia") Global $label_05_04 = GUICtrlCreateLabel("TMDB- " & $lng_settings, 20, 250, 150) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_05_05 = GUICtrlCreateLabel($lng_metadata, 20, 300, 150) Global $combo_05_05 = GUICtrlCreateCombo("----------", 20, 320, 130, 20) GUICtrlSetData($combo_05_05, "cs|da|de|el|en|es|fi|fr|he|hr|hu|it|ja|ko|nl|no|pl|pt|ru|sl|sv|tr|zh", $ini_meta_language) Global $pic_05_04 = GUICtrlCreatePic(@ScriptDir & "\Images\Flags\black.jpg", 174, 302, 70, 42) Global $pic_05_05 = GUICtrlCreatePic($ini_meta_flag, 175, 303, 68, 40) Global $check_05_02 = GUICtrlCreateCheckbox($lng_seriesoverwrite, 20, 370, 290) Global $check_05_01 = GUICtrlCreateCheckbox($lng_plotoverwrite, 20, 410, 270) Global $label_05_06 = GUICtrlCreateLabel($lng_ignorechars, 20, 450, 250) Global $input_05_06 = GUICtrlCreateInput($Ignore_Chars, 20, 470, 230, 20) Global $label_05_07 = GUICtrlCreateLabel($lng_settings, 20, 520, 250) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $check_05_07 = GUICtrlCreateCheckbox($lng_mapping, 20, 550, 290) Global $check_05_08 = GUICtrlCreateCheckbox($lng_clearcache, 20, 580, 290) If $ini_plot_override = "1" Then GUICtrlSetState($check_05_01, $GUI_CHECKED) Else GUICtrlSetState($check_05_01, $GUI_UNCHECKED) EndIf If $ini_series_override = "1" Then GUICtrlSetState($check_05_02, $GUI_CHECKED) Else GUICtrlSetState($check_05_02, $GUI_UNCHECKED) EndIf If $ini_mapping = "1" Then GUICtrlSetState($check_05_07, $GUI_CHECKED) Else GUICtrlSetState($check_05_07, $GUI_UNCHECKED) EndIf If $ini_cacheclean = "1" Then GUICtrlSetState($check_05_08, $GUI_CHECKED) Else GUICtrlSetState($check_05_08, $GUI_UNCHECKED) EndIf Global $label_05_14 = GUICtrlCreateLabel("XML- " & $lng_settings, 380, 250, 350) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_05_11 = GUICtrlCreateLabel($lng_xml_name, 380, 300, 150) Global $input_05_11 = GUICtrlCreateInput($ini_xml_name, 380, 320, 200, 20) Global $label_05_12 = GUICtrlCreateLabel($lng_xml_suffix, 380, 360, 150) Global $check_05_15 = GUICtrlCreateCheckbox($lng_combine_xml, 380, 410, 270) Global $label_05_13 = GUICtrlCreateLabel("DVB-Viewer - " & $lng_settings, 380, 500, 350) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_05_15 = GUICtrlCreateLabel("XML- Dateien " & $lng_folder, 380, 440, 150) Global $input_05_15 = GUICtrlCreateInput($ini_xml_folder, 380, 460, 200, 20) Global $button_05_15 = GUICtrlCreateButton($lng_search, 610, 457, 60) Global $input_05_16 = GUICtrlCreateInput($ini_xepg_folder, 380, 550, 200, 20) Global $label_05_16 = GUICtrlCreateLabel($lng_xepg_folder, 380, 530, 150, 15) Global $button_05_16 = GUICtrlCreateButton($lng_search, 610, 547, 60) Global $check_05_16 = GUICtrlCreateCheckbox($lng_xepg, 380, 580, 270) If $ini_combine_xml = "1" Then GUICtrlSetState($check_05_15, $GUI_CHECKED) Else GUICtrlSetState($check_05_15, $GUI_UNCHECKED) EndIf If $ini_xepg = "1" Then GUICtrlSetState($check_05_16, $GUI_CHECKED) Else GUICtrlSetState($check_05_16, $GUI_UNCHECKED) EndIf Global $label_05_24 = GUICtrlCreateLabel($lng_program & "- " & $lng_settings, 760, 250, 350) GUICtrlSetFont(-1, 10, 700, 0, "Verdana") Global $label_05_25 = GUICtrlCreateLabel($lng_language, 760, 300, 150) Global $combo_05_25 = GUICtrlCreateCombo("----------", 760, 320, 130, 20) GUICtrlSetData($combo_05_25, "Deutsch|English", $ini_language) Global $check_05_21 = GUICtrlCreateCheckbox("Debug-Loglevel", 760, 360, 270) Global $check_05_26 = GUICtrlCreateCheckbox($lng_task, 760, 410, 200) Global $input_05_21 = GUICtrlCreateInput($ini_task, 760, 440, 150, 20) Global $button_05_21 = GUICtrlCreateButton($lng_search, 930, 437, 60) Global $label_05_27 = GUICtrlCreateLabel("Parameter", 760, 470, 150) Global $input_05_22 = GUICtrlCreateInput($ini_task_parameter, 760, 490, 230, 20) If $ini_loglevel = "1" Then GUICtrlSetState($check_05_21, $GUI_CHECKED) Else GUICtrlSetState($check_05_21, $GUI_UNCHECKED) EndIf If $ini_task_run = "1" Then GUICtrlSetState($check_05_26, $GUI_CHECKED) Else GUICtrlSetState($check_05_26, $GUI_UNCHECKED) EndIf Global $pic_05_24 = GUICtrlCreatePic(@ScriptDir & "\Images\Flags\black.jpg", 914, 302, 70, 42) Global $pic_05_25 = GUICtrlCreatePic($ini_gui_flag, 915, 303, 68, 40) Global $label_05_01 = GUICtrlCreateLabel($lng_langchange, 835, 530, 150, 60, $SS_RIGHT) Global $button_05_01 = GUICtrlCreateButton($lng_yes, 905, 583, 80) GUIStartGroup() Global $radio_05_11 = GUICtrlCreateRadio($lng_counter, 380, 380, 100, 20) Global $radio_05_12 = GUICtrlCreateRadio($lng_epgwizard, 500, 380, 100, 20) If $ini_xml_suffix = "1" Then GUICtrlSetState($radio_05_11, $GUI_CHECKED) EndIf If $ini_xml_suffix = "2" Then GUICtrlSetState($radio_05_12, $GUI_CHECKED) EndIf Dim $Array_GUI_Elements_51[1] _ArrayAdd($Array_GUI_Elements_51, $button_05_01) _ArrayAdd($Array_GUI_Elements_51, $button_05_15) _ArrayAdd($Array_GUI_Elements_51, $button_05_16) _ArrayAdd($Array_GUI_Elements_51, $button_05_21) _ArrayAdd($Array_GUI_Elements_51, $check_05_01) _ArrayAdd($Array_GUI_Elements_51, $check_05_02) _ArrayAdd($Array_GUI_Elements_51, $check_05_07) _ArrayAdd($Array_GUI_Elements_51, $check_05_08) _ArrayAdd($Array_GUI_Elements_51, $check_05_15) _ArrayAdd($Array_GUI_Elements_51, $check_05_16) _ArrayAdd($Array_GUI_Elements_51, $check_05_21) _ArrayAdd($Array_GUI_Elements_51, $check_05_26) _ArrayAdd($Array_GUI_Elements_51, $combo_05_05) _ArrayAdd($Array_GUI_Elements_51, $combo_05_25) _ArrayAdd($Array_GUI_Elements_51, $input_05_06) _ArrayAdd($Array_GUI_Elements_51, $input_05_11) _ArrayAdd($Array_GUI_Elements_51, $input_05_15) _ArrayAdd($Array_GUI_Elements_51, $input_05_16) _ArrayAdd($Array_GUI_Elements_51, $input_05_21) _ArrayAdd($Array_GUI_Elements_51, $input_05_22) _ArrayAdd($Array_GUI_Elements_51, $label_05_00) _ArrayAdd($Array_GUI_Elements_51, $label_05_01) _ArrayAdd($Array_GUI_Elements_51, $label_05_04) _ArrayAdd($Array_GUI_Elements_51, $label_05_05) _ArrayAdd($Array_GUI_Elements_51, $label_05_06) _ArrayAdd($Array_GUI_Elements_51, $label_05_07) _ArrayAdd($Array_GUI_Elements_51, $label_05_11) _ArrayAdd($Array_GUI_Elements_51, $label_05_12) _ArrayAdd($Array_GUI_Elements_51, $label_05_13) _ArrayAdd($Array_GUI_Elements_51, $label_05_14) _ArrayAdd($Array_GUI_Elements_51, $label_05_15) _ArrayAdd($Array_GUI_Elements_51, $label_05_16) _ArrayAdd($Array_GUI_Elements_51, $label_05_24) _ArrayAdd($Array_GUI_Elements_51, $label_05_25) _ArrayAdd($Array_GUI_Elements_51, $label_05_27) _ArrayAdd($Array_GUI_Elements_51, $pic_05_04) _ArrayAdd($Array_GUI_Elements_51, $pic_05_05) _ArrayAdd($Array_GUI_Elements_51, $pic_05_24) _ArrayAdd($Array_GUI_Elements_51, $pic_05_25) _ArrayAdd($Array_GUI_Elements_51, $radio_05_11) _ArrayAdd($Array_GUI_Elements_51, $radio_05_12) #EndRegion #EndRegion ;Generate Main Windows #Region ;Show Main Windows GUICtrlSetData($S_Label02, "Finished Generating Main GUI Window") _LastModule() _LastSubModule2() _LastSubModule3() _WriteLog("Info - Generated Main Window") _SiteiniListToDB() _ReadData_WebGrab_Siteini() If $ini_tvdatabase = "SQLite" Then _ReadData_Channelname_SQLite() If $ini_tvdatabase = "MySQL" Then _ReadData_Channelname_MySQL() If $ini_tvdatabase = "MSSQL" Then _ReadData_Channelname_MSSQL() If $ini_tvdatabase = "Argus" Then _ReadData_Channelname_Argus() If $ini_tvdatabase = "NextPVR" Then _ReadData_Channelname_NextPVR() If $ini_tvdatabase = "DVBV" Then _ReadData_Channelname_DVBV() _GetChannels_Names_Listview() _GrabberConfig() $listitem_31_11 = GUICtrlRead($listview_31_11) $listitem_32_11 = GUICtrlRead($listview_32_11) $listitem_33_11 = GUICtrlRead($listview_33_11) $listitem_34_11 = GUICtrlRead($listview_34_11) $listitem_35_11 = GUICtrlRead($listview_35_11) $listitem_36_11 = GUICtrlRead($listview_36_11) $listitem_37_11 = GUICtrlRead($listview_37_11) GUISetState(@SW_HIDE, $Splashwindow) ; Test functions here GUISetState(@SW_SHOW, $Mainwindow) _WriteLog("Info - Started EPG-Buddy") _WriteLog("------------------") _GUI_Main() #EndRegion ;Show Main Windows #Region ;Function Declaration ;Function to clean cache Func _CacheClean() DirRemove(@ScriptDir & "\EPG-Grabber.Cache",1) Sleep(200) DirCreate(@ScriptDir & "\EPG-Grabber.Cache") EndFunc ;Function to combine Tvguide xml files Func _Combine_XML() Local $i, $j, $File, $combined, $combined2, $sFile, $tFile, $uFile, $result, $u1File Dim $split1[0] Dim $split2[0] Dim $split3[0] IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", GUICtrlRead($input_05_15)) _WriteLog("Info - _Combine_XML: Started") $ini_xml_folder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", @ScriptDir) FileDelete($ini_xml_folder & "\" & $ini_xml_name & ".xml") Sleep(20) $File = _FileListToArray($ini_xml_folder, "*.xml", 1) If IsArray($File) Then $combined = FileOpen($ini_xml_folder & "\Combined.xml", 130) $combined2 = FileOpen($ini_xml_folder & "\Combined2.xml", 130) FileWrite($combined, '' & @CRLF & '' & @CRLF & '' & @CRLF) For $i = 1 To UBound($file) -1 If StringInStr($File[$i], $ini_xml_name) Then $sFile = FileRead($ini_xml_folder & "\" & $File[$i]) $split1 = StringSplit($sFile, "", "") $uFile = StringStripWS($u1File, 4) $result = FileOpen($ini_xml_folder & "\" & $ini_xml_name & ".xml", 130) FileWrite($result, $tFile & $uFile & "") FileClose($combined) FileClose($combined2) FileClose($result) FileDelete($ini_xml_folder & "\Combined.xml") FileDelete($ini_xml_folder & "\Combined2.xml") EndIf _WriteLog("Info - _Combine_XML: Finished") Return EndFunc ;Function to remove task scheduler entry for automated back-ups Func _Delete_Schedule() Local $option $option = " delete" ShellExecuteWait(@ScriptDir & "\SetSchedule.exe", $option, "", "", @SW_HIDE) MsgBox(0, $lng_success, $lng_accomplished, 2) EndFunc ;Function to check if an array element exists Func _ElementExists($array, $element) If $element > UBound($array) - 1 Then Return FALSE ; element is out of the array bounds Return TRUE ; element is in array bounds EndFunc ;==>_elementExists ;Function Exit Func _Exit($mode="0") _WriteLog("------------------") _WriteLog("Info - Begin Shuting Down EPG-Buddy") _GrabberConfig() _WriteMaxDays_epgData() _WriteMaxDays_TVGuide() _Global_E2T() _SQLite_Close($buddy_db) _SQLite_Shutdown() _WriteLog("Info - SQlite Shut Down") _SaveSettings() _WriteLog("Info - Saved Settings") If $ini_cacheclean = 1 Then _CacheClean() _WriteLog("Info - Shutting Down EPG-Buddy") If $mode = "1" Then _Restart() Else Exit EndIf EndFunc ;Function to read Channel Names into listview Func _GetChannels_Names_Listview() Local $i GUICtrlSetData($listview_31_11, "") For $i = 1 To UBound($channel_array) - 1 GUICtrlSetData($listview_31_11, $channel_array[$i][0]) Next GUICtrlSetData($listview_33_11, "") For $i = 1 To UBound($channel_array3) - 1 GUICtrlSetData($listview_33_11, $channel_array3[$i][0]) Next GUICtrlSetData($listview_34_11, "") For $i = 1 To UBound($channel_array4) - 1 GUICtrlSetData($listview_34_11, $channel_array4[$i][0]) Next GUICtrlSetData($listview_35_11, "") For $i = 1 To UBound($channel_array5) - 1 GUICtrlSetData($listview_35_11, $channel_array5[$i][0]) Next GUICtrlSetData($listview_36_11, "") For $i = 1 To UBound($channel_array6) - 1 GUICtrlSetData($listview_36_11, $channel_array6[$i][0]) Next GUICtrlSetData($listview_37_11, "") For $i = 1 To UBound($channel_array7) - 1 GUICtrlSetData($listview_37_11, $channel_array7[$i][0]) Next EndFunc ;Function to read selected Combo Item Func _GetComboWebGrab() Local $item $item = GUICtrlRead($combo_32_11) If $comboitem_32_11 = $item Then Return Else $comboitem_32_11 = $item If $item <> "----------" Then _SetList_WebGrab($item) Return EndIf EndFunc ;Function to Grab EPG manually Func _GetEPG() Local $user, $i = 1, $fle_hwnd, $suffix, $counter, $string, $string1 Local $split, $Drive, $Dir, $Filename, $Extension Local $i, $j, $query, $array, $Rows, $Columns, $Rval _GrabberConfig() _WriteMaxDays_epgData() _WriteMaxDays_TVGuide() _Global_E2T() If GUICtrlRead($check_23_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01)) ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:TVSpielfilm --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW) Sleep (250) EndIf If GUICtrlRead($check_21_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01)) ShellExecuteWait(@ScriptDir & "\WebGrab+Plus.exe", '"' & @ScriptDir & '\WebGrab"', @ScriptDir, "", @SW_SHOW) Sleep (250) ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:URL --run_e2t", @ScriptDir, "", @SW_SHOW) Sleep (250) EndIf If GUICtrlRead($check_23_03) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03)) ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:epgData --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW) Sleep (250) EndIf If GUICtrlRead($check_23_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02)) ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:clickfinder --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW) Sleep (250) EndIf If GUICtrlRead($check_24_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", GUICtrlRead($check_24_01)) ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:tvguide --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW) Sleep (250) EndIf If GUICtrlRead($check_21_11) = 1 Or GUICtrlRead($check_23_04) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", GUICtrlRead($check_21_11)) ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:url --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW) Sleep (250) EndIf If GUICtrlRead($check_23_01) = 1 Then If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_TVSpielfilm" EndIf FileCopy(@ScriptDir & "\EPG-Grabber.TVSpielfilm.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) EndIf If GUICtrlRead($check_21_01) = 1 Then If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_WebGrab" EndIf FileCopy(@ScriptDir & "\EPG-Grabber.URL.XML_0.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) EndIf If GUICtrlRead($check_23_03) = 1 Then If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_epgData" EndIf FileCopy(@ScriptDir & "\EPG-Grabber.epgData.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) EndIf If GUICtrlRead($check_23_02) = 1 Then If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_ClickFinder" EndIf FileCopy(@ScriptDir & "\EPG-Grabber.ClickFinder.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) EndIf If GUICtrlRead($check_23_04) = 1 Then $query = 'SELECT DESCRIPTION FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "RYTEC|%";' $Rval = _SQLite_GetTable($buddy_db, $query, $array, $Rows, $Columns) For $i = 2 To UBound($array) - 1 $string = StringReplace($array[$i], "RYTEC|", "") $string1 = StringReplace($string, "|", "_") $string = StringReplace($string1, "/", "_") $string1 = StringStripWS($string, 4) If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_Rytec_" & $i - 1 EndIf FileCopy(@ScriptDir & "\EPG-Grabber.URL." & $string1 & ".xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) Next EndIf If GUICtrlRead($check_24_01) = 1 Then $user= StringSplit(GUICtrlRead($password_24_01), @CRLF, $STR_ENTIRESPLIT) If $user[0] > 0 And Not $user[1] = "" Then For $i = 1 to $user[0] If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_TVGUIDE_" & $i EndIf FileCopy(@ScriptDir & "\EPG-Grabber.TVGuide.TVGUIDE_" & $i & ".xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) Next EndIf EndIf If GUICtrlRead($check_21_11) = 1 Then $user= StringSplit(GUICtrlRead($password_21_11), @CRLF, $STR_ENTIRESPLIT) If $user[0] > 0 And Not $user[1] = "" Then For $i = 1 to $user[0] If $ini_xml_suffix = "1" Then $counter = $counter + 1 $suffix = "_" & $counter Else $suffix = "_External_" & $i EndIf FileCopy(@ScriptDir & "\EPG-Grabber.URL.XML_" & $i & ".xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9) Next EndIf EndIf If $ini_combine_xml = "1" Then _Combine_XML() EndIf If $ini_task_run = "1" Then $split = _PathSplit($ini_task, $Drive, $Dir, $Filename, $Extension) ShellExecuteWait($ini_task, $ini_task_parameter, $Drive & $Dir, "", @SW_SHOW) EndIf If $ini_xepg = "1" Then ShellExecuteWait($ini_xepg_folder, "-xGrabThenImport", $Drive & $Dir, "", @SW_SHOW) EndIf EndFunc ;Function to read selected List Item Func _GetListTVSpielfilm() If $listitem_31_11 = GUICtrlRead($listview_31_11) Then Return Else If $listitem_31_11 <> "" Then _WriteData_Channel_31($listitem_31_11) $listitem_31_11 = GUICtrlRead($listview_31_11) _SetData_Channel_31($listitem_31_11) Return EndIf EndFunc ;Function to read selected List Item Func _GetListWebGrab() If $showitem_32_11 = 0 Then Return If $listitem_32_11 = GUICtrlRead($listview_32_11) Then Return Else $showitem_32_11 = 1 If $listitem_32_11 <> "" Then _WriteData_Channel_32($listitem_32_11) $listitem_32_11 = GUICtrlRead($listview_32_11) _SetData_Channel_32($listitem_32_11) EndIf Return EndFunc ;Function to read selected List Item Func _GetListRytec() If $listitem_37_11 = GUICtrlRead($listview_37_11) Then Return Else If $listitem_37_11 <> "" Then _WriteData_Channel_37($listitem_37_11) $listitem_37_11 = GUICtrlRead($listview_37_11) _SetData_Channel_37($listitem_37_11) Return EndIf EndFunc ;Function to read selected List Item Func _GetListEpgData() If $listitem_33_11 = GUICtrlRead($listview_33_11) Then Return Else If $listitem_33_11 <> "" Then _WriteData_Channel_33($listitem_33_11) $listitem_33_11 = GUICtrlRead($listview_33_11) _SetData_Channel_33($listitem_33_11) Return EndIf EndFunc ;Function to read selected List Item Func _GetListClickfinder() If $listitem_34_11 = GUICtrlRead($listview_34_11) Then Return Else If $listitem_34_11 <> "" Then _WriteData_Channel_34($listitem_34_11) $listitem_34_11 = GUICtrlRead($listview_34_11) _SetData_Channel_34($listitem_34_11) Return EndIf EndFunc ;Function to read selected List Item Func _GetListTVGuide() If $listitem_35_11 = GUICtrlRead($listview_35_11) Then Return Else If $listitem_35_11 <> "" Then _WriteData_Channel_35($listitem_35_11) $listitem_35_11 = GUICtrlRead($listview_35_11) _SetData_Channel_35($listitem_35_11) Return EndIf EndFunc ;Function to read selected List Item Func _GetListXML() If $listitem_36_11 = GUICtrlRead($listview_36_11) Then Return Else If $listitem_36_11 <> "" Then _WriteData_Channel_36($listitem_36_11) $listitem_36_11 = GUICtrlRead($listview_36_11) _SetData_Channel_36($listitem_36_11) Return EndIf EndFunc ;Function to read recent Time Func _GetTime() Local $newtime = @HOUR & ":" & @MIN If $newtime = $Clock Then Return Else $Clock = $newtime GUICtrlSetData($Label03, $newtime) Return EndIf EndFunc ;Function to set Global E2T Option Func _Global_E2T() Local $fle_hwnd, $Rval, $query, $array, $Rows, $Columns, $i If GUICtrlRead($check_31_01) = 1 Then _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($channel_array) - 1 _SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array[$i][0] & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndIf If GUICtrlRead($check_32_01) = 1 Then $query = 'SELECT NAME FROM WEBGRAB_CHANNELS ;' $Rval = _SQLite_GetTable2D($buddy_db, $query, $array, $Rows, $Columns) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 0 To UBound($array) - 1 _SQLite_Exec($buddy_db, 'UPDATE WEBGRAB_CHANNELS SET RUN_E2T = "FALSE" ;') _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $array[$i][0] & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndIf If GUICtrlRead($check_33_01) = 1 Then _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($channel_array3) - 1 _SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array3[$i][0] & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndIf If GUICtrlRead($check_34_01) = 1 Then _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($channel_array4) - 1 _SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array4[$i][0] & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndIf If GUICtrlRead($check_35_01) = 1 Then _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($channel_array5) - 1 _SQLite_Exec($buddy_db, 'UPDATE TVGuide_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array5[$i][0] & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndIf If GUICtrlRead($check_36_01) = 1 Then _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($channel_array6) - 1 _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array6[$i][0] & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndIf EndFunc ;Function to write EPG-Grabber config Func _GrabberConfig() Local $user, $pass, $i, $path, $user1, $pass1 Local $query, $array, $Rows, $Columns, $i, $Rval IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", GUICtrlRead($password_23_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", GUICtrlRead($check_05_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_series_override", GUICtrlRead($check_05_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", GUICtrlRead($check_21_11)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_mapping", GUICtrlRead($check_05_07)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_clickfinder", GUICtrlRead($input_23_02)) ; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine", GUICtrlRead($input_31_02)) ; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_do_combine_tvspielfilm", GUICtrlRead($check_31_02)) ; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_do_combine_epgdata", GUICtrlRead($check_33_02)) ; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_do_combine_clickfinder", GUICtrlRead($check_34_02)) ;~ _SQLite_Exec($buddy_db, "DROP TABLE If Exists EPG_GRABBER_COMBINED_CHANNELS ;") ;~ _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EPG_GRABBER_COMBINED_CHANNELS(PROVIDER TEXT, NAME TEXT, CHANNELS TEXT, OFFSET INT DEFAULT 0, CHANNEL TEXT) ;") ; If $ini_do_combine_tvspielfilm = 1 Then ; _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_COMBINED_CHANNELS (PROVIDER, NAME, CHANNELS, OFFSET, CHANNEL) VALUES ("TVSpielfilm", "' & $ini_combine & '", "VIVAÿCC", 0, "VIVA_CC") ;') ; EndIf ; If $ini_do_combine_epgdata = 1 Then ; _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_COMBINED_CHANNELS (PROVIDER, NAME, CHANNELS, OFFSET, CHANNEL) VALUES ("epgData", "' & $ini_combine & '", "VIVAÿCC", 0, "VIVA_CC") ;') ; EndIf ; If $ini_do_combine_clickfinder = 1 Then ; _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_COMBINED_CHANNELS (PROVIDER, NAME, CHANNELS, OFFSET, CHANNEL) VALUES ("ClickFinder", "' & $ini_combine & '", "VIVAÿCC", 0, "VIVA_CC") ;') ; EndIf _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($input_23_02) & '" WHERE SETTING LIKE "ClickFinder_Database" ;') _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($password_23_03) & '" WHERE SETTING LIKE "Keys.PIN_epgData" ;') _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($combo_05_05) & '" WHERE SETTING LIKE "Language" ;') $user= StringSplit(GUICtrlRead($password_24_01), @CRLF, $STR_ENTIRESPLIT) $pass= StringSplit(GUICtrlRead($password_24_02), @CRLF, $STR_ENTIRESPLIT) $path= StringSplit(GUICtrlRead($password_21_11), @CRLF, $STR_ENTIRESPLIT) $user1= StringSplit(GUICtrlRead($password_21_02), @CRLF, $STR_ENTIRESPLIT) $pass1= StringSplit(GUICtrlRead($password_21_03), @CRLF, $STR_ENTIRESPLIT) If GUICtrlRead($check_24_01) = 1 Then If $user[0] > 0 And Not $user[1] = "" Then For $i = 1 to $user[0] _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER, USERNAME, PASSWORD, DESCRIPTION) VALUES ("TVGUIDE", "' & $user[$i] & '", "' & $pass[$i] & '", "TVGUIDE_' & $i & '") ;') Next EndIf EndIf If GUICtrlRead($check_21_01) = 1 Then $query = 'SELECT DESCRIPTION FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "XML_0" ;' $Rval = _SQLite_GetTable($buddy_db, $query, $array, $Rows, $Columns) If $Rows < 1 Then _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER, DESCRIPTION) VALUES ("'& @ScriptDir & '\EPG-Grabber.URL.XML_0.xml", "XML_0") ;') EndIf If GUICtrlRead($check_21_11) = 1 Then If $path[0] > 0 And Not $path[1] = "" Then For $i = 1 to $path[0] _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER, USERNAME, PASSWORD, DESCRIPTION) VALUES ("' & $path[$i] & '", "' & $user1[$i] & '", "' & $pass1[$i] & '", "XML_' & $i & '") ;') Next EndIf EndIf If GUICtrlRead($check_23_04) = 1 Then Else _SQLite_Exec($buddy_db, 'DELETE FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "RYTEC|%" ;') EndIf If GUICtrlRead($check_05_01) = 1 Then _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "TRUE" WHERE SETTING LIKE "Overwrite_Plot" ;') Else _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "FALSE" WHERE SETTING LIKE "Overwrite_Plot" ;') EndIf If GUICtrlRead($check_05_02) = 1 Then _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "TRUE" WHERE SETTING LIKE "Overwrite_Serie_and_Episode" ;') Else _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "FALSE" WHERE SETTING LIKE "Overwrite_Serie_and_Episode" ;') EndIf If GUICtrlRead($check_05_07) = 1 Then _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "TRUE" WHERE SETTING LIKE "Use_Genre_Mapping" ;') Else _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "FALSE" WHERE SETTING LIKE "Use_Genre_Mapping" ;') EndIf EndFunc ;Function to select last used module Func _LastModule() $ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1") Select Case $ini_lastmodule = "1" _GUI_Show_TV_Settings() Case $ini_lastmodule = "2" _LastSubModule2() Case $ini_lastmodule = "3" _LastSubModule3() Case $ini_lastmodule = "4" _GUI_Show_Schedule_Settings() Case $ini_lastmodule = "5" _GUI_Show_Settings() EndSelect EndFunc ;Function to select last used sub module for EPG Settings View Func _LastSubModule2() $ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1") $ini_lastsubmodule2 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "21") If $ini_lastmodule = "2" Then Select Case $ini_lastsubmodule2 = "21" _GUI_Show_EPG_Settings_International() Case $ini_lastsubmodule2 = "23" _GUI_Show_EPG_Settings_Europe() Case $ini_lastsubmodule2 = "24" _GUI_Show_EPG_Settings_America() EndSelect EndIf EndFunc ;Function to select last used sub module for EPG Data View Func _LastSubModule3() $ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1") $ini_lastsubmodule3 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "31") If $ini_lastmodule = "3" Then Select Case $ini_lastsubmodule3 = "31" _GUI_Show_EPG_Data_TVSpielfilm() Case $ini_lastsubmodule3 = "32" _GUI_Show_EPG_Data_WebGrab() Case $ini_lastsubmodule3 = "33" _GUI_Show_EPG_Data_epgData() Case $ini_lastsubmodule3 = "35" _GUI_Show_EPG_Data_tvguide() Case $ini_lastsubmodule3 = "34" _GUI_Show_EPG_Data_clickfinder() Case $ini_lastsubmodule3 = "36" _GUI_Show_EPG_Data_xml() Case $ini_lastsubmodule3 = "37" _GUI_Show_EPG_Data_Rytec() EndSelect EndIf EndFunc ;Function to create schedule XML file Func _MakeXML() Local $xml, $file, $type _WriteLog("Info - MakeXML: Started") If GUICtrlRead($radio_41_01) = 1 Then $type = "1.4" If GUICtrlRead($radio_41_02) = 1 Then $type = "1.2" $xml = '' & @CRLF & '' & @CRLF & ""& @CRLF & "" $xml = $xml & @YEAR & "-" & @MON & "-" & @MDAY & "T" & @HOUR & ":" & @MIN & ":" & @SEC & "" & @CRLF & "EPG-Buddy" & @CRLF & "Task for automated EPG download by EPG-Buddy" & @CRLF $xml = $xml & "\EPG-Buddy" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "" $xml = $xml & @YEAR & "-" & @MON & "-" & @MDAY & "T" & GUICtrlRead($input_41_11) & ":00" & "" & @CRLF & "true" & @CRLF $xml = $xml & "" & @CRLF & "" & @CRLF If GUICtrlRead($check_41_07) = "1" Then $xml = $xml & "" & @CRLF If GUICtrlRead($check_41_01) = "1" Then $xml = $xml & "" & @CRLF If GUICtrlRead($check_41_02) = "1" Then $xml = $xml & "" & @CRLF If GUICtrlRead($check_41_03) = "1" Then $xml = $xml & "" & @CRLF If GUICtrlRead($check_41_04) = "1" Then $xml = $xml & "" & @CRLF If GUICtrlRead($check_41_05) = "1" Then $xml = $xml & "" & @CRLF If GUICtrlRead($check_41_06) = "1" Then $xml = $xml & "" & @CRLF $xml = $xml & "" & @CRLF & "1" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF $xml = $xml & "" & @CRLF & "IgnoreNew" & @CRLF & "true" & @CRLF & "true" & @CRLF & "true" & @CRLF & "" If GUICtrlRead($check_41_12) = 1 Then $xml = $xml & "true" Else $xml = $xml & "false" EndIf $xml = $xml & "" & @CRLF & "false" & @CRLF & "" & @CRLF & "true" & @CRLF & "false" & @CRLF & "" & @CRLF $xml = $xml & "true" & @CRLF & "true" & @CRLF & "false" & @CRLF & "" If GUICtrlRead($check_41_13) = 1 Then $xml = $xml & "true" Else $xml = $xml & "false" EndIf $xml = $xml & "" & @CRLF & "" If GUICtrlRead($check_41_11) = 1 Then $xml = $xml & "true" Else $xml = $xml & "false" EndIf $xml = $xml & "" & @CRLF & "PT72H" & @CRLF & "7" & @CRLF & "" & @CRLF & "PT5M" & @CRLF & "3" & @CRLF & "" & @CRLF $xml = $xml & "" & @CRLF & '' & @CRLF & "" & @CRLF & "" & @CRLF $xml = $xml & '"' & @ScriptDir & '\Grab-EPG.exe"' & @CRLF & "" & @CRLF & "" & @CRLF & "" $file = FileOpen(@ScriptDir & "\Grab-EPG.xml",42) FileWrite($file, $xml) FileClose($file) _WriteLog("Info - MakeXML: Finished") EndFunc ;Function to Read Channel from SQLite to Combo Func _ReadData_Channelname_SQLite() _WriteLog("Info - Read Available Channels from MP2 SQLite: Started") Local $tvdb, $query, $array, $Rows, $Columns, $i, $Rval Local $iFileExists = FileExists($ini_tv_database_MP2) If $iFileExists Then $tvdb = _SQLite_Open($ini_tv_database_MP2) $query = 'SELECT channel.displayName, groupmap.idGroup, groupmap.idChannel FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel WHERE channelgroup.groupName NOT LIKE "All Channels" ORDER BY UPPER(channel.displayName) ;' $Rval = _SQLite_GetTable2d($tvdb, $query, $array, $Rows, $Columns) _WriteLog("Info - Read Channel Names from TVE Database") If Ubound($array) = 1 Then $query = 'SELECT channel.displayName, groupmap.idGroup, groupmap.idChannel FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel ORDER BY UPPER(channel.displayName) ;' $Rval = _SQLite_GetTable2d($tvdb, $query, $array, $Rows, $Columns) EndIf _ArraySort($array) For $i = 1 to Ubound($array) - 1 If $array[$i][0] = "displayName" Then Else GUICtrlSetData($combo_31_21, $array[$i][0], "----------") GUICtrlSetData($combo_32_21, $array[$i][0], "----------") GUICtrlSetData($combo_33_21, $array[$i][0], "----------") GUICtrlSetData($combo_34_21, $array[$i][0], "----------") GUICtrlSetData($combo_35_21, $array[$i][0], "----------") GUICtrlSetData($combo_36_21, $array[$i][0], "----------") GUICtrlSetData($combo_37_21, $array[$i][0], "----------") EndIf Next _SQLite_Close($ini_tv_database_MP2) EndIf _WriteLog("Info - Read Available Channels from MP2 SQLite: Finished") Return EndFunc ;Function to Read Channelfrom MySQL to Combo Func _ReadData_Channelname_MySQL() _WriteLog("Info - Read Available Channels from MySQL: Started") Local $tvdb, $query, $array, $rows, $fields, $i, $Rval, $MysqlConn, $connected, $errno, $res Local $ChanGroupCount, $ChanGroupCountQuery, $ChanGroupCountQueryResult, $ChanGroupCountStoreResult, $ChanGroupCountFetchResult ; MYSQL start _MySQL_InitLibrary() If @error Then MsgBox($MB_SYSTEMMODAL, "MySQL Error", "No libmysql.dll found") Exit -1 EndIf $MysqlConn = _MySQL_Init() $ini_tv_database_MySQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", @ComputerName) $ini_tv_database_MySQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", "root") $ini_tv_database_MySQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", "MediaPortal") $connected = _MySQL_Real_Connect($MysqlConn, $ini_tv_database_MySQL_server, $ini_tv_database_MySQL_user, $ini_tv_database_MySQL_pass, "MpTvDb") If $connected = 0 Then $errno = _MySQL_errno($MysqlConn) MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn), 2) Return -1 Endif ; -> ====================================== add-on by MausWiesel ==================================== ;reset channel group counter $ChanGroupCount = 0 ;set query for examining channel group count $ChanGroupCountQuery = 'SELECT COUNT(*) FROM channelgroup ;' ;execute query for examining channel group count $ChanGroupCountQueryResult = _MySQL_Real_Query($MysqlConn, $ChanGroupCountQuery) ;check, whether query execution failed If ($ChanGroupCountQueryResult <> 0) Then ;put line with error information to logfile _WriteLog("Error - executing MySQL query for examining channel group count failed (result: " & $ChanGroupCountQueryResult & ")") Else ;put line with debug information to logfile If $ini_loglevel = 1 Then _WriteLog("Debug - executing MySQL query for examining channel group count succeeded (result: " & $ChanGroupCountQueryResult & ")") ;store result from channel group count query $ChanGroupCountStoreResult = _MySQL_Store_Result($MysqlConn) ;check, whether storing result failed If ($ChanGroupCountStoreResult = 0) Then ;put line with error information to logfile _WriteLog("Error - storing MySQL result for examining channel group count failed (result: " & $ChanGroupCountStoreResult & ")") Else ;put line with debug information to logfile If $ini_loglevel = 1 Then _WriteLog("Debug - storing MySQL result for examining channel group count succeeded (result: " & $ChanGroupCountStoreResult & ")") ;fetch result from channel group count query $ChanGroupCountFetchResult = _MySQL_Fetch_Result_StringArray($ChanGroupCountStoreResult) ;get channel group count $ChanGroupCount = $ChanGroupCountFetchResult[1][0] ;put line with message information to logfile _WriteLog("Info - " & $ChanGroupCount & " channel groups detected in MySQL") ;free result from channel group count query _MySQL_Free_Result($ChanGroupCountStoreResult) EndIf EndIf ;check, whether at least 1 channel exists If ($ChanGroupCount < 1) Then ;put line with message information to logfile _WriteLog("Error - no channel group detected, application will be shut down") ;exit appliction Exit -1 Else ;check, whether more than 1 channel group exists If ($ChanGroupCount > 1) Then ;set query without channel group "All Channels" $query = 'SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel WHERE channelgroup.groupName NOT LIKE "All Channels" ORDER BY UPPER(channel.displayName) ;' Else ;~ ;show message box, where user can decide to abort (NO) or to proceed (YES) ;~ $MbResult = MsgBox($MB_YESNO + $MB_ICONINFORMATION + $MB_TOPMOST, "MySQL hint", "Only 1 channel group detected in MySQL database." & @LF & "Too many channels in 1 group can slow down application." & @LF & "Proceed anyway?", 2) ;~ ;check, whether user pressed button "NO" ;~ If ($MbResult = $IDNO) Then ;~ ;put line with message information to logfile ;~ _WriteLog("Info - user aborts appliction, after only 1 channel group was detected") ;~ ;exit appliction ;~ Exit 0 ;~ Else ;set query with (the only one) channel group "All Channels" $query = 'SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel ORDER BY UPPER(channel.displayName) ;' ;~ EndIf EndIf EndIf ; <- ====================================== add-on by MausWiesel ==================================== _MySQL_Real_Query($MysqlConn, $query) $res = _MySQL_Store_Result($MysqlConn) $fields = _MySQL_Num_Fields($res) $rows = _MySQL_Num_Rows($res) _WriteLog("Info - " & $rows & " channels read from MySQL") $array = _MySQL_Fetch_Result_StringArray($res) ;old sorting (till 04.03.2022) ;_ArraySort($array) ;new sorting in 2nd column (= channel name) _ArraySort($array, 0, 0, 0, 2) ;old: For $i = 1 to $rows ;new: loop start/end modified For $i = 0 to ($rows-1) ;exclude query result header data row If ($array[$i][0] <> "idGroup") And ($array[$i][1] <> "idChannel") And ($array[$i][2] <> "displayName") Then GUICtrlSetData($combo_31_21, $array[$i][2], "----------") GUICtrlSetData($combo_32_21, $array[$i][2], "----------") GUICtrlSetData($combo_33_21, $array[$i][2], "----------") GUICtrlSetData($combo_34_21, $array[$i][2], "----------") GUICtrlSetData($combo_35_21, $array[$i][2], "----------") GUICtrlSetData($combo_36_21, $array[$i][2], "----------") GUICtrlSetData($combo_37_21, $array[$i][2], "----------") EndIf Next _MySQL_Free_Result($res) ; Shutdown MySQL _MySQL_Close($MysqlConn) _MySQL_EndLibrary() _WriteLog("Info - Read Available Channels from MySQL: Finished") Return EndFunc ;Function to Read Channel from MSSQL to Combo; thanks to Toddy Func _ReadData_Channelname_MSSQL() _WriteLog("Info - Read Available Channels from MSSQL: Started") Local $query, $array, $array1, $i, $MssqlConn ; MSSQL start $ini_tv_database_MSSQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", @ComputerName) $ini_tv_database_MSSQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", "sa") $ini_tv_database_MSSQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", "MediaPortal") _MSSQL_Errorhandler(3,@ScriptDir & '\Log\MSSQL-Error.log') $MssqlConn = _MSSQL_Con($ini_tv_database_MSSQL_server, $ini_tv_database_MSSQL_user, $ini_tv_database_MSSQL_pass, "MpTvDb") If @error Then MsgBox($MB_SYSTEMMODAL, "MSSQL Error", "Connection failed (look at " & @ScriptDir & "\Log\MSSQL-Error.log)") Exit -1 EndIf $query = "SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel WHERE channelgroup.groupName NOT LIKE 'All Channels' ORDER BY UPPER(channel.displayName) ;" $array = (_MSSQL_Query($MssqlConn, $query)).getrows _ArraySort($array) If Ubound($array) < 1 Then $query = "SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel ORDER BY UPPER(channel.displayName) ;" $array1 = (_MSSQL_Query($MssqlConn, $query)).getrows _ArraySort($array1) For $i = 0 to (UBOUND($array1)-1) GUICtrlSetData($combo_31_21, $array1[$i][2], "----------") GUICtrlSetData($combo_32_21, $array1[$i][2], "----------") GUICtrlSetData($combo_33_21, $array1[$i][2], "----------") GUICtrlSetData($combo_34_21, $array1[$i][2], "----------") GUICtrlSetData($combo_35_21, $array1[$i][2], "----------") GUICtrlSetData($combo_36_21, $array1[$i][2], "----------") GUICtrlSetData($combo_37_21, $array1[$i][2], "----------") Next Else For $i = 0 to (UBOUND($array)-1) GUICtrlSetData($combo_31_21, $array[$i][2], "----------") GUICtrlSetData($combo_32_21, $array[$i][2], "----------") GUICtrlSetData($combo_33_21, $array[$i][2], "----------") GUICtrlSetData($combo_34_21, $array[$i][2], "----------") GUICtrlSetData($combo_35_21, $array[$i][2], "----------") GUICtrlSetData($combo_36_21, $array[$i][2], "----------") GUICtrlSetData($combo_37_21, $array[$i][2], "----------") Next EndIf ; Shutdown MSSQL _MSSQL_End($MssqlConn) _WriteLog("Info - Read Available Channels from MSSQL: Finished") Return EndFunc ;Function to Read Channelfrom Argus to Combo Func _ReadData_Channelname_Argus() _WriteLog("Info - Read Available Channels from Argus: Started") Local $tvdb, $query, $array, $rows, $fields, $i, $Rval, $MysqlConn, $connected, $errno, $res Local $ChanGroupCount, $ChanGroupCountQuery, $ChanGroupCountQueryResult, $ChanGroupCountStoreResult, $ChanGroupCountFetchResult ; MYSQL start _MySQL_InitLibrary() If @error Then MsgBox($MB_SYSTEMMODAL, "MySQL Error", "No libmysql.dll found") Exit -1 EndIf $MysqlConn = _MySQL_Init() $ini_tv_database_MySQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", @ComputerName) $ini_tv_database_MySQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", "root") $ini_tv_database_MySQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", "MediaPortal") $connected = _MySQL_Real_Connect($MysqlConn, $ini_tv_database_Argus_server, $ini_tv_database_Argus_user, $ini_tv_database_Argus_pass, "argustv") If $connected = 0 Then $errno = _MySQL_errno($MysqlConn) MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn), 2) Return -1 Endif $query = "Select DisplayName from channel Order by DisplayName asc" _MySQL_Real_Query($MysqlConn, $query) $res = _MySQL_Store_Result($MysqlConn) $fields = _MySQL_Num_Fields($res) $rows = _MySQL_Num_Rows($res) _WriteLog("Info - " & $rows & " channels read from Argus") $array = _MySQL_Fetch_Result_StringArray($res) _ArraySort($array) For $i = 1 to $rows GUICtrlSetData($combo_31_21, $array[$i][0], "----------") GUICtrlSetData($combo_32_21, $array[$i][0], "----------") GUICtrlSetData($combo_33_21, $array[$i][0], "----------") GUICtrlSetData($combo_34_21, $array[$i][0], "----------") GUICtrlSetData($combo_35_21, $array[$i][0], "----------") GUICtrlSetData($combo_36_21, $array[$i][0], "----------") GUICtrlSetData($combo_37_21, $array[$i][0], "----------") Next _MySQL_Free_Result($res) ; Shutdown MySQL _MySQL_Close($MysqlConn) _MySQL_EndLibrary() _WriteLog("Info - Read Available Channels from Argus: Finished") Return EndFunc ;Function to Read Channel from NextPVR to Combo Func _ReadData_Channelname_NextPVR() _WriteLog("Info - Read Available Channels from NextPVR: Started") Local $tvdb, $query, $array, $Rows, $Columns, $i, $Rval Local $iFileExists = FileExists($ini_tv_database_NPVR) If $iFileExists Then $tvdb = _SQLite_Open($ini_tv_database_NPVR) $query = 'SELECT name FROM CHANNEL WHERE epg_source NOT LIKE "None" ORDER BY UPPER(name) ;' $Rval = _SQLite_GetTable($tvdb, $query, $array, $Rows, $Columns) _WriteLog("Info - Read Channel Names from NextPVR Database") For $i = 2 to Ubound($array) - 1 GUICtrlSetData($combo_31_21, $array[$i], "----------") GUICtrlSetData($combo_32_21, $array[$i], "----------") GUICtrlSetData($combo_33_21, $array[$i], "----------") GUICtrlSetData($combo_34_21, $array[$i], "----------") GUICtrlSetData($combo_35_21, $array[$i], "----------") GUICtrlSetData($combo_36_21, $array[$i], "----------") GUICtrlSetData($combo_37_21, $array[$i], "----------") Next _SQLite_Close($ini_tv_database_NPVR) EndIf _WriteLog("Info - Read Available Channels from NextPVR: Finished") Return EndFunc ;Function to Read Channel from DVB-Viewer to Combo Func _ReadData_Channelname_DVBV() _WriteLog("Info - Read Available Channels from DVB-Viewer: Started") Local $tvdb, $query, $Rows, $Columns, $i, $c = -1, $channels Dim $array[0] Local $iFileExists = FileExists($ini_tv_database_DVBV) If $iFileExists Then $tvdb = FileOpen($ini_tv_database_DVBV) $c = -1 While 1 $Rows = FileReadLine($tvdb) If @error = -1 Then ExitLoop If StringInStr($Rows, "[Channel") Then $c = $c + 1 WEnd FileClose($tvdb) If $c > -1 Then For $i = 0 To $c $columns = IniRead($ini_tv_database_DVBV, "Channel" & $i, "Name", "Name") $query = StringSplit($columns, "(") If $columns <> "" Then _ArrayAdd($array, StringStripWS($query[1], 3)) Next $channels = _ArrayUnique($array) _ArraySort($channels, 0, 1, 0, 0, 1) For $i = 1 to $channels[0] GUICtrlSetData($combo_31_21, $channels[$i], "----------") GUICtrlSetData($combo_32_21, $channels[$i], "----------") GUICtrlSetData($combo_33_21, $channels[$i], "----------") GUICtrlSetData($combo_34_21, $channels[$i], "----------") GUICtrlSetData($combo_35_21, $channels[$i], "----------") GUICtrlSetData($combo_36_21, $channels[$i], "----------") GUICtrlSetData($combo_37_21, $channels[$i], "----------") Next EndIf EndIf _WriteLog("Info - Read Available Channels from DVB-Viewer: Finished") Return EndFunc ;Function to Read Channel List from WebGrab Siteini files. Func _ReadData_WebGrab_Siteini() _WriteLog("Info - WebGrab_Siteini: Started") GUICtrlSetData($combo_32_11, "") GUICtrlSetData($combo_32_11, "----------", "----------") GUICtrlSetData($listview_32_91, "") Local $query, $array, $Rows, $Columns, $i, $Rval $query = 'SELECT SITEINI_NAME FROM WEBGRAB_SITEINI WHERE SITEINI_USE LIKE "TRUE" ORDER BY UPPER(SITEINI_NAME);' $Rval = _SQLite_GetTable($buddy_db, $query, $array, $Rows, $Columns) ;~ _ArraySort($array,0,2) For $i = 2 to $array[0] GUICtrlSetData($combo_32_11, $array[$i], "----------") Next _WriteLog("Info - WebGrab_Siteini: Finished") Return EndFunc ;Function To Refresh The Channel Lists on Startup Func _Refresh_channellist() Local $option = "--get_channellist" If $ini_epg_source_tvspielfilm = 1 Then $option = $option & ":tvspielfilm" GUICtrlSetData($S_Label02, "Refreshed Available Channels List for TVSpielfilm.de") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE) _WriteLog("Info - Refreshed Available Channels List for TVSpielfilm.de") EndIf If $ini_epg_source_epgdata = 1 Then $option = $option & ":epgdata" GUICtrlSetData($S_Label02, "Refreshed Available Channels List for epgData.com") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE) _WriteLog("Info - Refreshed Available Channels List for epgData.com") EndIf If $ini_epg_source_clickfinder = 1 Then $option = $option & ":clickfinder" GUICtrlSetData($S_Label02, "Refreshed Available Channels List for TVMovie Clickfinder") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE) _WriteLog("Info - Refreshed Available Channels List for TVMovie Clickfinder") EndIf If $ini_epg_source_tvguide = 1 Then $option = $option & ":tvguide" GUICtrlSetData($S_Label02, "Refreshed Available Channels List for TVGuide.com") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE) _WriteLog("Info - Refreshed Available Channels List for TVGuide.com") EndIf If $ini_epg_source_xml = 1 Then $option = $option & ":url" GUICtrlSetData($S_Label02, "Refreshed Available Channels List for external XML files") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE) _WriteLog("Info - Refreshed Available Channels List for external XML files") EndIf If $ini_epg_source_rytec = 1 Then $option = $option & ":rytec" GUICtrlSetData($S_Label02, "Refreshed Available Regions for Rytec") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE) GUICtrlSetData($S_Label02, "Refreshed Available Channels List for Rytec") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--get_channellist:url", @ScriptDir, "", @SW_HIDE) _WriteLog("Info - Refreshed Available Channels List for Rytec") EndIf If $option = "--get_channellist" Then _WriteLog("Info - No Direct EPG Source selected, skipping refresh of Available Channels List") GUICtrlSetData($S_Label02, "No Direct EPG Source selected, skipping refresh of Available Channels List") EndIf _WriteLog("Info - Refreshed Available Channels finished") EndFunc ;Function to Restart the program Func _Restart() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFunc ;Function to Save SQL Settings in INI file. Func _SaveTV_Database_Settings() If $ini_tvdatabase = "SQLite" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", GUICtrlRead($input_11_01)) EndIf If $ini_tvdatabase = "MySQL" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", GUICtrlRead($input_11_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", GUICtrlRead($input_11_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", GUICtrlRead($input_11_04)) EndIf If $ini_tvdatabase = "MSSQL" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", GUICtrlRead($input_11_05)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", GUICtrlRead($input_11_06)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", GUICtrlRead($input_11_07)) EndIf If $ini_tvdatabase = "Argus" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", GUICtrlRead($input_11_10)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", GUICtrlRead($input_11_08)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", GUICtrlRead($input_11_09)) EndIf If $ini_tvdatabase = "NextPVR" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", GUICtrlRead($input_11_11)) EndIf If $ini_tvdatabase = "DVBV" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", GUICtrlRead($input_11_13)) EndIf EndFunc ;Function to Save Settings in INI files. Func _SaveSettings() Local $handle ;Files, Folders And Credentials IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", GUICtrlRead($input_11_13)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", GUICtrlRead($input_11_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", GUICtrlRead($input_11_11)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", GUICtrlRead($input_11_10)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", GUICtrlRead($input_11_08)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", GUICtrlRead($input_11_09)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", GUICtrlRead($input_11_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", GUICtrlRead($input_11_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", GUICtrlRead($input_11_04)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", GUICtrlRead($input_11_05)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", GUICtrlRead($input_11_06)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", GUICtrlRead($input_11_07)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_clickfinder", GUICtrlRead($input_23_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xepg_folder", GUICtrlRead($input_05_16)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", GUICtrlRead($input_05_15)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_name", GUICtrlRead($input_05_11)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_task", GUICtrlRead($input_05_21)) ;Settings IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine_xml", GUICtrlRead($check_05_15)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_cacheclean", GUICtrlRead($check_05_08)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", GUICtrlRead($password_23_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", GUICtrlRead($check_05_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_series_override", GUICtrlRead($check_05_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_rytec", GUICtrlRead($check_23_04)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", GUICtrlRead($check_24_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", GUICtrlRead($check_21_11)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_mapping", GUICtrlRead($check_05_07)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", GUICtrlRead($input_33_22)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_webgrab", GUICtrlRead($input_32_22)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvspielfilm ", GUICtrlRead($input_31_22)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvguide ", GUICtrlRead($input_35_22)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_monday", GUICtrlRead($check_41_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tuesday", GUICtrlRead($check_41_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_wednesday", GUICtrlRead($check_41_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_thursday", GUICtrlRead($check_41_04)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_friday", GUICtrlRead($check_41_05)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_saturday", GUICtrlRead($check_41_06)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_sunday", GUICtrlRead($check_41_07)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_time", GUICtrlRead($input_41_11)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvspielfilm", GUICtrlRead($check_31_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_webgrab", GUICtrlRead($check_32_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_rytec", GUICtrlRead($check_37_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_epgdata", GUICtrlRead($check_33_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_clickfinder", GUICtrlRead($check_34_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvguide", GUICtrlRead($check_35_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_xml", GUICtrlRead($check_36_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_wake", GUICtrlRead($check_41_11)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_delay", GUICtrlRead($check_41_12)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_idle", GUICtrlRead($check_41_13)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_meta_language", GUICtrlRead($combo_05_05)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_language", GUICtrlRead($combo_05_25)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_loglevel", GUICtrlRead($check_05_21)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_parameter", GUICtrlRead($input_05_22)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_run", GUICtrlRead($check_05_26)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", GUICtrlRead($password_21_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", GUICtrlRead($password_21_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", GUICtrlRead($password_21_04)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_xepg", GUICtrlRead($check_05_16)) If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") If GUICtrlRead($radio_05_11) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_suffix", "1") If GUICtrlRead($radio_05_12) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_suffix", "2") If GUICtrlRead($radio_11_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "SQLite") If GUICtrlRead($radio_11_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "MySQL") If GUICtrlRead($radio_11_03) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "MSSQL") If GUICtrlRead($radio_11_04) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "Argus") If GUICtrlRead($radio_11_05) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "NextPVR") If GUICtrlRead($radio_11_06) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "DVBV") If GUICtrlRead($radio_11_07) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "Manual") If GUICtrlRead($radio_41_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_type", "1.4") If GUICtrlRead($radio_41_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_type", "1.2") $handle = FileOpen(@ScriptDir & "\email_tvguide.txt", 2) Filewrite($handle, GUICtrlRead($password_24_01)) FileClose($handle) $handle = FileOpen(@ScriptDir & "\pass_tvguide.txt", 2) Filewrite($handle, GUICtrlRead($password_24_02)) FileClose($handle) $handle = FileOpen(@ScriptDir & "\path_xml.txt", 2) Filewrite($handle, GUICtrlRead($password_21_11)) FileClose($handle) $handle = FileOpen(@ScriptDir & "\user_xml.txt", 2) Filewrite($handle, GUICtrlRead($password_21_02)) FileClose($handle) $handle = FileOpen(@ScriptDir & "\pass_xml.txt", 2) Filewrite($handle, GUICtrlRead($password_21_03)) FileClose($handle) FileCopy(@ScriptDir & "\xmltv.dtd", GUICtrlRead($input_05_15) & "\xmltv.dtd", 8) EndFunc ;Function to Update Metadata Flags. Func _SetFlag() Local $la;, $la1 $ini_meta_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_meta_flag", @ScriptDir & "\Images\Flags\en.jpg") $la = GUICtrlRead($combo_05_05) If $ini_meta_flag <> @ScriptDir & "\Images\Flags\" & $la & ".jpg" Then GUICtrlSetImage($pic_05_05, @ScriptDir & "\Images\Flags\" & $la & ".jpg") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_meta_flag", @ScriptDir & "\Images\Flags\" & $la & ".jpg") EndIf $ini_gui_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_gui_flag", @ScriptDir & "\Images\Flags\en.jpg") If GUICtrlRead($combo_05_25) = "English" Then $la = "en" If GUICtrlRead($combo_05_25) = "Deutsch" Then $la = "de" If $ini_gui_flag <> @ScriptDir & "\Images\Flags\" & $la & ".jpg" Then GUICtrlSetImage($pic_05_25, @ScriptDir & "\Images\Flags\" & $la & ".jpg") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_gui_flag", @ScriptDir & "\Images\Flags\" & $la & ".jpg") EndIf EndFunc ;Function to preselect channel groups. Func _SetGroup_31() _WriteLog("Info - SetGroup: Started") _Hide_GUI($Array_GUI_Elements_31_8) _Show_GUI($Array_GUI_Elements_31_9) Local $i, $j, $text For $i = 2 To UBound($group_array) - 1 GUICtrlCreateListViewItem($group_array[$i], $listview_31_91) Next If $ini_loglevel = 1 Then _WriteLog("Debug - UBound Group Index checked: " & Ubound($Groups_checked)) For $i = 0 To Ubound($group_array) - 2 $text = _GUICtrlListView_GetItemText($listview_31_91, $i) $j = _ArraySearch($Groups_checked, $text) If $j > 0 Then If $ini_loglevel = 1 Then _WriteLog("Debug - Group Index checked: " & $text) _GUICtrlListView_SetItemChecked($listview_31_91, $i) EndIf Next $channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVSPIELFILM_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array, $channel_Rows, $channel_Columns) _WriteLog("Info - SetGroup: Finished") Return EndFunc ;Function to preselect channel groups. Func _SetGroup_34() _WriteLog("Info - SetGroup: Started") _Hide_GUI($Array_GUI_Elements_34_8) _Show_GUI($Array_GUI_Elements_34_9) Local $i, $j, $text For $i = 2 To UBound($group_array3) - 1 GUICtrlCreateListViewItem($group_array3[$i], $listview_34_91) Next If $ini_loglevel = 1 Then _WriteLog("Debug - UBound Group Index checked: " & Ubound($Groups_checked3)) For $i = 0 To Ubound($group_array3) - 2 $text = _GUICtrlListView_GetItemText($listview_34_91, $i) $j = _ArraySearch($Groups_checked3, $text) If $j > 0 Then If $ini_loglevel = 1 Then _WriteLog("Debug - Group Index checked: " & $text) _GUICtrlListView_SetItemChecked($listview_34_91, $i) EndIf Next ; Read Available Channels for Clickfinder $channel_query4 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM CLICKFINDER_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval4 = _SQLite_GetTable2d($buddy_db, $channel_query4, $channel_array4, $channel_Rows4, $channel_Columns4) _WriteLog("Info - SetGroup: Finished") Return EndFunc ;Function to Update controls. Func _SetLabel($cControl, $sData) If GUICtrlRead($cControl) <> $sData Then GUICtrlSetData($cControl, StringReplace($sData, "&", "&&")) EndFunc ;Function to Update controls. Func _SetData($cControl, $sData) If GUICtrlRead($cControl) <> $sData Then GUICtrlSetData($cControl, $sData) EndFunc ;Function to Update controls. Func _SetData_Channel_31($item) Local $index _ShowGui_Channellist_31() $index = _ArraySearch($channel_array, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data TVSpielfilm - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data TVSpielfilm - List Index = " & $index) _SetData($input_31_21, $channel_array[$index][3]) _SetData($input_31_22, $channel_array[$index][1]) _SetLabel($label_31_22, $channel_array[$index][0]) _SetLabel($label_31_24, $channel_array[$index][3]) _SetData($combo_31_21, "----------") If GUICtrlRead($check_31_01) = 1 Then GUICtrlSetState($check_31_21, $GUI_UNCHECKED) GUICtrlSetState($check_31_21, $GUI_DISABLE) Else GUICtrlSetState($check_31_21, $GUI_ENABLE) If $channel_array[$index][4] = "TRUE" Then GUICtrlSetState($check_31_21, $GUI_CHECKED) Else GUICtrlSetState($check_31_21, $GUI_UNCHECKED) EndIf EndIf EndFunc ;Function to Update controls. Func _SetData_Channel_32($item) Local $index, $index2, $query, $array, $Rows, $Columns, $Rval _ShowGui_Channellist_32() $index = _ArraySearch($list_WebGrab, $item, 0, 0, 0, 1) If $index > 0 Then $index2 = StringSplit($list_WebGrab[$index], " - ", 1) $query = 'SELECT XMLTV_ID, RUN_E2T, CHANNEL, SITEINI FROM WebGrab_CHANNELS WHERE NAME LIKE "' & $index2[2] & '" AND SITEINI Like "' & GUICtrlRead($combo_32_11) & '" ORDER BY UPPER(NAME) ;' $Rval = _SQLite_GetTable2D($buddy_db, $query, $array, $Rows, $Columns) If UBound($array) > 1 Then _SetData($input_32_21, $array[1][0]) _SetData($label_32_24, StringReplace($array[1][0], "&", "&&")) GUICtrlSetState($check_32_22, $GUI_CHECKED) If GUICtrlRead($check_32_01) = 1 Then GUICtrlSetState($check_32_21, $GUI_UNCHECKED) GUICtrlSetState($check_32_21, $GUI_DISABLE) Else If $array[1][1] = "TRUE" Then GUICtrlSetState($check_32_21, $GUI_CHECKED) Else GUICtrlSetState($check_32_21, $GUI_UNCHECKED) EndIf EndIf Else _SetData($input_32_21, $index2[2]) _SetData($label_32_24, StringReplace($index2[2], "&", "&&")) GUICtrlSetState($check_32_21, $GUI_UNCHECKED) If GUICtrlRead($check_32_01) = 1 Then GUICtrlSetState($check_32_21, $GUI_DISABLE) Else GUICtrlSetState($check_32_21, $GUI_ENABLE) EndIf GUICtrlSetState($check_32_22, $GUI_UNCHECKED) EndIf _SetData($label_32_22, StringReplace($index2[2], "&", "&&")) ;~ _SetData($combo_32_21, "----------") _SetData($check_32_22, StringReplace($index2[2] & " " & $lng_grabfrom & ": " & GUICtrlRead($combo_32_11), "&", "&&")) EndIf EndFunc ;Function to Update controls. Func _SetData_Channel_33($item) Local $index _ShowGui_Channellist_33() $index = _ArraySearch($channel_array3, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data epgData - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data epgData - List Index = " & $index) _SetData($input_33_21, $channel_array3[$index][3]) _SetLabel($label_33_22, $channel_array3[$index][0]) _SetLabel($label_33_24, $channel_array3[$index][3]) _SetData($combo_33_21, "----------") If GUICtrlRead($check_33_01) = 1 Then GUICtrlSetState($check_33_21, $GUI_UNCHECKED) GUICtrlSetState($check_33_21, $GUI_DISABLE) Else GUICtrlSetState($check_33_21, $GUI_ENABLE) If $channel_array3[$index][4] = "TRUE" Then GUICtrlSetState($check_33_21, $GUI_CHECKED) Else GUICtrlSetState($check_33_21, $GUI_UNCHECKED) EndIf EndIf EndFunc ;Function to Update controls. Func _SetData_Channel_34($item) Local $index _ShowGui_Channellist_34() $index = _ArraySearch($channel_array4, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data Clickfinder - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data Clickfinder - List Index = " & $index) _SetData($input_34_21, $channel_array4[$index][3]) _SetLabel($label_34_22, $channel_array4[$index][0]) _SetLabel($label_34_24, $channel_array4[$index][3]) _SetData($combo_34_21, "----------") If GUICtrlRead($check_34_01) = 1 Then GUICtrlSetState($check_34_21, $GUI_UNCHECKED) GUICtrlSetState($check_34_21, $GUI_DISABLE) Else GUICtrlSetState($check_34_21, $GUI_ENABLE) If $channel_array4[$index][4] = "TRUE" Then GUICtrlSetState($check_34_21, $GUI_CHECKED) Else GUICtrlSetState($check_34_21, $GUI_UNCHECKED) EndIf EndIf If $channel_array4[$index][1] = "1" Then GUICtrlSetState($check_34_22, $GUI_CHECKED) Else GUICtrlSetState($check_34_22, $GUI_UNCHECKED) EndIf _SetData($check_34_22, $channel_array4[$index][3] & " " & $lng_grabfrom & " Clickfinder?") EndFunc ;Function to Update controls. Func _SetData_Channel_35($item) Local $index _WriteLog("Info - _SetData_Channel_35 started") _ShowGui_Channellist_35() $index = _ArraySearch($channel_array5, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels TVGuide Data - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels TVGuide Data - List Index = " & $index) _SetData($input_35_21, $channel_array5[$index][3]) _SetLabel($label_35_22, $channel_array5[$index][0]) _SetLabel($label_35_24, $channel_array5[$index][3]) _SetData($combo_35_21, "----------") If GUICtrlRead($check_35_01) = 1 Then GUICtrlSetState($check_35_21, $GUI_UNCHECKED) GUICtrlSetState($check_35_21, $GUI_DISABLE) Else GUICtrlSetState($check_35_21, $GUI_ENABLE) If $channel_array5[$index][4] = "TRUE" Then GUICtrlSetState($check_35_21, $GUI_CHECKED) Else GUICtrlSetState($check_35_21, $GUI_UNCHECKED) EndIf EndIf If $channel_array5[$index][1] > 0 Then GUICtrlSetState($check_35_22, $GUI_CHECKED) Else GUICtrlSetState($check_35_22, $GUI_UNCHECKED) EndIf _SetData($check_35_22, StringReplace($channel_array5[$index][3] & " " & $lng_grabfrom & " TVGuide?", "&", "&&")) EndFunc ;Function to Update controls. Func _SetData_Channel_36($item) Local $index _WriteLog("Info - _SetData_Channel_36 started") _ShowGui_Channellist_36() $index = _ArraySearch($channel_array6, $item) _WriteLog("Debug - Set Channels External XML Data - List Item = " & $item) _WriteLog("Debug - Set Channels External XML Data - List Index = " & $index) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels External XML Data - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels External XML Data - List Index = " & $index) _SetData($input_36_21, $channel_array6[$index][2]) _SetLabel($label_36_22, $channel_array6[$index][0]) _SetLabel($label_36_24, $channel_array6[$index][2]) _SetData($combo_36_21, "----------") If GUICtrlRead($check_36_01) = 1 Then GUICtrlSetState($check_36_21, $GUI_UNCHECKED) GUICtrlSetState($check_36_21, $GUI_DISABLE) Else GUICtrlSetState($check_36_21, $GUI_ENABLE) If $channel_array6[$index][3] = "TRUE" Then GUICtrlSetState($check_36_21, $GUI_CHECKED) Else GUICtrlSetState($check_36_21, $GUI_UNCHECKED) EndIf EndIf EndFunc ;Function to Update controls. Func _SetData_Channel_37($item) Local $index _WriteLog("Info - _SetData_Channel_37 started") _ShowGui_Channellist_37() $index = _ArraySearch($channel_array7, $item) _WriteLog("Debug - Set Channels Rytec - List Item = " & $item) _WriteLog("Debug - Set Channels Rytec - List Index = " & $index) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Rytec - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Rytec - List Index = " & $index) _SetData($input_37_21, $channel_array7[$index][2]) _SetLabel($label_37_22, $channel_array7[$index][0]) _SetLabel($label_37_24, $channel_array7[$index][2]) _SetData($combo_37_21, "----------") If GUICtrlRead($check_37_01) = 1 Then GUICtrlSetState($check_37_21, $GUI_UNCHECKED) GUICtrlSetState($check_37_21, $GUI_DISABLE) Else GUICtrlSetState($check_37_21, $GUI_ENABLE) If $channel_array7[$index][3] = "TRUE" Then GUICtrlSetState($check_37_21, $GUI_CHECKED) Else GUICtrlSetState($check_37_21, $GUI_UNCHECKED) EndIf EndIf EndFunc ;Function to set channel list fro selected Siteini. Func _SetList_WebGrab($item) Local $file, $channelid Dim $siteID[1] Dim $list[1] Dim $list_WebGrab[1] Dim $elements[1] $file = FileOpen(@ScriptDir & "\WebGrab\" & $item & ".channels.xml", 128) _FileReadToArray(@ScriptDir & "\WebGrab\" & $item & ".channels.xml", $list) GUICtrlSetData($listview_32_11, "") For $i = 4 To $list[0] - 2 Dim $element[1] $element = _StringBetween($list[$i], '">', '') $channelid = _StringBetween($list[$i], 'site_id="', '" xmltv_id') _ArrayAdd($list_WebGrab, $i & " - " & $element[0] & " - " & $channelid[0]) _ArrayAdd($elements, $element[0]) Next FileClose($file) _ArraySort($elements) For $i = 1 To UBound($elements) - 1 GUICtrlSetData($listview_32_11, $elements[$i]) Next EndFunc ;Function to preselect Region. Func _SetRegion() _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Show_GUI($Array_GUI_Elements_37_9) $showitem_37_11 = 0 _WriteLog("Info - SetRegion: Started") Local $i, $j, $text, $query, $array, $array2, $Rows, $Columns, $i, $Rval $listview_37_91 = GUICtrlCreateListview("Name ", 350, 280, 320, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES) _GUICtrlListView_SetColumnWidth($listview_37_91, 0, 295) $query = 'SELECT * FROM EPG_GRABBER_RYTEC_CATEGORIES ;' $Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns) For $i = 1 To UBound($array) - 1 GUICtrlCreateListViewItem($array[$i][1], $listview_37_91) $query = 'SELECT PROVIDER FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE PROVIDER LIKE "' & $array[$i][2] & '";' $Rval = _SQLite_GetTable2d($buddy_db, $query, $array2, $Rows, $Columns) If _ElementExists($array2, 1) Then _GUICtrlListView_SetItemChecked($listview_37_91, $i - 1) EndIf Next _WriteLog("Info - SetRegion: Finished") EndFunc ;Function to generate task scheduler entry for automated back-ups Func _Set_Schedule() Local $option _WriteLog("Info - SetSchedule: Started") _MakeXML() ShellExecuteWait(@ScriptDir & "\SetSchedule.exe", "set", "", "", @SW_HIDE) _WriteLog("Info - SetSchedule: Finished") MsgBox(0, $lng_success, $lng_accomplished, 2) EndFunc ;Function to preselect Siteini. Func _SetSiteini() _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Show_GUI($Array_GUI_Elements_32_9) $showitem_32_11 = 0 _WriteLog("Info - SetSiteini: Started") Local $i, $j, $text, $query, $array, $Rows, $Columns, $i, $Rval $listview_32_91 = GUICtrlCreateListview("Name ", 350, 280, 320, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES) _GUICtrlListView_SetColumnWidth($listview_32_91, 0, 295) $query = 'SELECT SITEINI_NAME, SITEINI_USE FROM WEBGRAB_SITEINI ORDER BY UPPER(SITEINI_NAME) ;' $Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns) For $i = 1 To UBound($array) - 1 GUICtrlCreateListViewItem($array[$i][0], $listview_32_91) If $array[$i][1] = "TRUE" Then _GUICtrlListView_SetItemChecked($listview_32_91, $i - 1) If $ini_loglevel = 1 Then _WriteLog("Info - SetSiteini: Ini " & $array[$i][0] & " $array[" & $i - 2 & "][1] = " & $array[$i][1]) EndIf Next _SQLite_QueryFinalize($Rval) _WriteLog("Info - SetSiteini: Finished") GUICtrlSetData($listview_32_11, "") EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_31() Local $data, $index If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_31_7) _Show_GUI($Array_GUI_Elements_31_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_31_6) _Show_GUI($Array_GUI_Elements_31_7) EndIf Return EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_32() Local $data, $index If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_32_7) _Show_GUI($Array_GUI_Elements_32_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_32_6) _Show_GUI($Array_GUI_Elements_32_7) EndIf Return EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_33() Local $data, $index If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_33_7) _Show_GUI($Array_GUI_Elements_33_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_33_6) _Show_GUI($Array_GUI_Elements_33_7) EndIf Return EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_34() Local $data, $index If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_34_7) _Show_GUI($Array_GUI_Elements_34_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_34_6) _Show_GUI($Array_GUI_Elements_34_7) EndIf Return EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_35() Local $data, $index _WriteLog("Info - _ShowGui_Channellist_35 started") If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_35_7) _Show_GUI($Array_GUI_Elements_35_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_35_6) _Show_GUI($Array_GUI_Elements_35_7) EndIf Return EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_36() Local $data, $index _WriteLog("Info - _ShowGui_Channellist_36 started") If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_36_7) _Show_GUI($Array_GUI_Elements_36_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_36_6) _Show_GUI($Array_GUI_Elements_36_7) EndIf Return EndFunc ;Function to Read Channel Listview. Func _ShowGui_Channellist_37() Local $data, $index _WriteLog("Info - _ShowGui_Channellist_37 started") If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1") _Hide_GUI($Array_GUI_Elements_37_7) _Show_GUI($Array_GUI_Elements_37_6) EndIf If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2") _Hide_GUI($Array_GUI_Elements_37_6) _Show_GUI($Array_GUI_Elements_37_7) EndIf Return EndFunc ;Function to read SiteIni List into Database Func _SiteiniListToDB() _WriteLog("SiteiniListToDB - Start reading files to Database") Local $PathSplit, $sDrive, $sDir, $sFilename, $sExtension, $i, $Index Dim $Array[1] $Array = _FileListToArrayRec(@ScriptDir & "\WebGrab", "*.channels.xml", 1, 1) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To $Array[0] $PathSplit = _PathSplit(@ScriptDir & "\WebGrab\" & $Array[$i], $sDrive, $sDir, $sFilename, $sExtension) _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO WEBGRAB_SITEINI (SITEINI_NAME) VALUES ("' & StringTrimRight($PathSplit[3], 9) & '") ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") _WriteLog("SiteiniListToDB - Finished reading files to Database") GUICtrlSetData($listview_32_11, "") Return EndFunc ;Function to Update database entries. Func _WriteData_Channel_31($item) Local $run_e2t, $xmltv_id, $index $index = _ArraySearch($channel_array, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_31_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_31_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If GUICtrlRead($check_31_21) = 1 Then $run_e2t = "TRUE" Else $run_e2t = "FALSE" EndIf If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET MAX_DAYS = "' & GUICtrlRead($input_31_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array[$index][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & GUICtrlRead($input_31_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array[$index][0] & '" ;') EndIf Sleep(100) $channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVSPIELFILM_CHANNELS ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array, $channel_Rows, $channel_Columns) _WriteLog("Info - Write Available Channels done for " & $channel_array[$index][0]) EndFunc ;Function to Update database entries. Func _WriteData_Channel_32($item) Local $run_e2t, $xmltv_id, $index, $index2 _WriteLog("Info - _WriteData_Channel_32 $item = " & $item) If GUICtrlRead($check_32_22) = 1 Then $index = _ArraySearch($list_WebGrab, $item, 0, 0, 0, 1) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_32_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_32_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If $index > 0 Then $index2 = StringSplit($list_WebGrab[$index], " - ", 1) If GUICtrlRead($check_32_21) = 1 Then $run_e2t = "TRUE" Else $run_e2t = "FALSE" EndIf _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO WebGrab_CHANNELS (CHANNEL, NAME, XMLTV_ID, SITEINI) VALUES ("' & $index2[3] & '", "' & $item & '", "' & $index2[2] & '", "' & GUICtrlRead($combo_32_11) & '") ;') If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE WebGrab_CHANNELS SET CHANNEL = "' & $index2[3] & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;') _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET CHANNEL = "' & $index2[3] & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE WebGrab_CHANNELS SET CHANNEL = "' & $index2[3] & '", XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;') _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET CHANNEL = "' & $index2[3] & '", XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;') EndIf EndIf Else _SQLite_Exec($buddy_db, 'DELETE FROM WebGrab_CHANNELS WHERE NAME LIKE "' & $item & '" AND SITEINI LIKE "' & GUICtrlRead($combo_32_11) & '" ;') _SQLite_Exec($buddy_db, 'DELETE FROM URL_CHANNELS WHERE NAME LIKE "' & $item & '" ;') EndIf EndFunc ;Function to Update database entries. Func _WriteData_Channel_33($item) Local $run_e2t, $xmltv_id, $index, $maxdays $index = _ArraySearch($channel_array3, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_33_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_33_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If GUICtrlRead($check_33_21) = 1 Then $run_e2t = "TRUE" Else $run_e2t = "FALSE" EndIf $maxdays = GUICtrlRead($input_33_22) If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array3[$index][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array3[$index][0] & '" ;') EndIf Sleep(100) $channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM EPGDATA_CHANNELS ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array3, $channel_Rows, $channel_Columns) _WriteLog("Info - Write Available Channels done for " & $channel_array3[$index][0]) EndFunc ;Function to Update database entries. Func _WriteData_Channel_34($item) Local $run_e2t, $xmltv_id, $index, $maxdays $index = _ArraySearch($channel_array4, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_34_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_34_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If GUICtrlRead($check_34_21) = 1 Then $run_e2t = "TRUE" Else $run_e2t = "FALSE" EndIf If GUICtrlRead($check_34_22) = 1 Then $maxdays = "1" Else $maxdays = "0" EndIf If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array4[$index][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array4[$index][0] & '" ;') EndIf Sleep(100) $channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM CLICKFINDER_CHANNELS ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array4, $channel_Rows, $channel_Columns) _WriteLog("Info - Write Available Channels done for " & $channel_array4[$index][0]) EndFunc ;Function to Update database entries. Func _WriteData_Channel_35($item) Local $run_e2t, $xmltv_id, $index, $maxdays $index = _ArraySearch($channel_array5, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_35_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_35_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If GUICtrlRead($check_35_21) = 1 Then $run_e2t = "TRUE" Else $run_e2t = "FALSE" EndIf If GUICtrlRead($check_35_22) = 1 Then $maxdays = "14" Else $maxdays = "0" EndIf If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE TVGUIDE_CHANNELS SET MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array5[$index][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE TVGUIDE_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array5[$index][0] & '" ;') EndIf Sleep(100) $channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVGUIDE_CHANNELS ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array5, $channel_Rows, $channel_Columns) _WriteLog("Info - Write Available Channels done for " & $channel_array5[$index][0]) EndFunc ;Function to Update database entries. Func _WriteData_Channel_36($item) Local $run_e2t, $xmltv_id, $index $index = _ArraySearch($channel_array6, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_36_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_36_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If GUICtrlRead($check_36_21) = 1 Then $run_e2t = "TRUE" Else $run_e2t = "FALSE" EndIf If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array6[$index][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array6[$index][0] & '" ;') EndIf Sleep(100) $channel_query = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array6, $channel_Rows, $channel_Columns) _WriteLog("Info - Write Available Channels done for " & $channel_array6[$index][0]) EndFunc ;Function to Update database entries. Func _WriteData_Channel_37($item) Local $run_e2t, $xmltv_id, $index $index = _ArraySearch($channel_array7, $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index) If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_37_21) If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_37_21) If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id) If GUICtrlRead($check_37_21) = 1 Then $run_e2t = "True" Else $run_e2t = "False" EndIf If $xmltv_id = "----------" Then _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;') _WriteLog('Info - UPDATE URL_CHANNELS SET RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;') _WriteLog('Info - UPDATE URL_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;') EndIf Sleep(100) $channel_query = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;" $channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array7, $channel_Rows, $channel_Columns) EndFunc ;Function to preselect channel groups. Func _WriteGroup_31() _WriteLog("Info - WriteGroup: Started") Local $i, $j, $fle_hwnd $fle_hwnd = FileOpen(@ScriptDir & "\groups.ini", 10) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 2 To UBound($group_array) - 1 $j = $i - 2 If _GUICtrlListView_GetItemChecked($listview_31_91, $j) Then FileWrite($fle_hwnd, $group_array[$i] & @CRLF) If $ini_loglevel = 1 Then _WriteLog("Debug - Group checked: " & $group_array[$i]) _SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET MAX_DAYS = "14", RUN_E2T = "TRUE" WHERE CATEGORY LIKE "' & $group_array[$i] & '" ;') Else If $ini_loglevel = 1 Then _WriteLog("Debug - Group not checked: " & $group_array[$i]) _SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET MAX_DAYS = "0", RUN_E2T = "FALSE" WHERE CATEGORY LIKE "' & $group_array[$i] & '" ;') EndIf Next FileClose($fle_hwnd) _SQLite_Exec($buddy_db, "END TRANSACTION ;") _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_9) _Show_GUI($Array_GUI_Elements_31_8) _WriteLog("Info - WriteGroup: Finished") EndFunc ;Function to preselect channel groups. Func _WriteGroup_34() _WriteLog("Info - WriteGroup: Started") Local $i, $j, $fle_hwnd $fle_hwnd = FileOpen(@ScriptDir & "\groups3.ini", 10) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") _SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "0", RUN_E2T = "FALSE" ;') For $i = 2 To UBound($group_array3) - 1 $j = $i - 2 If _GUICtrlListView_GetItemChecked($listview_34_91, $j) Then FileWrite($fle_hwnd, $group_array3[$i] & @CRLF) If $ini_loglevel = 1 Then _WriteLog("Debug - Group checked: " & $group_array3[$i]) _SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "1", RUN_E2T = "TRUE" WHERE CATEGORY LIKE "' & $group_array3[$i] & '" ;') Else If $ini_loglevel = 1 Then _WriteLog("Debug - Group not checked: " & $group_array3[$i]) _SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "0", RUN_E2T = "FALSE" WHERE CATEGORY LIKE "' & $group_array3[$i] & '" ;') EndIf Next FileClose($fle_hwnd) _SQLite_Exec($buddy_db, "END TRANSACTION ;") _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_9) _Show_GUI($Array_GUI_Elements_34_8) _WriteLog("Info - WriteGroup: Finished") EndFunc ;Function to Write Logfile ;~ /** ;~ * Function for writing an user-defined status/error message into a log file ;~ * (Requires Date.au3) ;~ * ;~ * @author Björn Bastian (http://aufschnur.de) ;~ * @version 2014-01-27 ;~ * @param Message the data to be written into the log file ;~ * @param Filepath an user-defined logfile path (optional, default = \.log) ;~ * @param Timestamp a boolean trigger for adding the timestamp (optional, default = TRUE) ;~ * @return Result of logging as boolean (Success/Fail) ;~ */ Func _WriteLog($Message, $Filepath = "", $Timestamp = TRUE) ; Use default logfile path if no user-defined is set If $Filepath == "" Then $Filepath = @ScriptDir & '\Log\' & StringTrimRight(@ScriptName, 4) & ".log" EndIf ; Add timestamp if desired If $Timestamp == TRUE Then $Message = _Now() & ' - ' & $Message EndIf ; Save data to log file Local $Logfile = FileOpen($Filepath, 1) If $Logfile <> -1 Then FileWriteLine($Logfile, $Message) FileClose($Logfile) Return TRUE Else Return FALSE EndIf EndFunc ;==>_WriteLog ;Function to Update database entries. Func _WriteMaxDays_epgData() Local $i, $j, $text, $query, $array, $Rows, $Columns, $i, $Rval IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", GUICtrlRead($input_33_22)) $query = 'SELECT NAME FROM EPGDATA_CHANNELS ;' $Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To $Rows _SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET MAX_DAYS = "' & GUICtrlRead($input_33_22) & '" ;') Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") EndFunc ;Function to Update database entries. Func _WriteMaxDays_TVGuide() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvguide ", GUICtrlRead($input_35_22)) _SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($input_35_22) & '" WHERE SETTING LIKE "Global_Max_Days" ;') EndFunc ;Function to preselect Region. Func _WriteRegion() _WriteLog("Info - WriteRegion: Started") Local $i, $j, $query, $array, $Rows, $Columns, $Rval _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER TEXT, USERNAME TEXT, PASSWORD TEXT, DESCRIPTION TEXT UNIQUE ON CONFLICT IGNORE);") _SQLite_Exec($buddy_db, 'DELETE FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "RYTEC|%";') $query = 'SELECT * FROM EPG_GRABBER_RYTEC_CATEGORIES ;'; ORDER BY UPPER(DESCRIPTION) ;' $Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($array) - 1 If _GUICtrlListView_GetItemChecked($listview_37_91, $i-1) Then _SQLite_Exec($buddy_db, 'INSERT INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER,DESCRIPTION) VALUES ("' & $array[$i][2] & '","RYTEC|' & $array[$i][0] & '|' & $array[$i][1] & '") ;') EndIf Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--get_channellist:url", @ScriptDir, "", @SW_HIDE) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_37_8) _WriteLog("Info - WriteRegion: Finished") EndFunc ;Function to preselect siteini. Func _WriteSiteini() _WriteLog("Info - WriteSiteini: Started") Local $i, $j, $query, $array, $Rows, $Columns, $Rval $query = 'SELECT SITEINI_NAME, SITEINI_USE FROM WEBGRAB_SITEINI ORDER BY UPPER(SITEINI_NAME) ;' $Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns) _SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;") For $i = 1 To UBound($array) - 1 $j = $i - 1 If _GUICtrlListView_GetItemChecked($listview_32_91, $j) Then _SQLite_Exec($buddy_db, 'UPDATE WEBGRAB_SITEINI SET SITEINI_USE = "TRUE" WHERE SITEINI_NAME LIKE "' & $array[$i][0] & '" ;') Else _SQLite_Exec($buddy_db, 'UPDATE WEBGRAB_SITEINI SET SITEINI_USE = "FALSE" WHERE SITEINI_NAME LIKE "' & $array[$i][0] & '" ;') EndIf Next _SQLite_Exec($buddy_db, "END TRANSACTION ;") _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_9) _Show_GUI($Array_GUI_Elements_32_8) _SetData($combo_32_11, "----------") $comboitem_32_11 = "" _WriteLog("Info - WriteSiteini: Finished") EndFunc ;Function to Write WebGrab+Plus config file Func _WriteWebGrabConfig() Local $fle_hwnd, $Rval, $query, $array, $Rows, $Columns, $i IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", GUICtrlRead($password_21_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", GUICtrlRead($password_21_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", GUICtrlRead($password_21_04)) $ini_user_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", "") $ini_email_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", "") $ini_pass_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", "") $query = 'SELECT XMLTV_ID, CHANNEL, SITEINI FROM WebGrab_CHANNELS;' $Rval = _SQLite_GetTable2D($buddy_db, $query, $array, $Rows, $Columns) $fle_hwnd = FileOpen(@ScriptDir & "\WebGrab\WebGrab++.config.xml", 2) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", '' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", '' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & @ScriptDir & '\EPG-Grabber.URL.XML_0.xml' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' m' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' mdb' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' automatic' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0; yie9)' & @CRLF) ;~ If $ini_user_webgrab = "username" Then ;~ FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & @CRLF) ;~ Else ;~ FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & @CRLF) ;~ EndIf FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' on' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' 4' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' noskip' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & GUICtrlRead($input_32_22) - 1 & '' & @CRLF) FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' s' & @CRLF) For $i = 1 To UBound($array) - 1 FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & $array[$i][0] & '' & @CRLF) Next FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", '' & @CRLF) FileClose($fle_hwnd) MsgBox(0, $lng_success, $lng_accomplished, 2) EndFunc #EndRegion ;Function Declaration #Region ;GUI Function Declaration ;Function To Clear GUI Elements Func _Hide_GUI($dArray) For $i = 1 To UBound($dArray) - 1 GUICtrlSetState($dArray[$i],$GUI_HIDE) Next EndFunc ;Function To Show GUI Elements Func _Show_GUI($dArray) For $i = 1 To UBound($dArray) - 1 GUICtrlSetState($dArray[$i], $GUI_SHOW) Next EndFunc ;Function To Show TV Settings MP2-SQLite GUI (1) Func _GUI_Show_TV_Settings() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1") _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_03) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Show_GUI($Array_GUI_Elements_11) EndFunc ;Function To Show International EPG Settings GUI (21) Func _GUI_Show_EPG_Settings_International() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "21") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_03) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_02) _Show_GUI($Array_GUI_Elements_21) EndFunc ;Function To Show Europe EPG Settings GUI (23) Func _GUI_Show_EPG_Settings_Europe() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "23") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_03) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_02) _Show_GUI($Array_GUI_Elements_23) EndFunc ;Function To Show America EPG Settings GUI (24) Func _GUI_Show_EPG_Settings_America() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "24") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_03) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_02) _Show_GUI($Array_GUI_Elements_24) EndFunc ;Function To Show TVSpielfilm EPG Data GUI (31) Func _GUI_Show_EPG_Data_TVSpielfilm() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "31") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_31) _Show_GUI($Array_GUI_Elements_31_8) EndFunc ;Function To Show WebGrab EPG Data GUI (3-2) Func _GUI_Show_EPG_Data_WebGrab() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "32") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_32) _Show_GUI($Array_GUI_Elements_32_8) EndFunc ;Function To Show epgData.com EPG Data GUI (3-3) Func _GUI_Show_EPG_Data_epgData() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "33") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_33) EndFunc ;Function To Show Clickfinder EPG Data GUI (3-4) Func _GUI_Show_EPG_Data_clickfinder() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "34") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_34) _Show_GUI($Array_GUI_Elements_34_8) EndFunc ;Function To Show TVGuide EPG Data GUI (3-5) Func _GUI_Show_EPG_Data_tvguide() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "35") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_35) EndFunc ;Function To Show External XML EPG Data GUI (3-6) Func _GUI_Show_EPG_Data_xml() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "36") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_36) EndFunc ;Function To Show Rytec EPG Data GUI (3-7) Func _GUI_Show_EPG_Data_Rytec() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "37") _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_41) _Hide_GUI($Array_GUI_Elements_51) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) ;~ _Hide_GUI($Array_GUI_Elements_36_8) _Hide_GUI($Array_GUI_Elements_37_9) _Show_GUI($Array_GUI_Elements_03) _Show_GUI($Array_GUI_Elements_37) _Show_GUI($Array_GUI_Elements_37_8) EndFunc ;Function To Show Schedules GUI (4-1) Func _GUI_Show_Schedule_Settings() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "4") _Hide_GUI($Array_GUI_Elements_03) _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Hide_GUI($Array_GUI_Elements_51) _Show_GUI($Array_GUI_Elements_41) EndFunc ;Function To Show Settings GUI (5-1) Func _GUI_Show_Settings() IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "5") _Hide_GUI($Array_GUI_Elements_03) _Hide_GUI($Array_GUI_Elements_11) _Hide_GUI($Array_GUI_Elements_02) _Hide_GUI($Array_GUI_Elements_21) _Hide_GUI($Array_GUI_Elements_23) _Hide_GUI($Array_GUI_Elements_24) _Hide_GUI($Array_GUI_Elements_31) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_31_6) _Hide_GUI($Array_GUI_Elements_31_7) _Hide_GUI($Array_GUI_Elements_31_8) _Hide_GUI($Array_GUI_Elements_31_9) _Hide_GUI($Array_GUI_Elements_32) _Hide_GUI($Array_GUI_Elements_32_6) _Hide_GUI($Array_GUI_Elements_32_7) _Hide_GUI($Array_GUI_Elements_32_8) _Hide_GUI($Array_GUI_Elements_32_9) _Hide_GUI($Array_GUI_Elements_33) _Hide_GUI($Array_GUI_Elements_33_6) _Hide_GUI($Array_GUI_Elements_33_7) _Hide_GUI($Array_GUI_Elements_34) _Hide_GUI($Array_GUI_Elements_34_6) _Hide_GUI($Array_GUI_Elements_34_7) _Hide_GUI($Array_GUI_Elements_34_8) _Hide_GUI($Array_GUI_Elements_34_9) _Hide_GUI($Array_GUI_Elements_35) _Hide_GUI($Array_GUI_Elements_35_6) _Hide_GUI($Array_GUI_Elements_35_7) _Hide_GUI($Array_GUI_Elements_36) _Hide_GUI($Array_GUI_Elements_36_6) _Hide_GUI($Array_GUI_Elements_36_7) _Hide_GUI($Array_GUI_Elements_37) _Hide_GUI($Array_GUI_Elements_37_6) _Hide_GUI($Array_GUI_Elements_37_7) _Hide_GUI($Array_GUI_Elements_37_8) _Hide_GUI($Array_GUI_Elements_37_9) _Hide_GUI($Array_GUI_Elements_41) _Show_GUI($Array_GUI_Elements_51) EndFunc ;Function to Create Main GUI Func _GUI_Main() Global $Drive, $Dir, $Filename, $Extension Local $msg1, $IF1, $tv_database, $lng, $XML_Folder While 1 _GetTime() _GetListRytec() _GetListTVGuide() _GetListTVSpielfilm() _GetListWebGrab() _GetListEpgData() _GetListXML() _GetListClickfinder() _SetFlag() $msg1 = GUIGetMsg(1) Select ;~ Menu Items Case $msg1[0] = $infoitem MsgBox(0, $lng_about & " " & $Title, "EPG- Buddy" & @CRLF & @CRLF & "(C) 2016 Lehmden" & @CRLF & @CRLF & "Version: " & $version) Case $msg1[0] = $docitem If FileExists(@ScriptDir & "\Doc\" & $ini_language & "_EPG-Buddy Manual.pdf") Then $lng = $ini_language Else $lng = "English" EndIf ShellExecute(@ScriptDir & "\Doc\" & $lng & "_EPG-Buddy Manual.pdf") ;~ TV Database GUI Case $msg1[0] = $Navigation_Button_01 OR $msg1[0] = $tvwizarditem _GUI_Show_TV_Settings() Case $msg1[0] = $button_11_01 $IF1 = _PathSplit(GUICtrlRead($input_11_01), $Drive, $Dir, $Filename, $Extension) $tv_database = FileOpenDialog($lng_tvdbfile, $IF1[1] & $IF1[2], $lng_database & " (*.s3db)", $FD_FILEMUSTEXIST, "MP2TVE_3.s3db") If $tv_database <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", $tv_database) _SetData($input_11_01, $tv_database) EndIf Case $msg1[0] = $button_11_11 $IF1 = _PathSplit(GUICtrlRead($input_11_11), $Drive, $Dir, $Filename, $Extension) $tv_database = FileOpenDialog($lng_tvdbfile, $IF1[1] & $IF1[2], $lng_database & " (*.db3)", $FD_FILEMUSTEXIST, "npvr.db3") If $tv_database <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", $tv_database) _SetData($input_11_11, $tv_database) EndIf Case $msg1[0] = $button_11_13 $IF1 = _PathSplit(GUICtrlRead($input_11_13), $Drive, $Dir, $Filename, $Extension) $tv_database = FileOpenDialog($lng_tvdbfile, $IF1[1] & $IF1[2], $lng_database & " (*.ini)", $FD_FILEMUSTEXIST) If $tv_database <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", $tv_database) _SetData($input_11_13, $tv_database) EndIf Case $msg1[0] = $button_11_02 _SaveTV_Database_Settings() Local $value = MsgBox(36, $lng_save, $lng_saveconfig & "." & @CRLF & $lng_langchange & @CRLF & @CRLF & $lng_saveexit & @CRLF & $lng_savenotexit) If $value = 6 Then _Exit("1") EndIf ;~ EPG Source Items Case $msg1[0] = $Navigation_Button_02 OR $msg1[0] = $epgwizarditem IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2") _LastSubModule2() Case $msg1[0] = $button_02_01 IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", GUICtrlRead($password_23_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_tvguide", GUICtrlRead($password_24_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_tvguide", GUICtrlRead($password_24_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", GUICtrlRead($check_05_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", GUICtrlRead($check_24_01)) IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_rytec", GUICtrlRead($check_23_04)) _Refresh_channellist() Local $value = MsgBox(36, $lng_save, $lng_saveconfig & "." & @CRLF & $lng_langchange & @CRLF & @CRLF & $lng_saveexit & @CRLF & $lng_savenotexit) If $value = 6 Then _Exit("1") EndIf Case $msg1[0] = $Select_Button_02_01 _GUI_Show_EPG_Settings_International() Case $msg1[0] = $Select_Button_02_03 _GUI_Show_EPG_Settings_Europe() Case $msg1[0] = $Select_Button_02_04 _GUI_Show_EPG_Settings_America() Case $msg1[0] = $button_23_01 ShellExecute("http://www.tvspielfilm.de/") Case $msg1[0] = $button_21_01 ShellExecute("http://www.webgrabplus.com/") Case $msg1[0] = $button_23_03 ShellExecute("http://www.epgdata.com/") Case $msg1[0] = $button_23_02 ShellExecute("http://www.tvmovie.de/") Case $msg1[0] = $button_24_01 ShellExecute("http://www.tvguide.com/") Case $msg1[0] = $button_23_02a Local $IF2 = _PathSplit(GUICtrlRead($input_23_02), $Drive, $Dir, $Filename, $Extension) Local $ini_database_click = FileOpenDialog($lng_database, $IF2[1] & $IF2[2], $lng_database & " (*.mdb)", $FD_FILEMUSTEXIST, "tvdaten.mdb") If $ini_database_click <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_clickfinder", $ini_database_click) _SetData($input_23_02, $ini_database_click) EndIf ;~ EPG Data Items Case $msg1[0] = $Navigation_Button_03 OR $msg1[0] = $epgdataitem IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3") _LastSubModule3() Case $msg1[0] = $Select_Button_03_01 _GUI_Show_EPG_Data_TVSpielfilm() Case $msg1[0] = $Select_Button_03_02 _GUI_Show_EPG_Data_WebGrab() Case $msg1[0] = $Select_Button_03_03 _GUI_Show_EPG_Data_epgData() Case $msg1[0] = $Select_Button_03_04 _GUI_Show_EPG_Data_clickfinder() Case $msg1[0] = $Select_Button_03_05 _GUI_Show_EPG_Data_tvguide() Case $msg1[0] = $Select_Button_03_06 _GUI_Show_EPG_Data_xml() Case $msg1[0] = $Select_Button_03_07 _GUI_Show_EPG_Data_Rytec() Case $msg1[0] = $button_31_01 _SetGroup_31() Case $msg1[0] = $button_31_91 _WriteGroup_31() Case $msg1[0] = $button_32_01 GUICtrlDelete($listview_32_91) _SetSiteini() Case $msg1[0] = $button_32_11 _GetComboWebGrab() $showitem_32_11 = 1 Case $msg1[0] = $button_32_21 _WriteWebGrabConfig() Case $msg1[0] = $button_32_91 _WriteSiteini() _ReadData_WebGrab_Siteini() Case $msg1[0] = $button_34_01 _SetGroup_34() Case $msg1[0] = $button_34_91 _WriteGroup_34() Case $msg1[0] = $button_37_01 GUICtrlDelete($listview_37_91) _SetRegion() Case $msg1[0] = $button_37_91 _WriteRegion() ;~ Schedule Items Case $msg1[0] = $Navigation_Button_04 OR $msg1[0] = $schedulesitem _GUI_Show_Schedule_Settings() Case $msg1[0] = $button_41_21 _Delete_Schedule() Case $msg1[0] = $button_41_22 _Set_Schedule() Case $msg1[0] = $button_41_23 _GetEPG() ;~ Settings Items Case $msg1[0] = $Navigation_Button_05 OR $msg1[0] = $settingsitem _GUI_Show_Settings() Case $msg1[0] = $button_05_01 Local $value = MsgBox(36, $lng_save, $lng_saveconfig & "." & @CRLF & $lng_langchange & @CRLF & @CRLF & $lng_saveexit & @CRLF & $lng_savenotexit) If $value = 6 Then _Exit("1") EndIf Case $msg1[0] = $button_05_15 $XML_Folder = FileSelectFolder($lng_inputfoldertext, $IF1, -1, $IF1) If $XML_Folder <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "folder", "$ini_xml_folder", $XML_Folder) _SetData($input_05_15, $XML_Folder) EndIf Case $msg1[0] = $button_05_16 $IF1 = _PathSplit(GUICtrlRead($input_05_16), $Drive, $Dir, $Filename, $Extension) $tv_database = FileOpenDialog("XEPG Executable", $IF1[1] & $IF1[2], $lng_database & " (*.exe)", $FD_FILEMUSTEXIST, "xepg.exe") If $tv_database <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xepg_folder", $tv_database) _SetData($input_05_16, $tv_database) EndIf Case $msg1[0] = $button_05_21 Local $IF3 = _PathSplit(GUICtrlRead($input_05_21), $Drive, $Dir, $Filename, $Extension) $ini_task = FileOpenDialog($lng_files, $IF3[1] & $IF3[2], $lng_files & " (*.exe;*.bat)", $FD_FILEMUSTEXIST) If $ini_task <> "" Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_task", $ini_task) _SetData($input_05_21, $ini_task) EndIf ;~ Exit Items Case $msg1[0] = $GUI_EVENT_CLOSE Or $msg1[0] = $Exititem _Exit() EndSelect Sleep(20) WEnd EndFunc #EndRegion ;Function Declaration