- 定义变量 HH
- 令 text1 = Form1.InputBox1.Text
- 令 text2 = Form1.InputBox2.text
- 令 text3 = form1.InputBox3.text
- 令 text4 = Form1.InputBox4.text
- 令 HH = Window.GetKeyFocusWnd()
- 如果 text1 = "" 则
- 弹出窗口 "请在第一个喊话框内输入喊话内容"
- 脚本停止运行
- 条件结束
- 如果 text4 = "" 则
- 弹出窗口 "请输入喊话延迟时间"
- 脚本停止运行
- 条件结束
- 如果 text3 = "" 则
- 跳转到标记 转入喊话内容2
- 否则
- 循环当 true 时
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Window.SendString(HH,text1)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Window.SendString(HH,text2)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Window.SendString(HH,text3)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 循环结束
- 条件结束
- 标记 转入喊话内容2
- 如果 text2 = "" 则
- 跳转到标记 转入喊话内容1
- 否则
- 循环当 true 时
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Window.SendString(HH,text1)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Window.SendString(HH,text2)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 循环结束
- 条件结束
- 标记 转入喊话内容1
- 循环当 true 时
- 注释:向后台窗口句柄(变量:HH)发送一个键盘(扫描码:13)按键
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 调用 Window.SendString(HH,text1)
- 延时 text4 毫秒
- 调用 Bkgnd.KeyPress(HH,13)
- 延时 text4 毫秒
- 循环结束