JsScripts.vb

Imports System.IO
Imports System.Reflection
Imports System.Text
Imports System.Text.Json

''' <summary>
''' Helper interno per il caricamento lazy delle risorse incorporate (JavaScript e CSS) da assembly.
''' </summary>
Friend Module EmbeddedScriptLoader
    Private ReadOnly _resourceCache As New Dictionary(Of String, String)(StringComparer.OrdinalIgnoreCase)
    Private ReadOnly _lockObj As New Object()

    Public Function GetEmbeddedString(resourceFileName As String) As String
        SyncLock _lockObj
            Dim cached As String = Nothing
            If _resourceCache.TryGetValue(resourceFileName, cached) Then
                Return cached
            End If

            Dim asm = Assembly.GetExecutingAssembly()
            Dim resourceName = asm.GetManifestResourceNames().FirstOrDefault(Function(n) n.EndsWith(resourceFileName, StringComparison.OrdinalIgnoreCase))
            If resourceName Is Nothing Then
                Debug.WriteLine($"[EmbeddedScriptLoader] Embedded resource '{resourceFileName}' not found.")
                Return String.Empty
            End If

            Using stream = asm.GetManifestResourceStream(resourceName)
                If stream Is Nothing Then Return String.Empty
                Using reader As New StreamReader(stream, Encoding.UTF8)
                    cached = reader.ReadToEnd()
                    _resourceCache(resourceFileName) = cached
                    Return cached
                End Using
            End Using
        End SyncLock
    End Function
End Module

''' <summary>
''' Contiene gli script CSS e JavaScript per la personalizzazione dell'interfaccia Web di WhatsApp e Telegram 
''' (angoli arrotondati, temi scuro/chiaro e sincronizzazione tema) caricati on-demand.
''' </summary>
Public Class ThemeJsScripts
    Private Shared ReadOnly _lightModeJs As New Lazy(Of String)(Function()
        Dim themeCss = EmbeddedScriptLoader.GetEmbeddedString("theme.css")
        Return "var style = document.createElement(""style"");" & vbCrLf &
               "style.innerHTML = `" & themeCss & " body{ background:#fff !important; } ._ap4q::after { background-color: #fff !important; } `;" & vbCrLf &
               "var ref = document.querySelector(""script"");" & vbCrLf &
               "ref.parentNode.insertBefore(style, ref);" & vbCrLf &
               "document.getElementsByTagName(""body"")[0].classList = [""""];"
    End Function)

    Private Shared ReadOnly _darkModeJs As New Lazy(Of String)(Function()
        Dim themeCss = EmbeddedScriptLoader.GetEmbeddedString("theme.css")
        Return "var style = document.createElement(""style"");" & vbCrLf &
               "style.innerHTML = `" & themeCss & " body{ background:#000 !important; } ._ap4q::after { background-color: #000 !important; } `;" & vbCrLf &
               "var ref = document.querySelector(""script"");" & vbCrLf &
               "ref.parentNode.insertBefore(style, ref);" & vbCrLf &
               "document.getElementsByTagName(""body"")[0].classList = [""dark""];"
    End Function)

    Private Shared ReadOnly _telegramInitJs As New Lazy(Of String)(Function()
        Dim telegramCss = EmbeddedScriptLoader.GetEmbeddedString("telegram.css")
        Dim cssJson = JsonSerializer.Serialize(telegramCss)
        Return "(function() {" & vbCrLf &
               "  if (window.top !== window.self) return;" & vbCrLf &
               "  var injectCss = function() {" & vbCrLf &
               "    try {" & vbCrLf &
               "      var styleId = 'hidachat-telegram-css';" & vbCrLf &
               "      if (!document.getElementById(styleId)) {" & vbCrLf &
               "        var style = document.createElement('style');" & vbCrLf &
               "        style.id = styleId;" & vbCrLf &
               "        style.textContent = " & cssJson & ";" & vbCrLf &
               "        (document.head || document.documentElement).appendChild(style);" & vbCrLf &
               "      }" & vbCrLf &
               "    } catch(e) {}" & vbCrLf &
               "  };" & vbCrLf &
               "  injectCss();" & vbCrLf &
               "  if (document.readyState === 'loading') {" & vbCrLf &
               "    document.addEventListener('DOMContentLoaded', injectCss);" & vbCrLf &
               "  }" & vbCrLf &
               "})();"
    End Function)

    Private Shared ReadOnly _telegramLightModeJs As New Lazy(Of String)(Function()
        Dim telegramCss = EmbeddedScriptLoader.GetEmbeddedString("telegram.css")
        Dim cssJson = JsonSerializer.Serialize(telegramCss)
        Return "(function() {" & vbCrLf &
               "  if (window.top !== window.self) return;" & vbCrLf &
               "  try {" & vbCrLf &
               "    var styleId = 'hidachat-telegram-css';" & vbCrLf &
               "    if (!document.getElementById(styleId)) {" & vbCrLf &
               "      var style = document.createElement('style');" & vbCrLf &
               "      style.id = styleId;" & vbCrLf &
               "      style.textContent = " & cssJson & ";" & vbCrLf &
               "      (document.head || document.documentElement).appendChild(style);" & vbCrLf &
               "    }" & vbCrLf &
               "    document.documentElement.classList.remove('night', 'theme-dark', 'dark');" & vbCrLf &
               "    document.documentElement.classList.add('theme-light', 'light');" & vbCrLf &
               "    if (document.body) {" & vbCrLf &
               "      document.body.classList.remove('night', 'theme-dark', 'dark');" & vbCrLf &
               "      document.body.classList.add('theme-light', 'light');" & vbCrLf &
               "    }" & vbCrLf &
               "    try { localStorage.setItem('tt-theme', 'day'); } catch(e) {}" & vbCrLf &
               "    try { localStorage.setItem('theme', 'day'); } catch(e) {}" & vbCrLf &
               "  } catch(e) {}" & vbCrLf &
               "  if (window.themeController && typeof window.themeController.setTheme === 'function') {" & vbCrLf &
               "    try { window.themeController.setTheme('day'); } catch(e) {}" & vbCrLf &
               "  }" & vbCrLf &
               "  if (window.appThemeController && typeof window.appThemeController.setTheme === 'function') {" & vbCrLf &
               "    try { window.appThemeController.setTheme('day'); } catch(e) {}" & vbCrLf &
               "  }" & vbCrLf &
               "})();"
    End Function)

    Private Shared ReadOnly _telegramDarkModeJs As New Lazy(Of String)(Function()
        Dim telegramCss = EmbeddedScriptLoader.GetEmbeddedString("telegram.css")
        Dim cssJson = JsonSerializer.Serialize(telegramCss)
        Return "(function() {" & vbCrLf &
               "  if (window.top !== window.self) return;" & vbCrLf &
               "  try {" & vbCrLf &
               "    var styleId = 'hidachat-telegram-css';" & vbCrLf &
               "    var existingStyle = document.getElementById(styleId);" & vbCrLf &
               "    if (!existingStyle) {" & vbCrLf &
               "      var style = document.createElement('style');" & vbCrLf &
               "      style.id = styleId;" & vbCrLf &
               "      style.textContent = " & cssJson & ";" & vbCrLf &
               "      (document.head || document.documentElement).appendChild(style);" & vbCrLf &
               "    }" & vbCrLf &
               "    document.documentElement.classList.remove('theme-light', 'light');" & vbCrLf &
               "    document.documentElement.classList.add('night', 'theme-dark', 'dark');" & vbCrLf &
               "    if (document.body) {" & vbCrLf &
               "      document.body.classList.remove('theme-light', 'light');" & vbCrLf &
               "      document.body.classList.add('night', 'theme-dark', 'dark');" & vbCrLf &
               "    }" & vbCrLf &
               "    try { localStorage.setItem('tt-theme', 'night'); } catch(e) {}" & vbCrLf &
               "    try { localStorage.setItem('theme', 'night'); } catch(e) {}" & vbCrLf &
               "  } catch(e) {}" & vbCrLf &
               "  if (window.themeController && typeof window.themeController.setTheme === 'function') {" & vbCrLf &
               "    try { window.themeController.setTheme('night'); } catch(e) {}" & vbCrLf &
               "  }" & vbCrLf &
               "  if (window.appThemeController && typeof window.appThemeController.setTheme === 'function') {" & vbCrLf &
               "    try { window.appThemeController.setTheme('night'); } catch(e) {}" & vbCrLf &
               "  }" & vbCrLf &
               "})();"
    End Function)

    ''' <summary>Script per l'applicazione del tema Chiaro in WhatsApp Web.</summary>
    Public Shared ReadOnly Property LightModeJS As String
        Get
            Return _lightModeJs.Value
        End Get
    End Property

    ''' <summary>Script per l'applicazione del tema Scuro in WhatsApp Web.</summary>
    Public Shared ReadOnly Property DarkModeJS As String
        Get
            Return _darkModeJs.Value
        End Get
    End Property

    ''' <summary>Script per l'iniezione iniziale dei fogli di stile responsivi in Telegram Web.</summary>
    Public Shared ReadOnly Property TelegramInitJS As String
        Get
            Return _telegramInitJs.Value
        End Get
    End Property

    ''' <summary>Script per l'applicazione del tema Chiaro in Telegram Web.</summary>
    Public Shared ReadOnly Property TelegramLightModeJS As String
        Get
            Return _telegramLightModeJs.Value
        End Get
    End Property

    ''' <summary>Script per l'applicazione del tema Scuro in Telegram Web.</summary>
    Public Shared ReadOnly Property TelegramDarkModeJS As String
        Get
            Return _telegramDarkModeJs.Value
        End Get
    End Property

    ''' <summary>Genera lo script JavaScript per applicare o rimuovere regole CSS personalizzate dell'utente (TODO #43).</summary>
    Public Shared Function GetCustomCssJS(cssText As String, enabled As Boolean) As String
        Dim jsonCss = JsonSerializer.Serialize(If(cssText, String.Empty))
        Dim isEnabled = If(enabled AndAlso Not String.IsNullOrWhiteSpace(cssText), "true", "false")
        Return "(function() {" & vbCrLf &
               "  try {" & vbCrLf &
               "    var styleId = 'hidachat-custom-user-css';" & vbCrLf &
               "    var styleEl = document.getElementById(styleId);" & vbCrLf &
               "    var enabled = " & isEnabled & ";" & vbCrLf &
               "    var css = " & jsonCss & ";" & vbCrLf &
               "    if (!enabled || !css || css.trim() === '') {" & vbCrLf &
               "      if (styleEl && styleEl.parentNode) { styleEl.parentNode.removeChild(styleEl); }" & vbCrLf &
               "      return;" & vbCrLf &
               "    }" & vbCrLf &
               "    if (!styleEl) {" & vbCrLf &
               "      styleEl = document.createElement('style');" & vbCrLf &
               "      styleEl.id = styleId;" & vbCrLf &
               "      (document.head || document.documentElement).appendChild(styleEl);" & vbCrLf &
               "    }" & vbCrLf &
               "    styleEl.textContent = css;" & vbCrLf &
               "  } catch(e) {" & vbCrLf &
               "    console.error('[CustomCSS] Injection error:', e);" & vbCrLf &
               "  }" & vbCrLf &
               "})();"
    End Function
End Class

''' <summary>
''' Contiene lo script JavaScript per l'override delle notifiche native del browser (ServiceWorkerRegistration e Notification),
''' reindirizzando le notifiche di WhatsApp verso la finestra host WPF via IPC (chrome.webview.postMessage) con bridgeToken incapsulato privatamente.
''' </summary>
Public Class NotificationJsScripts
    Private Shared ReadOnly _notificationTemplate As New Lazy(Of String)(Function()
        Return EmbeddedScriptLoader.GetEmbeddedString("notification.js")
    End Function)

    ''' <summary>Script per l'override delle notifiche con token IPC privato incapsulato nella closure.</summary>
    Public Shared Function GetNotificationOverrideJS(bridgeToken As String) As String
        Dim jsonToken = JsonSerializer.Serialize(bridgeToken)
        Dim sb As New StringBuilder(_notificationTemplate.Value)
        sb.Replace("$$BRIDGE_TOKEN$$", jsonToken)
        Return sb.ToString()
    End Function
