hment ".\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
k = WaitKey()
If k="81" Then
    ck(i) = Plugin.Window.Foreground()
    i=i+1
ElseIf k="80" Then
    Goto kais
End if
Goto xh
Rem kais
ii=i
For xh
    i=1
    //发送喊话
    If h1="1" Then
        For ii-1
            Call Plugin.BGKM5.KeyClick(ck(i),13)
            Delay 100
            hua1=""&hua1&""
            Call Plugin.Window.SendString(ck(i), hua1)
            Delay 200
            i=i+1
        Next
        //回车
        i=1
        For ii-1
            Call Plugin.BGKM5.KeyClick(ck(i),13)
            i=i+1
            Delay ys
        Next
        i=1
    Else
    End if
    //===========================
    //发送喊话
    If h2="1" Then
        For ii-1
            Call Plugin.BGKM5.KeyClick(ck(i),13)
            Delay 100
            hua2=""&hua2&""
            Call Plugin.Window.SendString(ck(i), hua2)
            Delay 200
            i=i+1
        Next
        //回车
        i=1
        For ii-1
            Call Plugin.BGKM5.KeyClick(ck(i),13)
            i=i+1
            Delay ys
        Next
        i=1
    Else
    End if
Next