[贴士] 数组运用喊话

SzAngel

VBS dim shuapin(5),n,a,b
n=0
a=0
b=0
While n<6
    VBSCall shuapin(n)=inputbox("请输入刷屏内容")
    n=n+1
EndFor
While a<6
    SayExpression shuapin(a)
    KeyDown 18 1
    KeyPress 83 1
    KeyUp 18 1
    Delay 1000
    a=a+1
EndFor