[General]
Description=ӣڴMemory
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
//OK
VBSCall RunApp("notepad.exe")
Delay 1000
//ǲҴ(0)߱("ޱ - ±"),ҵľHwnd
Plugin Hwnd = Window.Find(0, "ޱ - ±")
MsgBox "ҵĸھΪ"&Hwnd
//ýȼΪ(ڱ׼(A))
Plugin Memory.SetProcessLive(Hwnd, 4)
MsgBox "ýȼΪ(ڱ׼(A))"
//Ƿؽȼص(Live)
Plugin Live = Memory.GetProcessLive(Hwnd)
MsgBox "ؽȼΪ"&Live
//ǽ(Hwnd)
Plugin Memory.TerminateProc(Hwnd)
MsgBox ""
//===========================================================================
VBSCall RunApp("winmine.exe")
Delay 1000
Plugin hwnd=Window.Find(0,"ɨ")
Dim x, y
//x, yзֱ𱣴浱ǰɨ׵ĳĸ
Plugin x=Memory.Read32Bit(hwnd,&h1005334)
Plugin y=Memory.Read32Bit(hwnd,&h1005338)
MsgBox "ɨ׵ĳĸΪ" &x& "  *  " &y&""
//ǴڴַΧʼ(&H7D7045B4&H7D8045B4)ԲΪ(2)ڴַ("")ַ
Plugin DiZhi = Memory.FindString(Hwnd, "", &H7D7045B4, &H7D8045B4, 2)
MsgBox "һ""""ڴַΪ&H" & Hex(DiZhi)
//Ƕȡڴַ(&H7D7A45B4)ڴַص(z)
Plugin z = Memory.ReadString(Hwnd, Clng(DiZhi), 2)
MsgBox "ڴַΪ" &z
//˫ѭѭи
TestMemory_resut=""
Dim i, j, value, strview
strview="˵@ȫ*" & vbcrlf
i=0
For x
    j=0
    For y
        Plugin value=Memory.Read8Bit(hwnd,&h1005360+(j+i*32+1))
        If value=&h8A or value=&h8F
            strview=strview & " *"
        Else 
            strview=strview & " @"
        EndIf 
        j=j+1
    EndFor 
    strview=strview & vbcrlf
    i=i+1
EndFor 
TestMemory_resut="ɨײ:" & strview
MsgBox TestMemory_resut
//رɨ
Plugin Window.Close(hwnd)
MsgBox "رɨϷ"
