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