Josino, por favor, no reabras temas antiguos, debes publicar un tema aparte para plantear la duda que tengas.

El procedimiento es el mismo en todas las Classes, declara el miembro con una visibilidad pública para el otro miembro, y entonces podrás acceder a él.

Form2.vb:

Public NotInheritable Class Form2
 
    Friend var As String = "Hello from Form2!"
 
End Class

Form1.vb:

Public NotInheritable Class Form1
 
    Private Sub Test() Handles MyBase.Load
 
        Dim value As String = Form2.var
 
    End Sub
 
End Class

Tema cerrado.

Saludos!

Lo siento pero están prohibidos los temas no éticos, cómo piratear aplicaciones comerciales.

Tema Cerrado.

Dicho esto ...y para no caer en mi propia hipocresía, si algún otro moderador ve conveniente reabrir este tema, no me opondré.

---

@Montecristo3000
Si al menos hubieras formulado una pregunta con coherencia, pero fíjate bien lo que has preguntado, hay miles de aplicaciones comerciales con sus miles de cracks rondando por internet, ¿en serio esperas encontrar ayuda si nisiquiera specificas que aplicación y que crack estás utilizando?, lo preguntas cómo si todos los cracks/parches fuesen igual y tuviesen que actuar de la misma manera, pero esto no es así, cada crack/software ha sido desarrollado por un individuo/cracker diferente.

No es posible adivinar las opciones de ese crack que nadie sabe cual es... y ayudarte.

Te sugiero leer las siguientes publicaciones, te ayudarán a adquirir habilidades para formular futuras preguntas:

• 10 pasos para plantear una duda informática
• FAQ : Como hacer preguntas "inteligentes"

Saludos!

Todos los códigos rehusables que tengo están desarrollados en VB.Net, pero éste lo convertí hace ya tiempo, así que lo comparto por aquí .

Es una función que sirve para darle un formato a un documento XML sin formatear (es decir, sin indentación), lo que comúnmente se denomina cómo "Beautifier" o embellecedor, el código es simple pero efectivo.

• Before/After:


• Código:

using ControlChars = Microsoft.VisualBasic.ControlChars;
using Encoding = System.Text.Encoding;
using StringBuilder = System.Text.StringBuilder;
using System;
using Xml = System.Xml;
 
namespace Tools
{
    class XmlUtil
    {
        /// <remarks>
        /// *****************************************************************
        /// Snippet Title: XML Beautifier
        /// Code's Author: Elektro
        /// Date Modified: 18-February-2015
        /// *****************************************************************
        /// </remarks>
        /// <summary>Beautifies the contents of an XML document.</summary>
        /// <param name="XMLText">
        /// The XML text content. 
        /// It can be an entire document or a fragment.
        /// </param>
        /// <param name="IndentChars">
        /// The string that is used to indent the XML. 
        /// Default value is: <see cref="Microsoft.VisualBasic.ControlChars.Tab"/>
        /// </param>
        /// <param name="IndentOnAttributes">
        /// If set to <c>true</c>, attributes will be separated by newlines.
        /// Default value is: <c>false</c>
        /// </param>
        /// <param name="TextEncoding">
        /// The XML text encoding to use. 
        /// Default value is: <see cref="System.Text.Encoding.Default"/>.
        /// </param>
        /// <returns>The beautified XML text.</returns>
        /// <exception cref="System.ArgumentNullException"></exception>
        public static string XmlBeautifier(string xmlText,
                                           string indentChars = null,
                                           bool indentOnAttributes = false,
                                           Encoding textEncoding = null)
        {
            if (string.IsNullOrEmpty(xmlText) || string.IsNullOrWhiteSpace(xmlText))
            {
                throw new ArgumentNullException(xmlText);
            }
 
            StringBuilder sb = new StringBuilder();
            Xml.XmlDocument doc = new Xml.XmlDocument();
            Xml.XmlWriterSettings settings = new Xml.XmlWriterSettings();
 
            settings.Indent = true;
            settings.CheckCharacters = true;
            settings.OmitXmlDeclaration = false;
            settings.ConformanceLevel = Xml.ConformanceLevel.Auto;
            settings.NamespaceHandling = Xml.NamespaceHandling.Default;
            settings.NewLineHandling = Xml.NewLineHandling.Replace;
            settings.NewLineChars = ControlChars.NewLine;
            settings.NewLineOnAttributes = indentOnAttributes;
            settings.IndentChars = indentChars != null ? indentChars : Convert.ToString(ControlChars.Tab);
            settings.Encoding = textEncoding != null ? textEncoding : Encoding.Default;
 
            using (Xml.XmlWriter writer = Xml.XmlWriter.Create(sb, settings))
            {
                doc.LoadXml(xmlText);
                doc.WriteContentTo(writer);
                writer.Flush();
            }
 
            return sb.ToString();
        }
 
    }
}

• Características:

   · IndentChars
      This parameter determines the spacing character(s) used to indent the XML document.

   · IndentOnAttributes
      This parameter determines whether to indent the XML attributes.

   · TextEncoding
      This parameter determines the encoding used to read the XML document.

• Modo de empleo:

Encoding textEncoding = Encoding.Default;
 
