Indudablemente te has debido equivocar con la posición visual de los controles Textbox3 y Textbox4 en el form.

De todas formas, y para mayor seguridad, ten siempre presente utilizar la sobrecarga de las funciones StartsWith y EndsWith que permiten especificar un valor de la enumeración System.StringComparison.

Obtener el 5% de un valor:

double trackLength = trackEvent.Length.ToMilliseconds();
double fivePercent = trackLength / (100.0D / 5.0D);
double lengthSum   = trackLength + fivePercent;

El cálculo creo que está claro con el ejemplo. Lo deberás adaptar al uso de VEGAS.

Me han borrado una noticia que he publicado en este hilo sobre las declaraciones de aguantar el invierno y alargar la guerra lo máximo posible de 2 a 3 años por parte de la primera dama de Ucrania (Olena Zelenskaya) y me lo han borrado sin ofrecerme ningún tipo de explicación (así que no puedo comunicarme con el autor de la eliminación privado, ya que no se quien ha sido):

https://foro.elhacker.net/foro_libre/conflicto_ucraniarusiaeeuu_otan_europa_todo_las_noticias_relacionadas_iran_aqui-t513664.730.html

¿Por qué lo borran?, ¿podrían explicarme cual ha sido el presunto criterio objetivo y neutral para decidir eliminarme una noticia sobre la guerra de Ucrania que he publicado en un hilo dedicado a noticias que conciernen a la guerra de Ucrania?.

Nada. A partir de ahora después de publicar cualquier comentario voy a apuntarme en una base de datos la url y el título de los posts que me borran y una imagen de captura del contenido del post y averiguaré el autor de la eliminación y la justificación que me de con respecto al post que decidan eliminarme, y ya veremos de aquí a un tiempo si tengo o no razón con las sospechas que tengo y lo que siempre he mantendo yo y cierto compañero vetado del staff con respecto a la cacería de brujas que se me hace mediante censura y conflictos o problemas (que yo no empiezo) como este.

Ya veremos llegado el momento y si esto sigue así en el tiempo a quien le dan finalmente la razón y quien queda realmente retratado como usuario o moderador / miembro del staff "conflictivo" y quien demuestra haber sido siempre un usuario colaborador que no busca el conflicto pero al que no dejan de intentar putear para involucrarle en conflictos como este para buscar una razón que justifique su baneo, llegado el momento y con las evidencias por delante el-brujo podrá tener una vista panorámica de la realidad que aquí se sigue cociendo conspirando hacia mi persona por más años que pasen y más oportunidades que se me concedan.

Cuestión de tiempo.

Que me eliminen 1 de cada 4 posts sin razón aparente, más allá de hacerme perder el tiempo en redactar algo y que me sienta impotente al presenciar este claro ejemplo de abuso de poder no servirá para conseguir nada más, ni conseguirán sacarme de mis casillas para justificar un baneo ni mucho menos que se me quiten las ganas de participar en el foro, de hecho esto me provoca el efecto contrario: con más ganas voy a seguir publicando noticias sobre la guerra de Ucrania en el hilo dedicado a noticias sobre la guerra de Ucrania, entre otras cosas con las que seguiré participando como en la programación de software.

Un saludo.

¿Esto es a posta o qué?:





Pues como es lógico no entiendo un carajo de la letra, ni en ucraniano ni en ruso, y los subtitulos autogenerados en Castellano prefiero no usarlos para que no me sangren los ojos, pero en fin que la canción me parece mucho mejor que la que llevaron a Eurovisión. Y si nos ponemos a comparar la imagen presencial de esta banda musical con las pintas cochambrosas de los otros pues ya ni te cuento, más puntos a favor de esta banda musical.

A lo que voy: la canción tiene buen ritmo, melodía emotiva, y da la sensación que el estribillo podría ser muy pegadizo si estuviera en Inglés o en Castellano.


Es música underground hip-hopera, aquí hay más del estilo:
https://mytuner-radio.com/top-charts/ukraine/hip-hop-rap-music
( por cierto esta canción aparece en el puesto nº 10 de ese ranking )

