Mensajes

Buenas queria preguntas si en este hilo solo se puede publicar codigo de vb y c# o tambien se puede de otro lenguajes

Ya que me he dado la tarea de traducir parte del codigo aqui ya publicado y otro mio en el lenguaje Delphi  o mejor lo pongo en otro post?

Este hilo es para publicar códigos de VisualBasic.Net, aunque .Net no es solamente VB.Net y C#, pero Delphi no forma parte de .Net, lo mejor será que crees un post en la sección de programación general.

Saludos!

[INTRODUCCIÓN]

INTRODUCCIÓN

Buenas!.

La forma tradicional de capturar las pulsaciones del teclado es mediante un hook del teclado, sin embargo, esta técnica está deprecada en .Net, ya que existe una forma alternativa o "moderna" que aporta bastantes mejoras (sobre todo mejoras de rendimiento), RawInput (el cual también sirve para sustituir a un LL-Hook del mouse):

➢ About Raw Input

The raw input model is different from the original Windows input model for the keyboard and mouse.

In the original input model, an application receives device-independent input in the form of messages that are sent or posted to its windows, such as WM_CHAR, WM_MOUSEMOVE, and WM_APPCOMMAND. In contrast, for raw input an application must register the devices it wants to get data from.

Also, the application gets the raw input through the WM_INPUT message.

There are several advantages to the raw input model:

   An application does not have to detect or open the input device.
   An application gets the data directly from the device, and processes the data for its needs.
   An application can distinguish the source of the input even if it is from the same type of device. For example, two mouse devices.
   An application manages the data traffic by specifying data from a collection of devices or only specific device types.
   HID devices can be used as they become available in the marketplace, without waiting for new message types or an updated OS to have new commands in WM_APPCOMMAND.

Siempre tuve curiosidad por RawInput pero nunca me animé a implementar este modelo ya que sabía que iba a ser una auténtica pesadilla de P/Invoking, pero al final la curiosidad pudo conmigo, y tras analizar decenas de ejemplos y semi-ejemplos en C#, acabé acumulando suficiente información para desarrollar el core de un keylogger para uso genérico en VB.Net.

DESCRIPCIÓN

Esto NO es un programa, es un algoritmo o código que encapsula los datos y las definiciones de la API de Windows de los miembros de RawInput, junto a todo lo demás adicional y necesario, exponiendo sus funcionalidades a través de una Class, con propiedades, y eventos.

Se puede decir que es la base o el core para poder desarrollar la UI de un KeyLogger, ya que usando esta Class solamente sería necesario diseñar la UI y/o adaptar este código si fuese necesario según las necesidades del programador por ejemplo para monitorizar las ventana que tiene el foco activado, o la interpretación textual de las teclas del sistema, etc...

Hay varias cosas que perfeccionar y refactorizar en el código, no comparto este código cómo si fuese el mejor y más completo algoritmo del mundo, me he tomado la molestia de decorar bastante este post por que creo que el código cómo ejemplo está muy bien ...ha sido bastante laborioso y por ese motivo se merece una mención especial de esta forma (por mi parte), pero simplemente comparto el código para mostrarles una manera curiosa, distina y mejor, una alternativa "moderna" a la deprecada técnica de SetWindowsHookEx + CallNextHookEx + UnhookWindowsHookEx para llevar a cabo la misma tarea.

CARACTERÍSTICAS

• Multi-Idioma
  El keylogger soporta distintos layouts del teclado.
  Gracias a esto, se puede cambiar el comportamiento de las pulsaciones en cualquier momento, por ejemplo del teclado Español (es-ES) al Inglés (en-US).
  
  


• Multi-Dispositivo
  El Keylogger soporta varios dispositivos de teclado al mismo tiempo.
  NOTA: En teoría. Se intentan registrar todos los dispositivos conectados que sean de tipo "KEYBOARD", pero no lo puedo probar con certeza.
  
  