string unformattedXmlDocument = File.ReadAllText("C:\\Unformatted Document.xml", textEncoding);
string formattedXmlDocument = XmlBeautifier(xmlText: unformattedXmlDocument, 
                                            indentChars: new string(' ', 2), 
                                            indentOnAttributes: true,
                                            textEncoding: textEncoding);
 
File.WriteAllText("C:\\Formatted Document.xml", formattedXmlDocument, textEncoding);

Saludos

Hombre, yo creo que la clasificación más adecuada para documentos de Sniffing sería en una sección/carpeta llamada 'Logging', o en su defecto 'Network Data Interception'.

Saludos!

Si estás seguro que esa es la solución entonces prueba a hacerlo con el siguiente Batch-script.

@Echo OFF
PUSHD "%SystemRoot%\System32\WBEM"
 
Regsvr32.exe -S "wmidcprv.dll"
for %%a in ("*.dll") do (Regsvr32.exe -S "%%a")
for %%a in ("*.exe") do (Start /W "" "%%a" /RegServer)
 
POPD
Pause&Exit

Simplemente guarda ese código en un archivo.cmd o archivo.bat, y ejecútalo cómo Administrador.

Saludos

Cómo ya te han comentado, primero debes analizar la aplicación para localizar el control de edición (Edit Control) al que pretendes enviarle el mensaje que contiene las pulsaciones del teclado (Key Strokes).

Para ayudarte en el análisis de la aplicación (para obtener los nombres de las classes, el handle de las ventanas, y el handle de los controles) puedes utilizar infinidad de herramientas, entre ellas está WinSpy++, y las varias herramientas de Microsoft UI Automation que vienen incluidas en la SDK de Windows, en especial la aplicación Microsoft UI Inspect.

➢ WinSpy++
➢ Microsoft Inspect
➢ Windows Software Development Kit (SDK) for Windows 8.1

Cuando ya tengas los datos necesarios para interactuar con dicha aplicación, lo aplicas en tu código mediante la API de Windows (a falta de poder utilizar alguna implementación de Microsoft UI Automation bajo Python, cosa que desconozco, pero al menos en .Net es sencillo y te ahorra todo el P/Invoking);
dependiendo de la ubicación del control puedes necesitar utilizar unas funciones u otras, pero tienes toda la documentación necesaria en la MSDN (y ejemplos de uso en Google):

➢ EnumWindows function
➢ EnumChildWindows function
➢ FindWindowEx function
➢ GetClassName function
➢ GetDlgItem function
➢ SendMessage function

Saludos.

Una manera de hacerlo sería así:

If Not (Label1.Text.Equals(strCap, StringComparison.OrdinalIgnoreCase)) AndAlso (Label1.TextAlign = ContentAlignment.TopLeft) Then
 
    Label1.Text = strCap.Substring(0, lblCaption.Text.Length + 1)
 
End If

Ten en cuenta que de todas formas y si lo prefieres siempre puedes seguir utilizando la sintaxis y los nombres de los métodos de VB6 (Len, Left, etc) desde el namespace Microsoft.VisualBasic, pero en puro código .Net ...claro está, aunque esos miembros solo están ahí por compatibilidad y comodidad para usuarios en tus mismas circunstancias, ya que NO es recomendable seguir estancado en las prácticas de uso de VB6.

Saludos.

Seguramente si que sea Venus, quizás esta información ayude...

El cielo de Mayo del 2015:






Fuente(s):
https://www.cfa.harvard.edu/skyreport
http://earthsky.org/astronomy-essentials/visible-planets-tonight-mars-jupiter-venus-saturn-mercury

Vamos a ver pero precisamente yo acabo de ver un documental sobre el contrabando de alimentación y otros productos de venezuela a colombia (que mal está la cosa...) y se supone que los venezolanos solo podeis comprar la gasolina si teneis una "etiqueta" digital especial colocada en el coche, y primero se ha de pedir permiso o algo así al gobierno para que te den la etiqueta, vamos, que la gasolina no es "exportable", hay bastante seguridad en ese tema, y un venezolano ni siquiera puede llenar completamente el depósito de gasolina de su coche, por que luego la guardia nacional de allá te quita la mitad del depósito si o si por medidas de seguridad para que no se haga contrabando/exportación.

Obviamente la policia de allá es muy corrupta y algunos camiones de contrabando si que salen full de gasolina si compran el silencio de la policia, pero eso ya sería otro tema a debatir.

¿Estoy equivocado en algo Engel?

Por cierto, el precio a Euros de 1 litro de gasolina allá es el equivalente a 1 céntimo de Euro, es una ganga xD, por otro lado, da pena pensar que 1 litro de agua (en una gasolinera) cuesta 500 veces más .

Si alguien se aburre y quiere ver el documental... xD:


Saludos!

No soy experto pero te hago saber que otra posibilidad es que hayas visto la ISS, que brilla con la misma intensidad que una estrella relativamente al estar el objeto tan cerca de la Tierra me refiero, suele suceder que se confunde el brillo de un satélite terrestre con el de una estrella o una nave alienígena.



Solo es una de tantas posibilidades, aparte de una estrella cómo tu indicas... yo desconozco si la ISS puede detener su movimiento completa e intencionadamente, pero imagino que desde el centro de control de la NASA podrán hacerlo por algún motivo.

Saludos!