End Class

''' <summary>
''' Contiene gli script JavaScript necessari alla funzione di traduzione messaggi (pulsante hover, bolla di traduzione, scansione DOM) con bridgeToken incapsulato privatamente.
''' </summary>
Public Class TranslationJsScripts
    Private Shared ReadOnly _translationTemplate As New Lazy(Of String)(Function()
        Return EmbeddedScriptLoader.GetEmbeddedString("translation.js")
    End Function)

    ''' <summary>
    ''' Assembla ed inietta lo script JavaScript completo di traduzione configurato con la lingua, le opzioni attuali e il token IPC privato.
    ''' </summary>
    Public Shared Function GetTranslationJS(
        bridgeToken As String,
        targetLangCode As String,
        targetLangName As String,
        tooltipLabel As String,
        enableHover As Boolean,
        enableFullPage As Boolean
    ) As String
        Dim jsonToken = JsonSerializer.Serialize(bridgeToken)
        Dim jsonLangCode = JsonSerializer.Serialize(If(targetLangCode, "en"))
        Dim jsonLangName = JsonSerializer.Serialize(If(targetLangName, "English"))
        Dim jsonTooltip = JsonSerializer.Serialize(If(tooltipLabel, "Translate"))

        Dim hoverClassListCmd = If(enableHover,
            "document.body.classList.remove('disable-hover-translation');",
            "document.body.classList.add('disable-hover-translation');")

        Dim fullPageInitCmd = If(enableFullPage,
            "if (document.readyState === 'complete') { window.translatePage(); } else { window.addEventListener('load', () => window.translatePage()); }",
            "")

        Dim sb As New StringBuilder(_translationTemplate.Value)
        sb.Replace("$$BRIDGE_TOKEN$$", jsonToken)
        sb.Replace("$$LANG_CODE$$", jsonLangCode)
        sb.Replace("$$LANG_NAME$$", jsonLangName)
        sb.Replace("$$TOOLTIP$$", jsonTooltip)
        sb.Replace("$$ENABLE_HOVER$$", enableHover.ToString().ToLowerInvariant())
        sb.Replace("$$HOVER_CLASS_CMD$$", hoverClassListCmd)
        sb.Replace("$$FULL_PAGE_INIT$$", fullPageInitCmd)

        Return sb.ToString()
    End Function
End Class