¿Quizás te he entendido mal y te refieres a que la melodía la han "plagiado" de algún tema conocido de rock para adaptarla a esta canción de hip-hop?. Y en ese caso, por curiosidad, ¿sabes el nombre de ese tema de rock?.

Saludos.

Me han borrado un comentario (un meme de Iker Jimenez) que publiqué en este hilo a modo de respuesta graciosa a tu testimonio. No se si lo habrás llegado a ver.

La verdad es que al hablar de testimonios de víctimas de hackers yo tampoco jamás había escuchado una historia semejante como la que has relatado. Es muy singular, sin duda.

¿Tienes idea de por que ese presunto hacker escribía las cosas que escribía en el chat de IRC?, ¿cual era su objetivo?.

¿Recuerdas la región geográfica y el nivel de anonimato del susodicho proxy?. Simple curiosidad y unos datos que quizás podrían ser de utilidad para andarse con mayor precaución a la hora de elegir el proxy a utilizar.

Pero anda que... a mi no se me ocurriría jamás en la vida usar un proxy ni una VPN para iniciar sesión con mi cuenta de usuario / datos reales en ninguna página web ni software de ningún tipo. Más que nada para evitar ese 0,001% de probabilidad (por estimar un porcentaje cualquiera y que podría ser mucho mayor de lo que pensamos) de que algunos de los packets con datos comprometedores puedan acabar siendo desviados y registrados por alguna agencia de inteligencia con el fin de controlar a los ciudadanos o para venderlo al mejor postor y hacer estudios sociales de big data para campañas de marketing del McDonalds o vete a saber, o quizás para que vayan a parar a las manos de alguna persona / hacker con intenciones perjudiciales como el presunto hacker de tu testimonio.

Seré muy paranoico pero a mi cuando no me queda más remedio que utilizar una VPN para acceder a algún sitio web restringido para empezar ni de coña me pongo a utilizar una VPN con el mismo navegador donde tengo mis preciados logins y cookies, lo cierro todo (navegador y cualquier software que requiera un login online), y entonces abro el navegador Opera para usar su VPN integrada con el que poder acceder al sitio en cuestión y ya.

---

Leer eso es muy irónico por que estás halagando a una persona que precisamente es la misma persona a quien podría dar la sensación que le estarías haciendo una constante persecución en el foro para reportar o criticar sus comentarios e intentar restarle importancia a algunas de sus aportaciones (como el comentario que hice con los videos de Lord Draug, por ejemplo) aparentemente solo por que no tolerarías su ideología política libero-conservadora.

En fin. Lo siento por hacer este pequeño offtopic en este post, pero para evitar más confusiones a estos dos usuarios y a cualquiera que vaya a leer esto, les diré:

Yo soy Elektro (y estoy registrado en el foro con permiso del admin). Y a partir de ahora y a falta de que el administrador tenga interés en restaurarme mi cuenta principal pues lo dejaré algo más claro en el nickname y el avatar de esta cuenta de Enjuto.

Un saludo a todos.

Por la forma de expresarte me da la sensacion que no tienes una idea bien formada sobre algunos conceptos básicos de procesamiento de video. Yo tampoco es que sea un especialista en temas relacionados, pero puedo explicarte que aquello a lo que llamas "una imagen de un video" se conoce como fotograma o frame en Inglés, y la manera más sencilla para extraer fotogramas es utilizando alguna de las varias librerías especializadas para operar con archivos de video, como por ejemplo FFMediaToolkit que está basada en FFMPEG (y es la que yo estoy acostumbrado a utilizar para tareas relacionadas):

https://www.nuget.org/packages/FFMediaToolkit
https://github.com/radek-k/FFMediaToolkit

Para utilizar FFMediaToolkit necesitarás descargar también las librerías de FFMPEG. Léete el Readme.md del vínculo que he compartido al repositorio de GitHub donde hallarás una explicación más detallada.

