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