PutAttachment .\plugin *.dll
UserVar hua1=内容设置一 喊话内容一
UserVar hua2=内容设置二 喊话内容二
UserVar ys=1100 延时
UserVar xh=30 循环次数
UserVar h1=1 不需要喊第一句请输入0
UserVar h2=1 不需要喊第二句请输入0
dim ck(1111),i
i="1"
Rem xh
WaitKey k
If k="81"
    Plugin ck(i) = Window.Foreground()
    i=i+1
ElseIf k="80"
    Goto kais
EndIf 
Goto xh
Rem kais
ii=i
For xh
    i=1
    //发送喊话
    If h1="1"
        For ii-1
            Plugin BGKM5.KeyClick(ck(i),13)
            Delay 100
            hua1=""&hua1&""
            Plugin Window.SendString(ck(i), hua1)
            Delay 200
            i=i+1
        EndFor 
        //回车
        i=1
        For ii-1
            Plugin BGKM5.KeyClick(ck(i),13)
            i=i+1
            Delay ys
        EndFor 
        i=1
    Else 
    EndIf 
    //===========================
    //发送喊话
    If h2="1"
        For ii-1
            Plugin BGKM5.KeyClick(ck(i),13)
            Delay 100
            hua2=""&hua2&""
            Plugin Window.SendString(ck(i), hua2)
            Delay 200
            i=i+1
        EndFor 
        //回车
        i=1
        For ii-1
            Plugin BGKM5.KeyClick(ck(i),13)
            i=i+1
            Delay ys
        EndFor 
        i=1
    Else 
    EndIf 
EndFor