//打開記事本
RunApp "notepad.exe"
Do
Delay 1000
//用標題"無標題 - 記事本"找記事本的句柄
Hwnd = Plugin.Window.Find(0, "無標題 - 記事本")
Loop Until hwnd>0
MessageBox Plugin.Window.GetText(Hwnd)
RunApp("notepad.exe")
Do
Delay 1000
//下面這句是遍歷符合窗口標題("記事本")的句柄保存到數組(HwndEx)裏
HwndEx = Plugin.Window.Search("記事本")
Loop Until len(hwndex)>0
MsgBox "查找到符合的窗口句柄為："& HwndEx
//下面這句用於分割字符串,將獲得的句柄組分割
//dim MyArray
MyArray = Split(HwndEx, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面這句是根據父窗口句柄(MyArray)查找子窗口匹配類名("Edit")或者匹配標題(0),返回找到匹配的句柄Hwnd
//找記事本的編輯窗口的句柄
Hwnd = Plugin.Window.FindEx(MyArray(i), 0, "Edit", 0)
//向後臺窗口句柄(變量：Hwnd)發送壹個鍵盤(掃描碼：49+i)按鍵("1")
Call Plugin.Bkgnd.KeyPress(Hwnd, 49+i)
Delay 200
//下面這句將字符串轉換成數值
Msgbox "第 "& i+1 &" 個窗口句柄為："&Clng(MyArray(i))
i=i+1
Next
End If