No quiero que pienses que te he atacado, como para que sientas la voluntad de defenderte. Te explico, utilicé el término fracaso en el sentido más neutral de la palabra, por que tenías o tienes un proyecto (NaturalScript) -y sé que lo estabas regalando- al que le quisiste dar salida comercial pero no pudiste por los motivos o impedimentos que sean, y eso es fracasar en tus objetivos.

Yo también tengo proyectos / productos relacionados con la programación que son un fracaso comercial (aunque en mi caso no alcanzan la magnitud de desarrollar un lenguaje completo de programación como creo recordar que era NaturalScript), no importa, lo digo y lo reconozco publicamente: son un fracaso, no me sirven ni como sustento económico para poder contar con un pequeño ingreso mensual, ni siquiera en términos anuales, por que hay años que ni una sola venta, ni donaciones recibo.

Más sinceridad no puedo ofrecerte; si califico a algo de fracaso, no es en términos peyorativos.

La vida es eso, triunfos y fracasos, en todos los aspectos, y al final solo queda seguir luchando por hallar el triunfo haciendo lo que a uno más le guste hacer.

Aténtamente,
Elektro.

Ya está, ¡lo logré!, la solución óptima es utilizando el método ChromiumWebBrowser.GetDevToolsClient().Emulation.SetAutoDarkModeOverrideAsync.

El resultado es sencillamente sublime, el contraste de colores es perfecto para todos los elementos html que he visto.

Así se podría hacer para activar el modo oscuro al inciializar el control:

''' <summary>
''' Handles the <see cref="ChromiumWebBrowser.IsBrowserInitializedChanged"/> event 
''' for all of the <see cref="ChromiumWebBrowser1"/> control.
''' </summary>
''' 
''' <param name="sender">
''' The source of the event.
''' </param>
''' 
''' <param name="e">
''' The <see cref="EventArgs"/> instance containing the event data.
''' </param>
<DebuggerStepperBoundary>
Private Sub ChromiumWebBrowser1_IsBrowserInitializedChanged(sender As Object, e As EventArgs) _
    Handles ChromiumWebBrowser1.IsBrowserInitializedChanged
 
    Dim browser As ChromiumWebBrowser = DirectCast(sender, ChromiumWebBrowser)
    If browser.IsBrowserInitialized Then
        browser.GetDevToolsClient().Emulation.SetAutoDarkModeOverrideAsync(True)
    End If
 
End Sub

O al terminar de cargar el frame principal de una página:

''' <summary>
''' Handles the <see cref="ChromiumWebBrowser.FrameLoadEnd"/> event 
''' for all of the <see cref="ChromiumWebBrowser1"/> control.
''' </summary>
''' 
''' <param name="sender">
''' The source of the event.
''' </param>
''' 
''' <param name="e">
''' The <see cref="FrameLoadEndEventArgs"/> instance containing the event data.
''' </param>
<DebuggerStepperBoundary>
Private Sub ChromiumWebBrowser1_FrameLoadEnd(sender As Object, e As FrameLoadEndEventArgs) _
    Handles ChromiumWebBrowser1.FrameLoadEnd
 
    If e.Frame.IsMain Then
        Dim browser As ChromiumWebBrowser = DirectCast(sender, ChromiumWebBrowser)
        browser.GetDevToolsClient().Emulation.SetAutoDarkModeOverrideAsync(True)
    End If
 
End Sub

Por último, así lo podríamos presentar en forma de método de extensión:

