VBA调用的BlueZone屏幕

Question

[我在BlueZone中使用了几个具有5个字母字符的屏幕，分别称为“ ABCDE”，“ BCDEF”等。用户必须（1）按下F3（2）输入（3）输入字母字符（4）输入。

我希望通过VBA提供一个简单的导航窗格，该窗格将我想要的所有屏幕显示为按钮-单击并调用。例如。我单击标记为“ ABCDE”的按钮，然后出现该屏幕。

我无权访问BlueZone的VBA附加组件。不过，我可以将程序中的宏记录/写入为.bss文件。我想没有办法在BlueZone中添加漂亮的按钮来调用宏。

要使用BlueZone中的宏，您必须选择一个下拉列表，然后选择您的宏...

[我知道我可以使用Shell（）打开VBA中的各种文件，但是我可以操纵像BlueZone这样的模拟器来通过VBA运行宏吗？

Answer 1

    Sub ARDAA()

Set bzhao = CreateObject("BZWhll.WhllObj")
  bzhao.Connect ""

bzhao.SendKey "<PF3>"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "a"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "r"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "d"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "a"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "a"
bzhao.WaitForString "[0;7mA" & Chr(27) & "[0m", 30
bzhao.SendKey "<Enter>"

End Sub

我找不到导航到屏幕的呼叫，所以这是VBA只是在调用按键。