教學 - 如何跨程式(軟體)共用 變數

[mini]

這個變數個人暫且稱為 "全域記憶體變數"
其目的是
當不同的程式 要有即時效果 而共用一個變數時，即可使用此方法

'參數: 變數記憶體位址, 編號, 使用模式; 傳回通用記憶體位址
Public Function GlobalMemVar(lpVar As Long, iNO As Integer, sMode As String, vtVar As Variant) As Long
Static gMemVar() As MemVar_Data
Dim i As Integer

On Error Resume Next
    
    i = UBound(gMemVar)
    If Err.Number > 0 Then
        Err.Clear
        ReDim Preserve gMemVar(iNO)
        
    Else
        If LCase(sMode) = "c" Or LCase(sMode) = "create" Then
            If iNO <= i Then
                iNO = i + 1 '創建的號碼已使用過時...
                ReDim Preserve gMemVar(iNO)
            End If
        End If
    End If
    
    With gMemVar(iNO)
    Select Case LCase(sMode)
    Case "get", "g"
        .lAddress = GlobalLock(.hGlobal)                       '使用前要鎖住
             CopyMemory ByVal lpVar, ByVal .lAddress, .iSize  '將 變數 複製到 全域記憶體
             GlobalUnlock .hGlobal                                      '使用後解鎖
        
    Case "put", "p"
PUTMEM:
        .lAddress = GlobalLock(.hGlobal)                       '使用前要鎖住
             CopyMemory ByVal .lAddress, ByVal lpVar, .iSize  '將 變數 複製到 全域記憶體
             GlobalUnlock .hGlobal                                      '使用後解鎖
             GlobalMemVar = .lAddress
        
    Case "create", "c"
        '得到大小(byte)
        Select Case VarType(vtVar)
        Case vbByte:     .iSize = 1
        Case vbBoolean:  .iSize = 2
        Case vbInteger:  .iSize = 2
        Case vbLong:     .iSize = 4
        Case vbSingle:   .iSize = 4
        Case vbDouble:   .iSize = 8
        Case vbCurrency: .iSize = 8
        Case vbDate:     .iSize = 8
        Case 8209:       .iSize = UBound(vtVar)
        End Select
        
        .hGlobal = GlobalAlloc(GMEM_SHARE, .iSize) '配置 全域記憶體
        GoTo PUTMEM
    
    Case "free", "f"
        GlobalFree .hGlobal '釋放記憶體
             If iNO = UBound(gMemVar) And iNO > 0 Then
            ReDim Preserve gMemVar(iNO - 1)
        
        Else
            .hGlobal = 0    '清空內容
                    .lAddress = 0
            .iSize = 0
        End If
    End Select
    End With
    
End Function

※String變數 請用 Byte陣列


使用範例1

Dim ltmp As Long
GlobalMemVar VarPtr(CLng(5)), 0, "c", CLng(5) '建立一個 全域記憶體變數，內容是5，型態是 Long，編號是0
GlobalMemVar VarPtr(CLng(2)), 0, "p", CLng(2) '對剛才的編號0 全域記憶體變數，改變內容，放入 2
GlobalMemVar VarPtr(ltmp), 0, "g", ltmp       '將編號0 全域記憶體變數 內容複製出來 到變數ltmp
'所以 變數ltmp內容原本是0 執行完第三行後 變成2

使用範例2
先在[程式 A.EXE] 宣告 "全域記憶體變數" 編號0
Dim ltmp As String
GlobalMemVar VarPtr(ltmp), 0, "c", ltmp

接著程式A 使用了 [自製 B.DLL] 的函數 (名稱為 Ring0Hook)
Ring0Hook 函數之內容是

'Ring0Hook 參數需包含 lpAddress ("全域記憶體變數" 之變數位址) 及 iSize ("全域記憶體變數" 之大小※單位是 Byte)
...
Dim a As Long
CopyMemory( a, ByVal lpAddress, iSize) '複製 "全域記憶體變數" 內容到 a
a = Time
CopyMemory( ByVal lpAddress, a, iSize) ' "全域記憶體變數" 內容 變成 a內容
...

如此 程式A運行完Ring0Hook
ltmp 將等於 Time
也就是時間


至於字串如何創建
Dim b() as Byte
b = "全域記憶體變數" & Chr(0)
GlobalMemVar VarPtr(b(0)), 0, "c", b


.bas 宣告

' Global Memory Flags
Global Const GMEM_FIXED = &H0
Global Const GMEM_MOVEABLE = &H2
Global Const GMEM_NOCOMPACT = &H10
Global Const GMEM_NODISCARD = &H20
Global Const GMEM_ZEROINIT = &H40
Global Const GMEM_MODIFY = &H80
Global Const GMEM_DISCARDABLE = &H100
Global Const GMEM_NOT_BANKED = &H1000
Global Const GMEM_SHARE = &H2000
Global Const GMEM_DDESHARE = &H2000
Global Const GMEM_NOTIFY = &H4000
Global Const GMEM_LOWER = GMEM_NOT_BANKED
Global Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
Global Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT)

Public Declare Function GlobalAlloc Lib "kernel32" ( _
    ByVal wFlags As Long, _
    ByVal dwBytes As Long) As Long
Public Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Public Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Public Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Public Type MemVar_Data
    lAddress As Long
    hGlobal  As Long
    iSize    As Integer
End Type

'如果來源與目的都是 VB變數，則直接填上
'如果來源與目的 是 記憶體位址，其前方需填上 ByVal
'如果來源與目的 是 陣列，填上第一個維度 A(0)
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    lpDest As Any, _
    lpSource As Any, _
    ByVal cbCopy As Long)

以上可以將其"改造"成 PowerBasic程式碼編譯成 .dll
可用性將會很大
也可用作"監視"用途
如何發揮就看您自己