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