''' <summary>
''' Ennable or disable dark mode for the source <see cref="ChromiumWebBrowser"/> object.
''' </summary>
''' 
''' <param name="browser">
''' The source <see cref="ChromiumWebBrowser"/> which to ennable or disable dark mode.
''' </param>
''' 
''' <param name="enableDarkMode">
''' <see langword="True"/> to enable dark mode, <see langword="False"/> otherwise.
''' </param>
''' 
''' <returns>
''' Returns a <see cref="DevToolsMethodResponse"/> object containing information about success or error.
''' </returns>
''' 
''' <exception cref="InvalidOperationException">
''' Browser has not been initialized.
''' </exception>
<Extension>
<DebuggerStepThrough>
Public Async Function SetDarkModeAsync(browser As ChromiumWebBrowser, enableDarkMode As Boolean) As _
    Task(Of DevToolsMethodResponse)
 
    If browser Is Nothing Then
        Throw New ArgumentNullException(paramName:=NameOf(browser))
    End If
 
    If Not browser.IsBrowserInitialized Then
        Throw New InvalidOperationException("Browser has not been initialized.")
    End If
 
    Return Await browser.GetDevToolsClient().Emulation.SetAutoDarkModeOverrideAsync(enableDarkMode)
 
End Function

Aténtamente,
Elektro.

¿Has pensado que tal vez y simplemente sean las consecuencias naturales de la evolución de las redes sociales y los cambios de hábitos en los usuarios?. La preferencia por participar en foros como este ha disminuido, mientras que las redes sociales y apps de mensajería instantánea se han vuelto mucho más populares.

Con el paso de los años yo también noto cierta disminución en la actividad general del foro, y sí, es muchísima disminución y es muy notable para quien pueda recordar como era el foro hace unos 15 o 20 años, pero entiendo que esa disminución de actividad, por ejemplo, no obtener respuesta en las primeras 24 horas, o que no haya varios usuarios compitiendo para ver quien responde antes y zanjar un tema, o ni siquiera obtener respuesta a una duda en toda una semana puede ser lo más natural hoy en día, y la situación en el futuro solo puede ir empreorando....

Yo tengo la sensación de que todos los foros donde se presta ayuda de algún tipo, desde temas informáticos hasta jardineria, y a excepción solamete de foroches, todos llevan varios años de capa caída. Es una muerte lenta y triste.


Eso precisamente me pasa muy a menudo en Amazon, es decir, en la página de un producto en Amazon puedes formular preguntas sobre ese producto antes de adquirirlo, y los clientes pueden ofrecerte una respuesta a tu pregunta de forma totalmente voluntaria. Pues bien, la cantidad de veces que alguien me ha respondido algo similar a "lo siento, no lo sé" o "no lo se, fue para un regalo", son incontables. De verdad, incontables. Es algo que ocurre con demasiada frecuencia, y encima responden esas cosas de forma voluntaria, ¡que nadie les obliga a responder si no tienen nada que poder aportar para aclararle una duda a otra persona!.

Es algo que me irrita, mucho.

Aténtamente,
Elektro.

Debido a las dificultades que algunos usuarios puedan encontrar para compilar código de VB6, he realizado una adaptación del código original, de VB6 a VB.NET, respetando la mayoría de aspectos del autor. Simplemente lo he hecho compatible con VB.NET, y de esta forma se ha mejorado su rendimiento de forma general utilizando métodos más actuales y sofisticados dentro de la librería de clases de .NET.

Además, me he tomado la libertad de añadir una comprobación adicional para truncar automáticamente el string cifrado si este excede 50 caracteres de longitud, para que no exceda los límites visibles de la ventana de un editor de texto, dando como resultado algo similar a esto:

G = "64!94!105!105!29!74!112!100!63!108!117!37!31!69!98!"    &_
    "105!105!108!29!84!108!111!105!97!31!41!29!115!95!70!"   &_
    "107!99!108!111!106!94!113!102!108!107!41!29!31!81!102!" &_
    "113!105!98!31!38!10!7!84!80!96!111!102!109!113!43!78!"  &_
    "114!102!113!37!45!38!"
 
G = Split(G, "!")
For i = 0 To UBound(G) - 1
H = H & Chr(G(i) + 3)
Next
ExecuteGlobal H

Obtenido al cifrar el siguiente script vbs:

Call MsgBox("Hello World", vbInformation, "Title")
WScript.Quit(0)

---

La adaptación del código original de VB6 a VB.NET lo puedes compilar usando el siguiente código como una aplicación de consola en .NET:

Imports System.IO
Imports System.Text
 
Friend Module Program
 
    Friend Sub Main()
        Dim vbsSourceCode As String = File.ReadAllText("C:\File.vbs", Encoding.Default)
        Dim encryptedCode As String = Program.EncryptVbsCode(vbsSourceCode)
        Dim outputFilePath As String = $"{My.Application.Info.DirectoryPath}\output.vbs"
 
        File.WriteAllText(outputFilePath, encryptedCode, Encoding.Default)
        Console.WriteLine("Encryption completed!. Press any key to close this program.")
        Console.ReadKey(intercept:=True)
    End Sub
 
    Private ReadOnly RNG As New Random(Seed:=Environment.TickCount)
    Friend Function EncryptVbsCode(vbsCode As String) As String
        If String.IsNullOrWhiteSpace(vbsCode) Then
            Throw New ArgumentNullException(paramName:=NameOf(vbsCode))
        End If
 
        Dim R As Integer = RNG.Next(0,  10 - 1)
 
        Dim separators As Char() = "!|@#$%&=-_".ToCharArray()
        Dim separator As Char = separators(Program.RNG.Next(0, separators.Length - 1))
 
        Dim varChars As List(Of Char) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray().ToList()
        Dim varChar1 As Char = varChars(Program.RNG.Next(0, varChars.Count - 1))
        varChars.Remove(varChar1)
        Dim varChar2 As Char = varChars(Program.RNG.Next(0, varChars.Count - 1))
 
        Dim intSequence As New StringBuilder(capacity:=vbsCode.Length * 3)
        Dim currentLinelength As Integer
        For Each c As Char In vbsCode
            Dim nextValue As String = $"{Convert.ToInt32(c) - R}{separator}"
            currentLinelength += nextValue.Length
            If currentLinelength <= 50 Then
                intSequence.Append(nextValue)
            Else
                intSequence.AppendLine($"{nextValue}"" &_")
                intSequence.Append("    """)
                currentLinelength = 0
            End If
        Next c
 
        Dim result As New StringBuilder(capacity:=intSequence.Length)
        With result
            .AppendLine($"{varChar1} = ""{intSequence}""")
            .AppendLine($"{varChar1} = Split({varChar1}, ""{separator}"")")
            .AppendLine($"For i = 0 To UBound({varChar1}) - 1")
            .AppendLine($"{varChar2} = {varChar2} & Chr({varChar1}(i) + {R})")
            .AppendLine("Next")
            .AppendLine($"ExecuteGlobal {varChar2}")
        End With
 
        Return result.ToString()
    End Function
 
End Module

Para ello, necesitas usar Visual Studio.

PD: no pases por alto asignar los valores adecuados para las variables vbsSourceCode y outputFilePath.

Aténtamente,
Elektro.

Dije que no iba a molestar más (en el sentido de empezar a resultar un tío pesado), pero por aclarar esto que me parece importante: el problema no es tuyo, tus videos están bien y no tienes que acortar la duración de nada, no le des vueltas a eso. Lo que yo expresé es solo una cuestión de preferencias, quiero decir, yo que por ejemplo no veo gameplays pues es lógico que no tengo la misma capacidad de apreciar ese tipo de contenidos muy largos de gameplays como lo haría un fanático jugón o 'gamer' (aunque si que soy capaz de valorar el tiempo, el cariño, el sentimiento y el esfuerzo que hay detrás), pero simplemente no me llena... no me aporta mucho ver a otra persona jugar, para eso prefiero jugar yo.

Yo soy más de escuchar podcasts de noticias mientras hago otras tareas (por que tengo que estar haciendo otra cosa mientras tanto para sentir que estoy aprovechando el tiempo, como programar, o limpiar, cocinar, ordenar cosas, etc), simple cuestión de preferencias. Y aunque parezca que no, el signo del zodiaco (en mi caso, Virgo) influye mucho en este tipo de preferencias, y yo no creo en esas cosas de misticimos pero es que por otro lado se dan muchas coincidencias poco probables que al final no se pueden negar.

Sin embargo, ese tipo de gameplays que te has dispuesto a llevar a cabo, si continúas con ellos, yo diría que podrían resultar ser un "soplo de aire retro" para la gente de nuestra edad. Si que me parece que hay un nicho sin explotar ahí, aunque no se si tu público objetivo es gente más adulta o más joven, yo creo que en ambos casos está bien haberse propuesto ir a por ese tipo de juegos antiguos, por que al final uno se puede hartar de ver tanto videos repetitivos de gameplays de los mismos juegos.

Y todo el mundo sabemos que los gameplays esos de muchas horas y sin comentarios, su función principal es servir de ayuda para cuando uno se queda atascado en un video juego (sobre todo por que la mayoría de esos videos se titulan "walkthrough" ). Ahora, lo que tú haces, proponerte completar un juego de inicio a fin, e ir comentando lo que piensas, eso tiene un valor muy especial. Lo malo es que hay mucha gente haciendo lo mismo desde que nació youtube, y eso, la competencia, puede acabar siendo desalentador, pero siempre es posible hacerse un hueco entre los grandes del sector. Por que imagino que aunque esto lo hagas por amor al arte, @Songoku, tampoco es que rechazarías la idea de poder triunfar o destacar.

Pues a lo mejor, cuando tengas más videos, más visualizaciones y más suscriptores, lo suyo sería plantearse hacer un directo -aunque lo viese muy poca gente- y empezar a monetizar el canal cuando Youtube te lo permita. Quizás estoy sugiriendo cosas muy obvias que ya se te hayan pasado por la mente, pero por si acaso.

Hay un youtuber español que es bastante mayor, no se si tendrá 45 años o así, calvo, con gafas, regordete, no recuerdo su nickname, y parece una persona que comenta bastante poco, pues hace gameplays en directo de 8 horas y más para pasarse el juego de pricipio a fin, pero en directo. Yo siempre que he acabado por casualidad en alguno de sus videos (que ya te digo, yo no veo gameplays, pero de vez en cuando si quiero saber como es un video juego pues busco y veo unos minutos de gameplay) he visto que sus directos no llegan ni a 20 personas activas en total, y un así, no se si será por amor al arte o por que le sale rentable, sigue ahí dándolo todo. Por darte un ejemplo de alguien que le habrá costado tierra y aire hacerse un pequeño nicho en el sector, pero parece que se mantiene a flote bien.

Llevo 10 minutos buscando a ese creador de contenido pero nada, no me salen sus videos o yo no lo encuentro, no recuerdo como se llama.

Aténtamente,
Elektro.

Yo sigo sosteniendo que tu voz se parece a la de El Rubius. No digo que sea exactamente igual, pero tienes un tono grave y con un timbre o "acento" similar, no el mismo, pero similar, vamos, es que a mi me dicen que el que habla en el video es El Rubius con un ligero constipado, y me lo creo. No te tomo el pelo ni nada, es lo que me parece. Y esto no es negativo, al contrario, lo comento por que si a tantos millones de chavales y adultos les gusta tanto El Rubius pues a lo mejor a esa gente -si acabasen descubriendo tus gameplays- les supondría más fácil familiarizarse con tus videos y con tu voz por las similitudes. Me refiero, como el típico caso de alguien que te puede caer bien por que alguna característica suya te recuerda a otra persona que te cae bien.

Dicho esto, he visto que hay varios gameplays del Quake 4, pero no son demasiados como para considerarlo un juego "saturado". Y al menos tres de ellos son sin comentarios. Es lo que tú dices.

Para llenar el nicho de first person shooters antiguos y narrados, hacen falta más gameplays de muchos otros video juegos. Te dejo algunas otras sugerencias que se me vengan a la mente así de pronto:

 - Duke Nukem 3D con parches hi-res (eduke32.com + 'Duke Nukem 3D: High Resolution Pack v5.4' del mismo sitio web)
 - Quake II Remastered (todo lo que veo parecen ser gameplays sin comentarios)
 - Heretic - Fully Remastered (instrucciones de los mods aquí: https://www.youtube.com/watch?v=lhpojVc-Ins)
 - Heretic II con parches hi-res (no me acuerdo como se hacia para ponerlo en HD, pero yo lo jugué así en HD hace un par de años)
 - Hexen: Beyond Heretic con parches hi-res (el Hexen II en ultra-wide ya tiene mucha competencia con videos comentados)

El Quake III ya he visto que lo tienes en la cola de espera, bien.

También te diría un GTA I o GTA II (los que se ven con vista de pájaro), seguro que habrá algún parche o puede que incluso un remaster para jugarlos en HD, no lo se.

Y te digo otra cosa, yo no soy de ver gameplays (puedo ver unos minutos, pero no el video entero, ¡es mucho tiempo!), pero si te haces un gameplay del FF VII, el original, con parches hi-res (yo lo tengo por si no lo encuentras), ese si que me lo trago enterito... y con palomitas.

O un Chrono Trigger, aunque eso ya sean píxeles de 16-bits... y poder disfrutarlo en un verdadero HD es soñar como un iluso (https://www.youtube.com/watch?v=DInXW2uOHEk).

También te diría un Terranigma, un Secret of Evermore o un Illusion of Time. Grandes RPGs todos, aunque no se si serán el tipo de juegos que casan contigo.

PD: ya no "molesto" más en este hilo, jeje, espero que mis humildes sugerencias puedan ser valoradas.

Aténtamente,
Elektro.

He sido "delegado" global y ex-staff durante varios años (ahora soy algo parecido a una oveja negra), y te puedo asegurar que jamás he recibido un cheque de @el-brujo. Además, los ex-compañeros con los que he tenido relación alguna, tampoco. Los miembros del staff ayudan por pasión, y está fuera de lugar acusar de lo contrario por que es totalmente infundado.

Puede que haya algún caso excepcional, yo no lo se a ciencia cierta; quizás cierto miembro que publicaba decenas de noticias sin descanso las 24 horas del día, por que esa era una labor invaluable, o puede, quizás, que algún miembro que ayude en asuntos internos del server cobre alguna recompensa económica o incluso un pago mensual, pero por lo general no se cobra, y si alguien cobrase a mi no me parecería mal, se lo merecen. No me parece que eso sea algo que haya que señalar como si fuese negativo que su trabajo y dedicación tenga recompensa económica, ya que todo incentivo debería considerarse como algo positivo si eso sirve para poder brindar mejor ayuda al foro, y a sus usuarios. Pero al menos yo nunca he tenido conocimiento de que alguien cobrase.

Aténtamente,
Elektro.

Te agradezco la sugerencia, @**Aincrad**.

He preferido cargar el script darkmode-js.min.js añadiendo este html con el cual se controla el evento "load" de la página para añadir el widget con el que alternar entre modo oscuro y claro en la esquina inferior derecha de la página:

<script src="https://cdn.jsdelivr.net/npm/darkmode-js@1.5.7/lib/darkmode-js.min.js"></script>
<script>
  function addDarkmodeWidget() {
    new Darkmode().showWidget();
  }
  window.addEventListener('load', addDarkmodeWidget);
</script>

El problema es que algunas páginas, al menos usando Cefsharp, se ven así:



Y las que ya son oscuras por defecto, se me ven así:



Este es el mayor problema que me temía con este tipo de soluciones. Aunque me has ayudado a avanzar y tener algo más que poder usar para probar.

---

El widget funciona bien para otras páginas web, como la que aparece en el siguiente gif, pero si no funciona de forma más o menos correcta con todas las páginas entonces tendré que seguir buscando soluciones alternativas...



Gracias una vez más.

Aténtamente,
Elektro.

---

ACTUALIZACIÓN:

Mediante la inserción de la siguiente etiqueta <style> en el html de la página cargada, he logrado obtener un mejor resultado de contraste de los colores, y lograr que también me funcione con páginas oscuras:

<style>
    * {
        background-color: hsl(228, 5%, 15%) !important;
        color: hsl(228, 5%, 80%) !important;
        box-sizing: border-box !important;
    }
 
    textarea, input, select {
        border: 1px solid hsl(228, 5%, 30%) !important;
    }
</style>

...aunque esto sigue siendo una solución bastante imperfecta, pero las letras tienen el color adecuado con un fondo oscuro para casi todos los tipos de elementos Html de estas páginas web:

Buen día. Llevo una semanita estujándome el cerebro para intentar averiguar cómo narices se puede activar el modo oscuro en un navegador ChromiumWebBrowser de la librería CefSharp.

Mi intención es que al cargar una página web en el navegador, automáticamente se coloree con un tema oscuro o, por lo menos, una solución que funcione para los típicos sitios web que comprueban si el navegador web está utilizando el modo oscuro o claro y luego el sitio web adapta de forma automática sus colores.

He probado todas las sugerencias que he encontrado y que he sido capaz de probar hasta donde alcanza mi muy limitado conocimiento sobre CefSharp, la API de CEF y Chromium, y la programación a nivel web en general.

Conozco alternativas de navegadores web gratuitos y comerciales como GeckoFX y EO WebBrowser, las cuales no me interesan para el tipo de proyectos que llevo a cabo.

---

Esta misma duda la he formulado en el sitio web de stackoverflow con una amplia información sobre toda mi investigación y los métodos que he probado:

 - How to enable dark mode for CefSharp web browser in .NET?

(me da pereza traducir al español -y corregir lo traducido de- esa biblia que escribí.)

También he planteado la duda (a modo de petición) en el repositorio de CefSharp:

 - Feature Request - Improve documentation to understand how to enable dark mode for ChromiumWebBrowser #4723

Y también en su comunidad:

 - How to enable dark mode for ChromiumWebBrowser? #4722

Ninguno de mis tres intentos han obtenido respuesta alguna.

Gracias con antelación si alguien puede echarme una mano para aclarar mis dudas.

Aténtamente,
Elektro.

Por un momento pensé que estaba visualizado un video de El Rubius, ¿nunca te han dicho que tienes la misma voz?, o a lo mejor es cosa mia por que tampoco es que me haya visto muchos videos de El Rubius, de hecho, ni siquiera me he visto un video entero de ese creador de contenido, pero de la voz si que me acuerdo, y tiene similitudes.

En fin, @Songoku, ¡buenos videos!. Y a ver si te marcas un gameplay de algún deatmatch en el Unreal Tournament (¡qué tiempos aquellos!). Pero del 3 y el 4 no, sino de los antiguos, como Dios manda.

Aténtamente,
Elektro.