shlcalc.bas

一个非常小的程序

Attribute VB_Name = "ShlCalc"
Option Explicit

Public Sub Shl(ByRef op As Long, ByVal cl As Long)
    DebugBreak
    End
End Sub

Public Function SetShlProc(ByVal FuncAddr As Long) As Long
    Dim CurrentProcess As Long: CurrentProcess = &HFFFFFFFF
    Dim JmpAsmCode(12) As Byte
    Dim nSize As Long
    Dim Ret As Long
    
    JmpAsmCode(0) = &H8B
    JmpAsmCode(1) = &H44
    JmpAsmCode(2) = &H24
    JmpAsmCode(3) = &H4
    
    JmpAsmCode(4) = &H8B
    JmpAsmCode(5) = &H4C
    JmpAsmCode(6) = &H24
    JmpAsmCode(7) = &H8
    
    JmpAsmCode(8) = &HD3
    JmpAsmCode(9) = &H20
    JmpAsmCode(10) = &HC2
    JmpAsmCode(11) = &H8
    JmpAsmCode(12) = &H0
    
    Ret = WriteProcessMemory(CurrentProcess, ByVal FuncAddr, JmpAsmCode(0), 13, nSize)
    
    SetShlProc = Ret
End Function