Mensajes

...cuenta con más de 1.5 billones de usuarios registrados...se espera que en 2030 lleguen a 5 billones.

A tope con el optimismo. Yo estimo que para ese mismo año resucitará MySpace con fuerza de entre los muertos, y al año siguiente será comprada por Facebook, por lo que crecerá a 10 billones de cuentas de usuario registradas... que por cierto no necesariamente tienen por que ser 10 billones de personas distintas, pequeño dato importante que nunca quieren dejarnoslo claro las empresas.

Hachem Sadikki, maestro de la Universidad de Massachusetts y aspirante a un doctorado en estadística; comentó que –de acuerdo a sus cálculos– se prevé que Facebook será un "cementerio virtual" en el año 2098.

Más bien aspirante a un doctorado en decir gilipolleces surrealistas. A ese maestro no lo contrata ni el tato... y pobre de quien lo contrate para que le haga una estimación de cualquier cosa, jajaja.

BASURA DE PRENSA AMARALLISTA Y RELLENA-NOTICIAS.

No sé como se pueden hacer a veces artículos diciendo tan solemnes gilipolleces...
Efectivamente en el año 5145 hasta el planeta, podría ser un cementerio y literalmente, no virtual...

¿Alguien es tan tonto como para creerse de verdad que para el año 2098, seguirán existiendo las empresas o redes que existen hoy?. Son 70 años... miremos 70 años atrás y veamos cuántas y cuales subsisten hoy de las que entonces había... un pequeño porcentaje.

Palabras sabias, realistas y con sentido común. Ningún imperio dura eternamente, aunque a Facebook y Google les cuesta caer y ser destronados, pues desde los años 90 que están ahí, pero decenas de redes sociales ya están muertas, y de Google+ ni hablemos, que siempre ha tenido altibajos y Google sigue dando por culo con su fallida plataforma de red social aunque nadie se lo haya pedido, así que pocos años le falta para ser enterrada definitivamente junto a las demás...

En fin, decir que Faceook lo estará por al menos 70 años más... es una soberana estupidez, primero por que no es una estimación realista conociendo la larga lista de redes sociales que durante años fueron la moda en el planeta pero al final fracasaron, y por otro lado por que ni siquiera sabemos como será la World Wide Web dentro de 70 años, y con el tema de los ordenadores cuánticos los cambios pueden llegar a ser altamente insospechados o imprevisibles. Por hacer estimaciones surrealistas, yo puedo estimar que de aquí a 100 años el Internet como lo conocemos hoy en día no existirá visualmente, es decir, no habrá interfaces de usuario para las páginas web, simplemente será un lugar donde buscar información y socializar usando los pensamientos de nuestra mente, será pura información. Logicamente esto que acabo de decir es una gilipollez como la del señor que aspira a ser doctorado en estadisticas.... manda güevos...

versión 1.1

 - Se corrigió un error estúpido con milisegundos incorrectos especificados en el intervalo del temporizador que envía pulsaciones del teclado. El nuevo intervalo es de 600000 ms. (o 10 minutos).
 - Reducción del tamaño de la interfaz de usuario y texto de etiquetas simplificado.
 - Tooltips añadidos para las etiquetas de la interfaz de usuario.
 - Librería Jot integrada para simplificar la manipulación de la configuración de usuario y mejorar su persistencia.
 - Ahora el programa recuerda su última posición en el escritorio, por defecto.
 - Cambios de menor importancia en el código fuente para ser de ayuda en una sesión de depuración.

[?]

Disculpa mi ignorancia, pero para que pones el sino : ?

Es el operador de condicional nula...

