1. 定义变量 HH
  2. 令 text1 = Form1.InputBox1.Text
  3. 令 text2 = Form1.InputBox2.text
  4. 令 text3 = form1.InputBox3.text
  5. 令 text4 = Form1.InputBox4.text
  6. 令 HH = Window.GetKeyFocusWnd()
  7. 如果 text1 = "" 则
  8.     弹出窗口 "请在第一个喊话框内输入喊话内容"
  9.     脚本停止运行
  10. 条件结束
  11. 如果 text4 = "" 则
  12.     弹出窗口 "请输入喊话延迟时间"
  13.     脚本停止运行
  14. 条件结束
  15. 如果 text3 = "" 则
  16.     跳转到标记 转入喊话内容2
  17. 否则
  18.     循环当 true 时
  19.         调用 Bkgnd.KeyPress(HH,13)
  20.         延时 text4 毫秒
  21.         调用 Window.SendString(HH,text1)
  22.         延时 text4 毫秒
  23.         调用 Bkgnd.KeyPress(HH,13)
  24.         延时 text4 毫秒
  25.         调用 Bkgnd.KeyPress(HH,13)
  26.         延时 text4 毫秒
  27.         调用 Window.SendString(HH,text2)
  28.         延时 text4 毫秒
  29.         调用 Bkgnd.KeyPress(HH,13)
  30.         延时 text4 毫秒
  31.         调用 Bkgnd.KeyPress(HH,13)
  32.         延时 text4 毫秒
  33.         调用 Window.SendString(HH,text3)
  34.         延时 text4 毫秒
  35.         调用 Bkgnd.KeyPress(HH,13)
  36.         延时 text4 毫秒
  37.     循环结束
  38. 条件结束
  39. 标记 转入喊话内容2
  40. 如果 text2 = "" 则
  41.     跳转到标记 转入喊话内容1
  42. 否则
  43.     循环当 true 时
  44.         调用 Bkgnd.KeyPress(HH,13)
  45.         延时 text4 毫秒
  46.         调用 Window.SendString(HH,text1)
  47.         延时 text4 毫秒
  48.         调用 Bkgnd.KeyPress(HH,13)
  49.         延时 text4 毫秒
  50.         调用 Bkgnd.KeyPress(HH,13)
  51.         延时 text4 毫秒
  52.         调用 Window.SendString(HH,text2)
  53.         延时 text4 毫秒
  54.         调用 Bkgnd.KeyPress(HH,13)
  55.         延时 text4 毫秒
  56.     循环结束
  57. 条件结束
  58. 标记 转入喊话内容1
  59. 循环当 true 时
  60.     注释:向后台窗口句柄(变量:HH)发送一个键盘(扫描码:13)按键
  61.     调用 Bkgnd.KeyPress(HH,13)
  62.     延时 text4 毫秒
  63.     调用 Window.SendString(HH,text1)
  64.     延时 text4 毫秒
  65.     调用 Bkgnd.KeyPress(HH,13)
  66.     延时 text4 毫秒
  67. 循环结束