A continuación te muestro un ejemplo para extraer el fotograma que coincida con una marca de tiempo específica de un archivo de video:

Imports System.Drawing.Imaging
Imports System.Reflection
Imports FFMediaToolkit
Imports FFMediaToolkit.Decoding[code]
 
[code=vbnet]<DebuggerStepThrough>
Public Function GetFrame(videoFilePath As String, timestamp As TimeSpan) As Bitmap
 
    Using file As MediaFile = MediaFile.Open(videoFilePath)
 
        Dim duration As TimeSpan = file.Video.Info.Duration
        If duration < timestamp Then
            Throw New ArgumentException("Video duration is smaller than the specified timestamp.", NameOf(timestamp))
        End If
 
        Return ImageDataExtensions.ImageDataExtensions.ToBitmap(file.Video.GetFrame(timestamp))
 
    End Using
 
End Function

Por el momento no conozco una API (de varias que he llegado a examinar) que permita extraer un fotograma tomando como criterio el índice de fotograma en cuestión (quiero decir, que si un video tiene por ejemplo 1.000 fotogramas, indicarle que devuelva el fotograma número 500). Con esta API se puede llegar a hacer pero resultando en un procedimiento muy lento cuanto más grande sea el número del fotograma a extraer:

<DebuggerStepThrough>
Public Function GetFrame(videoFilePath As String, frameNumber As Integer) As Bitmap
 
    Using file As MediaFile = MediaFile.Open(videoFilePath)
 
        Dim totalFrames As Integer = file.Video.Info.NumberOfFrames.Value
        If totalFrames < frameNumber Then
            Throw New ArgumentException("Total number of frames is smaller than the specified frame number.", NameOf(frameNumber))
        End If
 
        For i As Integer = 0 To (frameNumber - 1)
            Try
                Using bmp As Bitmap = ImageDataExtensions.ImageDataExtensions.ToBitmap(file.Video.GetNextFrame())
                End Using
            Catch ex As Exception
                Throw
            End Try
        Next
 
        Try
            Return ImageDataExtensions.ToBitmap(file.Video.GetNextFrame())
        Catch ex As Exception
            Throw
        End Try
 
    End Using
 
End Function

El código del método "ImageDataExtensions.ToBitmap":

// ***********************************************************************
// Author   : ElektroStudios
// Modified : 01-December-2020
// ***********************************************************************
 
#region Imports 
 
using System;
using System.ComponentModel;
using System.Diagnostics;
 
#endregion
 
#region ImageData Extensions 
 
namespace DevCase.ThirdParty.FFMediaToolkit.Extensions.ImageDataExtensions {
 
    /// ----------------------------------------------------------------------------------------------------
    /// <summary>
    /// Contains custom extension methods to use with <see cref="global::FFMediaToolkit.Graphics.ImageData"/> type.
    /// </summary>
    /// ----------------------------------------------------------------------------------------------------
    public static class ImageDataExtensions {
 
        #region  Public Extension Methods 
 
        /// ----------------------------------------------------------------------------------------------------
        /// <summary>
        /// Converts the source <see cref="global::FFMediaToolkit.Graphics.ImageData"/> to <see cref="System.Drawing.Bitmap"/>.
        /// </summary>
        /// ----------------------------------------------------------------------------------------------------
        /// <remarks>
        /// Original source: <see href="https://github.com/radek-k/FFMediaToolkit#usage-details"/>
        /// </remarks>
        /// ----------------------------------------------------------------------------------------------------
        /// <param name="imageData">
        /// The source <see cref="global::FFMediaToolkit.Graphics.ImageData"/>.
        /// </param>
        /// ----------------------------------------------------------------------------------------------------
        /// <returns>
        /// The resulting <see cref="System.Drawing.Bitmap"/>
        /// </returns>
        /// ----------------------------------------------------------------------------------------------------
        [DebuggerStepThrough]
        [EditorBrowsable(EditorBrowsableState.Always)]
        public static unsafe System.Drawing.Bitmap ToBitmap(this global::FFMediaToolkit.Graphics.ImageData imageData) {
 
            fixed (byte* data = imageData.Data) {
                return new System.Drawing.Bitmap(imageData.ImageSize.Width, imageData.ImageSize.Height, imageData.Stride,
                                                 System.Drawing.Imaging.PixelFormat.Format24bppRgb, new IntPtr(data));
            }
        }
 
