Vbscript 循环一行不断增加的代码

我有从宏录制应用程序导出的VBS代码

我想使用Do While循环语句来重复代码。代码中有一行在每个循环中不断增加一行，我不知道如何绕过它

这是VBS代码

bzhao.SendKey "x"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 1

'Next loop

bzhao.SendKey "<Down>"
bzhao.SendKey "x"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 1

' Next loop

bzhao.SendKey "<Down>"
bzhao.SendKey "<Down>"
bzhao.SendKey "x"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 1

' Next Loop

bzhao.SendKey "<Down>"
bzhao.SendKey "<Down>"
bzhao.SendKey "<Down>"
bzhao.SendKey "x"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 1

'And so on

bzhao.SendKey“x”
bzhao.SendKey“”
bzhao.WaitReady 10,1
“下一个循环
bzhao.SendKey“”
bzhao.SendKey“x”
bzhao.SendKey“”
bzhao.WaitReady 10,1
“下一个循环
bzhao.SendKey“”
bzhao.SendKey“”
bzhao.SendKey“x”
bzhao.SendKey“”
bzhao.WaitReady 10,1
“下一个循环
bzhao.SendKey“”
bzhao.SendKey“”
bzhao.SendKey“”
bzhao.SendKey“x”
bzhao.SendKey“”
bzhao.WaitReady 10,1
”“等等

---

我想写一个循环语句，它可以增加每个循环中这行代码的数量

bzhao.SendKey”“

这将是循环中的一个循环。我认为这应该奏效：

Sub looper()

    Const numberofLoops As Long = 20 ' or whatever "and so on" is

    Dim i As Long, z As Long

    'Next loop
    For i = 1 To numberofLoops
        z = 1

        Do While z < i
            bzhao.SendKey "<Down>"
            z = z + 1
        Loop

        bzhao.SendKey "x"
        bzhao.SendKey "<Enter>"
        bzhao.WaitReady 10, 1

    Next i

End Sub

Sub-looper（）
Const numberofLoops，只要长=20'或“依此类推”是什么
暗i和z一样长
“下一个循环
对于i=1到numberofLoops
z=1
当z

我将测试代码并尽快向您更新。谢谢你。