WINDOWS掃雷的問題

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-1

j=0

For y-1

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 "關閉掃雷遊戲"