• Soporte para caracteres especiales.
  Gracias a la función 'ToUnicodeEx' de la API de Windows, el Keylogger es capaz de interpretar caracteres especiales cómo la Ñ o la Ç.
  NOTA: En teoría. No lo he probado con el layout ruso por ejemplo.
  
  


• Ignorar teclas, caracteres, o strings producidos por teclas muertas (dead keys).
  Se puede especificar una serie de teclas, caracteres, o strings que serán ignorados por el keylogger.
  
  



• Controlar las operaciones de pegado (pasting) de texto (Ctrl+v).
  Se puede activar esta característica para que, mediante un evento, se nos notifique el texto que se ha pegado (si algún texto) al pulsar la combinación de teclas Ctrl+V.
  
  

DEMOSTRACIÓN

A la derecha está lo que escribo en un editor de texto, a la izquierda está lo que intercepta el keylogger y la interpretación de las teclas del sistema.



El código que he utilizado para desarrollar el ejemplo:

Código (vbnet) [Seleccionar] Expandir

Public NotInheritable Class Form1 : Inherits Form

   Private WithEvents keyLogger As InputDevice

   Public Sub New()

       Me.InitializeComponent()

       ' Instance an InputDevice object, which enumerates and registers the keyboards found.
       Me.keyLogger = New InputDevice(Me.Handle)

       ' Set keyboard layout to the default culture, in my case 'es-ES'.
       Me.keyLogger.Language = InputLanguage.DefaultInputLanguage.Culture.Name

       ' Handle text pasting operations (Ctrl+V).
       Me.keyLogger.HandlePastes = True

       ' Avoid raising KeyPressed event for non-relevant keys for this app example:
       ' Left/Right Shift, Alt, AltGr, CapsLock, NumLock, and Left/Right Win key.
       Me.keyLogger.IgnoredKeys = {Keys.ShiftKey, Keys.Menu, Keys.CapsLock, Keys.NumLock, Keys.LWin, Keys.RWin}

       ' Me.keyLogger.IgnoredChars = {"^"c}
       ' Me.keyLogger.IgnoredCharsComparer = EqualityComparer(Of Char).Default

       ' Me.keyLogger.IgnoredStrings = {"^^"}
       ' Me.keyLogger.IgnoredStringsComparer = StringComparer.OrdinalIgnoreCase

   End Sub

   Private Sub KeyLogger_KeyPressed(ByVal sender As Object, ByVal e As InputDevice.KeyPressedEventArgs) _
   Handles keyLogger.KeyPressed

       Me.Label_Handle.Text = String.Format("Device Handle: {0}", e.DeviceInfo.DeviceHandle.ToString)
       Me.Label_Type.Text = String.Format("Device Type: {0}", e.DeviceInfo.DeviceType)
       Me.Label_Name.Text = String.Format("Device Name: {0}", e.DeviceInfo.DeviceName.Replace("&", "&&"))
       Me.Label_Descr.Text = String.Format("Device Description: {0}", e.DeviceInfo.DeviceDescription)
       Me.Label_Key.Text = String.Format("Device Key: System.Windows.Forms.Keys.{0}", e.DeviceInfo.Key.ToString)
       Me.Label_DevCount.Text = String.Format("Devices Count: {0}", Me.keyLogger.DeviceCount.ToString)

       Select Case e.DeviceInfo.Key

           Case Keys.Enter
               e.DeviceInfo.Chars = ControlChars.CrLf & "{ENTER}"

           Case Keys.Back
               e.DeviceInfo.Chars = "{BACKSPACE}"

           Case Keys.ControlKey
               e.DeviceInfo.Chars = "{CTRL}"

           Case Else
               ' ...

       End Select

       Me.TextBox1.Text = e.DeviceInfo.Chars
       Me.TextBox2.AppendText(e.DeviceInfo.Chars)

   End Sub

   Private Sub KeyLogger_HotkeyPastePressed(ByVal sender As Object, ByVal e As InputDevice.HotkeyPastePressedEventArgs) _
   Handles keyLogger.HotkeyPastePressed

       Me.TextBox2.AppendText("{INIT_PASTE}" & e.ClipboardData & "{END_PASTE}")

   End Sub

   Private Sub Button_Clean_Click(sender As Object, e As EventArgs) _
   Handles Button_Clean.Click

       Me.TextBox2.Clear()

   End Sub

   Private Sub Button_Dispose_Click(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Button_Dispose.Click

       If Me.keyLogger IsNot Nothing Then
           Me.keyLogger.Dispose()
       End If

   End Sub

End Class

DIAGRAMA DE CLASS

v

CÓDIGO FUENTE

http://pastebin.com/sMGREDTj
http://pastebin.com/u7uKf8ge

Espero que les haya gustado.

Si encuentran cualquier bug por favor coméntenlo aquí.

Saludos!

Mil gracias MCKSys y Mad Antrax.

A ese 03 que está cerca del final lo cambias por un 02 y la ventana ya no se minimiza al hacerle click al botón compare.

Al hacer eso, la ventana no se minimiza, pero el resto de botones ya no funcionan tras darle al botón "Compare", se quedan desactivados, por lo que es necesario reiniciar la app...

El valor correcto parece ser el 01, en lugar del 02. Todo parece funcionar bien, espero no encontrarme ninguna anomalía cómo la que he comentado.

Saludos

¿por qué no?, hay muchas, muchas féminas programadoras... aquí, allá, y con certificaciones profesionales de Microsoft u otra compañia.

Un ejemplo:
➢ https://en.wikipedia.org/wiki/Adele_Goldberg_%28computer_scientist%29

y varios ejemplos más en la wikipedia:
➢ https://en.wikipedia.org/wiki/Women_in_computing
(abajo del todo de la página)

Aparte de lo que ha comentado @Drvy, tampoco es solo que haya mayor interés por los hombres, es que las mujeres pueden encontrarse muchas más barreras que los hombres para desarrollarse y avanzar en el sentido laboral, es igual que la mala costumbre que algunos conservan de pensar que las mujeres son malas conductoras, por que si, sin razón, pues algo parecido pasa también con las mujeres programadores ...¿por qué?, suongo que son simples prejuicios por que sois minoria en la programación.

Y aquí tienes esto que me h a resultado curioso, es la historia de una chica normal que cuenta algunas de sus experiencias vividas cómo programadora a lo largo de 20 años, algunas partes puede que te resulten deprimentes (y machistas xD), pero otras puede que te motiven :
➢ https://medium.com/@sailorhg/coding-like-a-girl-595b90791cce

Saludos

Pero... entonces ¿sólo se puede mostrar carácteres por pantalla con ese lenguaje? ¿No sirve para nada más?

Mostrar caracteres es solo una manera de interpretar los bytes, los valores asignados a cada celda.

Es un lenguaje muy extravagante, ¿para que más esperas que se utilice comunmente si no es para saciar la curiosidad de representar un texto? xD.

no entiendo como se puede hacer un while

El loop de tipo while se hace con los símbolos [, y ], cómo ya he comentado.

Aquí tienes una IDE que incluye un generador automático de código brainfuck para cualquier cadena de texto:
http://4mhz.de/bfdev.html

Saludos!

[del cual solo he usado seguramente como el 2% de lo que tiene]

No trabajo para ninguna empresa ni tengo intención de ello, ni creo que pueda.

No te preocupes, la mayoría de usuarios (y moderadores) tampoco trabajamos para empresas, si lo hicieramos probablemente no tendriamos tiempo para pasarnos a ayudar por aquí a los demás, cómo es el caso de algún que otro moderador que si se dedica a la programación profesional y que ya no se le ve el pelo por el foro...

B. Acabo de empezar con VB.NET hace como un par de meses o tres, más o menos.
Empecé tonteando un poco para adaptarme al entorno, del cual solo he usado seguramente como el 2% de lo que tiene.

Si acabas de empezar hace unos meses entonces no has podido llegar a tocar ni un 0,2% en ese tiempo. No exagero, creeme, la librería de classes de .Net Framework es colosalmente extensa, más de lo que te puedes imaginar, igual que todos los conceptos que se pueden aprender.

Estas cosas:
AddHandler, Task, WithEvents, RaiseEvent ,IsNullOrWhiteSpace, InvokeRequired

todavía no se como van, es nuevo para mí, tendré que mirar uno por uno para poder entender el código y conseguir lo que busco.

La declaración AddHandler asocia un evento a un método.

La declaración RemoveHandler desaasocia un evento de un método.

La declaración RaiseEvent dispara un evento.

El keyword WithEvents indica que el objeto declarado puede disparar eventos, por ende, esto posibilita que se pueda usar directamente el keyword Handles para declarar el evento que controla un método (ej: sub metodo() Handles evento; Esto así mismo evita la necesitad de llenar el código con las sentencias AddHandler y RemoveHandler, queda muy feo cuando no es necesario hacerlo.

La extensión o función String.IsNullOrWhiteSpace determina si un string es nulo, vacío, o solo contiene espacios en blanco.

El método Threading.Tasks.Task.Factory.StartNew invoka un método encapsulado en un delegado o expresión Lambda, en un nuevo hilo (thread).

La propiedad Control.InvokeRequired determina si un control debe ser invocado, esto será así siempre que se intente llamar al control desde un hilo distinto al hilo donde se creó el control, de lo contrario, si no se invoca en dicha condición, se producirá una excepción de tipo Cross-Thread Exception.

buscando información sobre GDI, que siempre aparecen ejemplo de programas completos y bastante complejos.

Bueno, ese argumento es discutible, por que GDI/GDI+ de por si ya es algo complejo según se mire, hay características muy sencillas pero también otras muchas que se dificultan.

Hace poco modifiqué un programa de Leandro (no se qué) que semitransparenta un Form de modo que se vean nítidamente los controlos y demás pero el fondo del form sea semitransparente.

Pero tengo que decir que no comprendo el código completo. Tuve que modificarlo porque su código degradaba el form en dos colores sin opción o propiedad 'set' para cambiar dichos colores o ponerlo todo a un solo color.

Un consejo:
Olvida todos esos hacks para hacer transparente o semi-transparente un Form, WinForms no fue pensado ni está capacitado (de forma natural) para ese tipo de cosas, la transparencia y WinForms se llevan muy mal.

Todo ese tipo de códigos "transparentes" provocan un efecto muy negativo en la app, ya que ralentizan el form (todo lo que compone el form, sus controles), y mucho más si en dicho código se ua el hack de suplantar la función CreateParams para reducir el flickering. Si hicieses cualquier tipo de test de rendimiento en una app "transparente" (el tiempo que tarda un RichTextBox en mostrar X cantidad de caracteres por ejemplo) te dará resultados nefastos, y, si eres tan meticuloso (o tiquismiquis) cómo yo en ese sentido, entonces no querrás volver a hacer transparente una app utilzando ese tipo de técnicas esotéricas.

Confórmate con la manera natural de hacer transparente las cosas, ajustando la propiedad TransparencyKey.

Si quieres hacer algo más del estilo de ese tipo de códigos que mencionas, entonces olvida WinForms y ponte a programar en tecnología WPF, que está considerablemente más extendido en ese sentido, y en todos los demás sentidos también, ya que WPF es el sucesor de WinForms, y WPF sigue estando en desarrollo/actualización por parte de Microsoft, cosa que WinForms no.

porque en el momento que se me ocurre algo y quiero hacer una modificación, puede resultar o bien que  la modificación produzca un error que me obliga a modificar todo  o empezar casi desde el principio por incompatibilidad o bien haya pasado tanto tiempo desde que revisé el código que ya no recuerdo ni lo que hice y no se lo que hacía esto o aquello, sobre todo con códigos muy grandes.

Y por supuesto mi me memoria es pésima, cuando dejo de usar algo se me olvida, y es muy práctico tener un código de ejemplo para cuando lo necesite.

Existe algo llamado lineas de comentario (o documentación), aplícalo a tus códigos y no deberías tener problemas de memoria en el futuro , preferiblemente la documentación XML de .Net + la característica IntelliSense en la IDE o unas llamadas al Object Inspector, con eso es imposible perderte en códios grandes que estén XML-documentados.

En el código de ejemplo que publiqué arriba puedes ver un ejemplo de documentación XML para un método y sus parámetros:

Código (vbnet) [Seleccionar] Expandir

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Releases unmanaged and - optionally - managed resources.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <param name="isDisposing">
   ''' <c>True</c> to release both managed and unmanaged resources;
   ''' <c>False</c> to release only unmanaged resources.
   ''' </param>
   ''' ----------------------------------------------------------------------------------------------------
   Protected Sub Dispose(ByVal isDisposing As Boolean)
      ...
   End Sub

La documentación XML además también te permite añadir ejemplos de código con los tags: <example><code>CÓDIGO AQUÍ</code></example>, y muchas cosas más.

No se si lo he dejado del todo claro, pero por si no lo has pillado lo diré con otras palabras:
Cuando pasas el puntero del mouse por el nombre de un miembro en la IDE y te sale un tooltip con una descripción del miembro y de sus parámetros y tal, pues eso es lo que se consigue con la documentación XML, además la misma documentación también sirve para crear el archivo de referencia de una API, es decir, se documenta con XML los miembros de una librería .dll y se refleja toda esa información al compilar la dll en un archivo de ayuda (.chm, .html, pdf, etc).

Tengo cientos de plantillas de código simple y ejemplos sólo de VB, los cuales hacen lo básico y lo importante. Por supuesto son modificables y ajustables  a la necesidades del programa.

Quizás te pueda interesar este hilo:

➢ Librería de Snippets para VB.Net !! (Compartan aquí sus snippets)

Tan sólo quiero:

Form1 (o cualquier otro, o módulo)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
-Llama a la función y la URL
-Recibir información de descarga mientras se produce
-Opción cancelar
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
              ▲
               •
               •
               •
              ▼
Bloque de código aparte
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
- Función de descarga con la URL  
- Obtener información de descarga
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀

Por lo tanto como ejemplo y como base, tan solo necesito un label el cual va a recibir la información del porcentaje, todo lo demás es irrelevante.

Bien, ¿pero hay algún problema con eso?, ¿el código que te mostré no te ha servido?.

Saludos!

[una única vez]

Lo que busco es tan simple como esto

¿Ese es el código completo que estás utilizando?, en ese caso, ¿còmo esperas que no se quede en blanco el label?, jeje, estás devolviendo un objeto una única vez, un objeto vacío/nulo.

En resumidas cuentas, descartando el resto del código esta es la trayectoria que haces, de la linea 5 a la 15, FIN.

Código (vbnet,5,15) [Seleccionar] Expandir

   Public Class Form1
   
       Private Sub Button1_Click(...) Handles Button1.Click
           ...
           Label1.Text = ns.getProgress
       End Sub

   End Class
   
   Class modDownloadURL
       Public Progress As Object

       ReadOnly Property getProgress() As String
           Get
               Return Progress
           End Get
       End Property
   
   End Class

Primero llamas al método que descarga el archivo, y mientras tanto asignas el texto al label, pero solo lo asignas una vez, y el valor seguramente esté en blanco por que al objeto "Progress" no lo inicializaste con un valor inicial y el texto del label se asigna más rápido de lo que la operación asincrona tarda en disparar el evento del WebClient para asignarle un valor inicial a ese objeto "Progress".

Vamos, que despues de la primera vez que le asignas el texto vacío al label, no llegas a actualizar el texto del label nunca más.

Debes controlar cuando los eventos del Webclient se disparan, para actualizar el texto del label cuando eso suceda (cómo en el ejemplo que he publicado arriba).
El control no se va a actualizar por arte de magia.


¿Hay algo que no entiendas de tú código, de lo que estás haciendo?.


Saludos!

Batch es ridiculamente limitado, no es posible una iteración de caracteres ya que no existe ese tipo de loop, entonces, debes idear técnicas alternativas para llevar a cabo ese tipo de tarea, por ejemplo con un un For range (For /L) substrayendo cada caracter del string y defininendo un terminador de string, es decir, hay que añadirle un caracter especial al final del string para saber cuando salir de la iteración, al encontrar ese caracter especial.

Ejemplo:

Código (ini) [Seleccionar] Expandir

@Echo OFF & Setlocal EnableDelayedExpansion

Set    "finalizer=Ç"
Set /A "mayusCount=0"
Set /A "minusCount=0"

Echo: Type any string...
Set /P "str=>> "

Set "str=%str%%finalizer%"

For /L %%c In (0, 1, 99998) Do (
Set "char=!str:~%%c,1!"
If "!char!" EQU "A" (Set /A "mayusCount+=1")
If "!char!" EQU "a" (Set /A "minusCount+=1")
If "!char!" EQU "%finalizer%" (Goto :Break)
<Nul set /P "char=!char!"
)

:Break
Echo+ | More
Echo: "A" count: %mayusCount%
Echo: "a" count: %minusCount%

Pause&Exit /B 0

Saludos

no se como se compila

El paquete de la SDK incluye todo lo que necesitas, el compilador es un archivo ejecutable con interfáz commandline (desconozco el nombre del exe y los parametros del compiler), y por supuesto incluye varios archivos de documentación con la referencia de la SDK y de cómo usar el compiler y el resto de herramientas, al menos los paquetes oficiales/filtrados de la SDK, no se lo que te habrás bajado.

Entonces, encuentra esos archivos que he comentado y empieza por leer la documentación punto por punto para aprender su utilización.

Aparte, el paquete de la SDK también incluye un instalador para integrar los compilers a Visual Studio (el archivo, en la SDK 4.00 al menos se llama así: VSI2010_PS3_2.0.1.5.zip), así que puedes programar y compilar desde Visual Studio.

Si te falta algo de eso en la SDK que te hayas descargado, entonces te sugiero descargar esta versión filtrada, que lo tiene todo incluido:
http://kickass.torated.com/ps3-ps3-4-00-sdk-ylod-t8874817.html

PD: La versión 4.50 también la puedes encontrar facilmente, es una release del mismo grupo, pero pesa solamente 63 mb (solo incluye el compiler y lo esencial).

Saludos

Buenas!!

Esta pregunta ya la posteé hace unos cuantos meses, MCKSys Argentina me ayudó a solucioanr uno de los problemas de esta app (gracias de nuevo), pero pasa el tiempo y no consigo solucionar este otro problema.

La app, que fue desarrollada en C/C++, es esta, RegShot 2.0 (x64):
http://www.mediafire.com/download/32wkk7cjlhjal7c/Regshot.zip

Sirve para crear y comparar capturas del registro de Windows, el problema está cuando se le da al botón "Comparar" (o "Compare" teniendo la UI en Inglés), la app se minimiza a la barra de tareas y se ejecuta un archivo de texto en el editor por defecto, bien, yo quiero evitar el minimizado, que me tiene hasta los web..., me tiene muy harto de verdad por que utilizo mucho esta app y es incomodísimo que haga eso siempre!.

En el OllyDBG podría tratar de localizar la instrucción por mis propios medios (y luego preguntarle a ustedes que debo hacer xD), pero cómo es una app de 64 Bits debo usar IDA u otro desamblador que soporte x64, y ahí ya si que me pierdo por completo con el IDA hasta para buscar... más que con OllyDBG quiero decir ...que también me pierdo xD.

¿Alguien me puede echar una mano?.

PD: Tengo el IDA para probar lo que me digan...

Saludos!