• ?. y ?[] (C# y Visual Basic) - docs.microsoft.com

de esta manera se evitan posibles excepciones de tipo NullReferenceException, y se simplifica y embellece bastante el código evitando escribir condicionales normales y corrientes. Este es un equivalente que podrás compilar:

Código (vbnet) [Seleccionar] Expandir


Dim pr As Process = HearthstoneUtil.HsProcess
Dim hWnd As IntPtr
Dim pid As Integer

If (pr IsNot Nothing) Then
   hWnd = pr.MainWindowHandle
   pid = pr.Id
End If

PD: deberías tener en consideración actualizar tu IDE para poder disfrutar de las ventajas y facilidades que ofrecen las versiones más recientes de VB.NET (y de Visual Studio).

Saludos.

Lo acabo de ver en las noticias y la verdad que es asqueroso la de tíos cerdos que hay en las redes sociales

Son una panda de depravados, pero esto lleva sucediendo mucho antes de que se estandarizase el uso mundial de las redes sociales, en las salas de chat. Todos con la suficiente edad hemos entrado al Terra, Latin-chat o páginas similares que era donde la gente socializaba (a falta de redes sociales como hoy en día) cuando aun myspace, twitter y facebook no lo conocía ni su p**a madre, y todos los que hayamos pisado una sala de chat hemos podido experimentar todo tipo de respuestas a mujeres, o mejor dicho supuestas mujeres por que siempre habian los típicos trolls que se hacian pasar por mujeres para divertirse un rato en el cibercafé de su barrio... ahí si que se daban respuestas cerdas que hoy en día se censurarían.

En fin, lo que intento decir es que esto no es noticia, no es algo nuevo, no se por que la prensa o la radio o quien sea se hace tanto eco de lo que le ha pasado a esta muchacha casi como intentando criminalizar la actitud de los hombres pervertidos, cuando se conoce que esto lleva pasando toooooda la vida al resto de mujeres guapas en cualquier espacio de Internet donde se pueda socializar...

No digo que esté bien por eso, pienso que esa actitud tan depravada no es la correcta, lo que digo es que es muy estúpido que una entidad de divulgación de noticias o de lo que sea publique una noticia de algo así a estas alturas de la vida, como si fuese algo nuevo e inaudito... y con las corrientes del feminazismo que estamos sufriendo en España desde hace años, este tipo de noticia es todavía peor.

Un saludo.

[Friendly Challenge Notifier for Hearthstone]

Friendly Challenge Notifier for Hearthstone

Descripción

Friendly Challenge Notifier (o simplemente FCN) es una pequeña aplicación que mostrará una notificación en su escritorio cuando reciba un desafío de amigo en el videojuego Hearthstone.

El programa se puede minimizar en la bandeja del sistema y proporciona algunas funciones de notificación interesantes, como reproducir un archivo de sonido (que usted puede reemplazar manualmente por cualquier otro archivo de sonido que le guste), traer al frente y activar la ventana de Hearthstone, o evitar que se termine la sesión de usuario de Hearthstone debido a inactividad del usuario.

Capturas de pantalla

 

Preguntas Frecuentes

Pregunta: ¿Blizzard prohíbe el uso de este programa o me pueden banear?.

Respuesta: No, este programa NO viola los Términos de servicio de Blizzard.

Friendly Challenge Notifier no altera el comportamiento natural del juego,
Tampoco sirve para obtener ventajas contra otros jugadores,
y no se puede considerar un bot, un programa de trucos o una herramienta de pirateo en general.

Puedes usarlo sin preocupaciones.

Donaciones

Cualquier código dentro del espacio de nombres "DevCase" se distribuye libremente como parte del código fuente de "DevCase for .NET Framework".

Tal vez le gustaría considerar comprar este conjunto de bibliotecas para apoyarme.

Aquí hay un enlace a la página de compra:

- https://codecanyon.net/item/elektrokit-class-library-for-net/19260282

Gracias por su consideración.

Créditos

El equipo de Hearthstone Deck Tracker por distribuir una API pública que simplifica la detección de una invitación de desafío de amigo:

• https://github.com/HearthSim/Hearthstone-Deck-Tracker

Jace Priester por publicar un control de usuario al estilo botón de tipo switch:

• https://www.codeproject.com/Answers/828273/WinForms-Toggle-Switch-Control#answer4

Descarga

https://avmule.com/samples/eva200.usm

Gracias, pero no me sirve ya que tiene una duración excesiva (para mis necesidades) de 15 segundos.



Como alternativa creo que podría remuxear los usm originales del juego. Encontré el modo para demuxear mediante el programa VGM Toolbox:

[youtube=640,360]https://www.youtube.com/watch?v=uNnZCewq74U[/youtube]

pero para muxear... ni idea.

Saludos.

Uff pues ni idea de donde se podrá bajar eso, pero... ¿que extensión tienen esos videos? si sabes la extensión tal vez te sirva cualquier otro video con la extensión renombrada.
Saludos...

Songoku

La extensión es .usm, por 'formato' también me refería a la extensión. Lamentablemente para este juego no sirve el "truco" de  reemplazarle la extensión de .avi a .usm por ejemplo.

un saludo

¿Alguien sabría donde puedo descargar un video en formato de Unity (usm), pero que sea un video "vacío", es decir de 00:00:00 segundos de duración?, o que sea un video muy corto de 1 segundo sin imágenes, toda la escena en negro. Dicho de otra forma, busco un video "dummy" (o alternativamente videos muy, muy cortos) hecho en Unity.

La intención es reemplazar videos en formato usm de larga duración en el directorio de un videojuego, por un video dummy, sin duración.

Podría informarme sobre como generar un video en formato usm yo mismo, pero no me parece factible descargar tropecientos gigabytes solamente para instalar Unity (y sdks de Android y toda la parafernalia que te instale y que luego resulte tedioso de desinstalar) y luego buscar tutoriales y demás...

Un saludo.

Puedes obtener el enlace de descarga al menos de estas dos formas...

1:

Código (vbnet) [Seleccionar] Expandir

Me.WebBrowser1.Document.GetElementById("downloadButton").GetAttribute("href")

2:

Código (vbnet) [Seleccionar] Expandir

Me.WebBrowser1.Document.Body.FirstChild.GetAttribute("href")

saludos

[ShellBrowserWindow]

Para cancelar la descarga de archivos puedes utilizar la interfaz 'ShellBrowserWindow' de la librería COM 'shdocvw.dll', ubicada en el directorio 'C:\Windows\System32'.

Para obtener la url de descarga, puedes leer el atributo 'href' del elemento HTML activo. Supongo que esto funcionará siempre así... aunque no me atrevo a asegurarlo al 100% ya que no domino de forma avanzada la programación HTML.

En fin. Para usar el siguiente código de ejemplo, primero añade una referencia a la librería que he mencionado... no te pase como la última vez  xD. Aquí tienes:

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class Form1 : Inherits Form

   Private WithEvents ShellWebBrowser1 As SHDocVw.ShellBrowserWindow

   Public Sub New()
       MyClass.InitializeComponent()
       Me.WebBrowser1.ScriptErrorsSuppressed = True
   End Sub

   Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown
       ' Sitio web con varias descargas de archivos zip...
       Me.WebBrowser1.Navigate("https://www.thinkbroadband.com/download")
   End Sub

   Private Sub WebBrowser1_VisibleChanged(ByVal sender As Object, ByVal e As EventArgs) Handles WebBrowser1.VisibleChanged

       ' Importante: no trasladar este código al método "Form1_Load"...

       Dim wb As WebBrowser = DirectCast(sender, WebBrowser)
       If (wb.Visible) AndAlso (Me.ShellWebBrowser1 Is Nothing) Then
           Me.ShellWebBrowser1 = DirectCast(wb.ActiveXInstance, SHDocVw.ShellBrowserWindow)
       End If

   End Sub

   Private Sub ShellWebBrowser1_FileDownload(ByVal activeDocument As Boolean, ByRef cancel As Boolean) Handles ShellWebBrowser1.FileDownload
       ' Cancelar descarga de archivo...
       cancel = True

       ' Obtener la url de descarga...
       Dim href As String = Me.WebBrowser1.Document.ActiveElement.GetAttribute("href")
       Console.WriteLine(href)
   End Sub

End Class

Nótese que esto no impedirá poder seguir usando el menú contextual para descargar un archivo mediante la opción "Guardar destino como..."

Si quieres impedir la descarga mediante el menú contextual, puedes crear tu propio menú y asignarlo a la propiedad WebBrowser1.ContextMenuStrip, o bien puedes suscribirte al evento HtmlDocument.ContextMenuShowing para cancelar la aparición del menú. Un ejemplo minificado:

Código (vbnet) [Seleccionar] Expandir

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
   Dim wb As WebBrowser = DirectCast(sender, WebBrowser)

   AddHandler wb.Document.ContextMenuShowing,
       Sub(ByVal browser As Object, ByVal args As HtmlElementEventArgs)
           args.ReturnValue = False
       End Sub
End Sub

Saludos.