        #endregion
 
    }
 
}
 
#endregion

---

No entiendo exactamente que quieres representar en el PictureBox, pero el tamaño del frame / video es el mismo tamaño del objeto Bitmap (Bitmap.Size) devuelto por la función "GetFrame".

Saludos.[/code][/code]

Más allá de los fundamentos técnicos y teóricos de lo que es una VPN y su funcionamiento, cosa que ya te han explicado, el investigador independiente Lord Draug habla en profundidad sobre ciertos aspectos peligrosos de los que se habla poco o nada y que conciernen a la privacidad y la dudosa intencionalidad de algunos (quien sabe si solo algunos, o muchos, o la mayoría de) proveedores de VPN, poniendo en el punto de mira al proveedor CyberGhost:

Pues por el mismo motivo que el miembro de una secta religiosa defenderá de forma irracional y hasta la muerte a su ficticia religión y a su fraudulento lider y que además se confrontará y demonizará a todo aquél que no comparta los dogmas de su religión: por causa del adoctrinamiento y ligado al desconocimiento / ignorancia de las personas.

No puedo explicarte nada más, por que si hablo demasiado para profundizar en este tipo de cosas relacionadas con el adoctrinamiento o la toma de las instituciones públicas o los golpes de estado probablemente correría el riesgo de ser baneado. Sobre todo por que yo me pondría a escribir decenas de extensos párrafos y te ofrecería una infinidad de datos de lo que sucede en la política del actual gobierno de España compuesto por un bipartidismo entre Podemos (comunistas) y PSOE (socialistas): el social-comunismo. Imagínate la combinación, doble "progreso". Si esto te interesa entonces te sugiero buscar un par de listas de ranking europeo (de economía, recuperación económica y deuda externa pública, o de empleo, o delictividad e inseguridad ciudadana) y mirar en que puesto se encuentra España o ciertas ciudades dentro de España, eso debería ser un dato muy revelador para algunas personas.

---

Eso te honra y te hace mejor persona. Lo digo sinceramente. Pero en un lugar donde se censura y se castiga la opinión de algunas personas (como la mía, sin ir más lejos) al opinar sobre ideologías políticas de "izquierdas" no es el lugar indicado para entender y aprender sobre comunismo.

Esto es un foro de informática, y aunque se supone que hay cierta libertad para hablar de política y también para criticar algunas ideologías del "progreso" al final esto solo es una ilusión y creo que nadie mejor que yo lo sabe por experiencia. Solo se permite hablar de ello hasta cierto límite y de forma extremdamente moderada para no ofender a quienes sufran de ofendiditis en esta generación de cristal, ni tampoco a quienes tengan preparado el dedo acusor para reportar mensajes con el fin de censurar una opinión que ni toleran ni comparten. No lo digo por nadie en concreto ya que debe haber muchas personas intolerantes.

Yo aquí no puedo debatir como me gustaría del comunismo por ese motivo. No puedo opinar sobre las atrocidades y las verdades de esta sanguinaria y mortífera ideología, tengo que limitarme a hacerlo de forma superficial como creo haberlo hecho al opinar sobre el adoctrinamiento, es decir, sin llegar a dar datos concretos.

Puedes aprender con libros sobre comunismo y dictaduras (que no hayan sido escritos por pro-comunistas, obviamente, y en general tampoco por una persona sectaria opuesta al comunismo. Busca la neutraliad más objetiva), o con infinidad de comunicadores conservadores y liberales en plataformas como Youtube y en redes sociales. Evita al principio escuchar a politólogos, da igual su ideología, su opinión suele estar muy sesgada.

