Mensajes

[jackl007 ツ]

jackl007 ツ muy completa tu respuesta, enseguida lo pruebo! =)

Bueno quiero que cuando el raton haga click capture una imagen de su alrededor de 50x50, estoy intentando por ahora que al hacer click por lo menos capture y despues de varios intentos he llegado a la conclusion de que tengo que hacer hooks al raton, me puse a buscar ejemplos mas o menos del hook al raton pero no me sirvieron, la idea es por ahora que al hacer click capture la imagen de la ventana activa y ya luego el otro problema seria mostrando el puntero en la captura de 50x50

Esta sería la función que capturaría la ventana activa :

Código (vb) [Seleccionar] Expandir


Public Function cWindow()
 Num = Num + 1
 keybd_event 44, 0, 0&, 0&
 DoEvents
 If Clipboard.GetFormat(vbCFBitmap) Then SavePicture Clipboard.GetData(vbCFBitmap), sIM & Num & ".bmp"
End Function


Y lo que intento hacer es ahora con las siguientes declaraciones, es saber cuando se hizo click y llamar a la otra función :

Código (vb) [Seleccionar] Expandir


Public Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Const WH_MOUSE As Long = 7



Saludos!

Has probado a darle doble click para abrirlo? o poniendo el cursor encima de la lupa, y te dirá algo (normalmente), y a raiz de eso, ps puedes saber más cosas y tal.. xD

Ustedes leen cuando posteo algo?, cuando digo que no hace nada, no interactua con el usuario, no hace nada parece una simple imagen !

Oh sí, interesante... ¿y la pregunta es?

A que se debe esa lupa?, no instale nada, salió sola..

A que se debe esa lupa?, no instale nada, salió sola..
No tiene menu popup, no encuentro su proceso ni nada de nada

:S

Bueno estoy probando a hacer un constructor con ASM, la mejor manera que pensé fue agreganndole un recurso desde el constructor al stub con los datos dentro, ahora el dilema es como abrir el recurso que agregó el constructor?

Saludos!

JAJAJA Me arrastraron por los suelos 
Un poco más y vienen a mi casa me pegan dos bofetadas y me dicen esto está maaall... (es broma xD)
Esto me aclarará varias cosas.

Saludos!

Código (vb) [Seleccionar] Expandir



For a = 0 To 75    'Error
  For x = 0 To 75   'Error
   If a <> x Then
    If txtChr(a).Text = txtChr(x).Text Then
     txtChr(a).BackColor = &H8080FF
     txtChr(x).BackColor = &H8080FF
    ElseIf Len(txtChr(a).Text) > 1 Then
     txtChr(a).BackColor = &H8080FF
    ElseIf Len(txtChr(x).Text) > 1 Then  ' Posible Error
     txtChr(x).BackColor = &H8080FF
    End If
   End If
  Next x
Next a



Que podría pasar?, yo lo veo normal.
Gracias por tomarte el tiempo de ver el source 

[Forma de uso :]

Bueno este proyecto lo tenía parado, un dia se me ocurrió la idea de hacer un programa que cree un modulo para proyectos de VB6 (Visual Basic 6) con la función de cifrar y descifrar datos, lo que hice fue un programa con la opción de hacer un algoritmo personal, sustituyendo carácteres por otros.



Forma de uso :
Para llamar a la función de cifrar 'cifrado = Encrypt(Datos, Contraseña)'
Para llamar a la función de descifrar 'descifrado = Decrypt(Datos, Contraseña)'

Descargar Personal Algorythm (Binario)
Descargar Personal Algorythm (Source)

Contraseña de los ficheros : SCB Lab's

Saludos! 

Muchas gracias me servirá mucho