1. 令 ko = Window.Search("泡泡堂")
2. 令 jo = Split(ko,"|")
3. 令 yo = UBound(jo)
4. 如果 yo > 0 则
5.     令 i = 0
6.     循环 yo 次
7.         令 po = CLng(jo(i))
8.         调用 Window.SendKeyPress(po,116)
9.         令 i = i + 1
10.     循环结束
11. 条件结束