Tampoco puedo hacer referencia a libros ni personas en concreto por si pudiera ser motivo para justificar un baneo.

Toda la verdad del socialismo / comunismo / progresismo / globalismo está ahí y solo debes encontrarla. No es para nada dificil si buscas utilizando los parámetros adecuados.

Y por lo que más quieras, no intentes informarte con un periódico digital ni mucho menos con un programa informativo de un medio de comunicación online, de radio, ni de un canal de televisión. Hay algunos medios que se pueden considerar prensa libre, pero son una absoluta minoría y yo en tu país no se si existirá alguno (no se de que país eres para empezar xD). Primero infórmate de que sujetos se compone la planta directiva del programa y si estos sirven a los intereses políticos de algún partido.

Saludos.

El problema en ese último código que has publicado es que el método 'Exec' te devuelve un objeto del tipo 'WshExec' y este objeto tiene la propiedad 'StdOut' la cual estás intentando utilizar, pero el método 'Run' tan solo devuelve un valor numérico (el código de salida del programa ejecutado), así que como es evidente no puedes utilizar el valor de retorno de ambas funciones de la misma forma, por que son muy distintos.

Te voy a indicar una solución, pero sinceramente y siempre que no tengas inconveniente yo te aconsejaría migrar esos scripts a PowerShell para evitar complicarte la vida de esta forma con VBS.

Lo que puedes hacer con VBS es modificar el comando de REG QUERY para abrir una nueva instancia de la CMD con la que redireccionar la salida del comando REG a un archivo de texto plano, y luego leer el contenido de este archivo para obtener la salida del comando REG QUERY que se haya registrado en el archivo de texto.

Te muestro un ejemplo y tu ya lo adaptas al comando de REG QUERY que vayas a utilizar:

Option Explicit
Dim fso, shell, regCommand, regCommandOutput, outputFilePath, outputFile 
 
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject("WScript.Shell")
 
outputFilePath = fso.GetSpecialFolder(2) & "\reg_query.tmp"
' C:\Users\{USERNAME}\AppData\Local\Temp\reg_query.tmp
 
regCommand = "CMD /C "" (REG QUERY ""HKLM\SOFTWARE"" /ve) 1> """ & outputFilePath & """ 2>&1 """
' CMD /C " (REG QUERY "HKLM\SOFTWARE" /ve) 1> "C:\Users\{USERNAME}\AppData\Local\Temp\reg_query.tmp" 2>&1 "
 
call shell.Run (regCommand, 0, true)
 
Set outputFile = fso.OpenTextFile(outputFilePath, 1)
regCommandOutput = outputFile.ReadAll
outputFile.Close
 
Call MsgBox(regCommandOutput, vbInformation, "REG QUERY COMMAND OUTPUT")
 
WScript.Quit(0)

Muy buenas. Paso a enumerar los problemas que tienes en el código, y al final la solución:

1. Para poder usar la función "System.Convert.To*", el tipo debe implementar la interfaz IConvertible.

2. La función "System.Convert.To*" no está diseñada para interpretar un array de tipos IConvertible, ni mucho menos una colección de celdas de un datagridview o DataGridViewCellCollection. Para eso puedes utilizar la función "System.Array.ConvertAll".

Para lo que deseas hacer, puedes utilizar esta simple función que permite sumar los valores de todas las celdas de una fila:

public static decimal SumCellValues(DataGridViewRow row) {
 
	System.Decimal tempVar = 0M;
 
	IEnumerable<decimal> values = (
		from DataGridViewCell cell in row.Cells
		where decimal.TryParse(cell.Value, out tempVar)
		select decimal.Parse(cell.Value));
 
	return Enumerable.Sum(values);
}

Nota: los valores no numéricos son ignorados.

O esta función de sobrecarga que permite elegir el tipo numérico de retorno:

public static T SumCellValues<T>(DataGridViewRow row) where T: IConvertible {
	return (T)SumCellValues(row);
}

Saludos!