精炼搜索ListBox展示

这段代码主要实现了一个简单的实时搜索功能，通过用户在一个输入框中的键入操作实时筛选出与输入关键字匹配的内容，并将匹配结果展示在列表框中。

Gui, Add, Edit, w300 x12 y10 HwndMyEdit,
DllCall("user32\SendMessage", "Ptr", MyEdit, "uint", 0x1501, "int", 1, "Str", "输入 ""电视"" 进行测试", "int")
Gui, Add, ListBox, w300 x12 y+4 Sort HwndListBox R10,
Gui, Show
OnMessage(0x0101, "WM_KEYUP")

ListArr := ["家庭业务", "产品质量", "互联网电视", "功能使用", "业务因素", "栏目点播", "电视直播", "电视看点", "其他项目"]
Return

GuiClose:
  ExitApp

WM_KEYUP(W, L, M, H) {
  global MyEdit, ListBox, ListArr
  Static LastText
  If (H = MyEdit) {
    GuiControlGet, value, , % MyEdit
    If (value And value!=LastText) {
      Text := ""
      for index, ele in ListArr
        if (InStr(ele,value))
          Text .= (Text ? "|" ele : ele)
      GuiControl, , % ListBox, % "|" Text
      LastText := value
    } Else If (!value)
      GuiControl, , % ListBox, % "|"
  }
}