Dim HH
text1 = Form1.InputBox1.Text
text2 = Form1.InputBox2.text
text3 = form1.InputBox3.text
text4 = Form1.InputBox4.text
HH = Plugin.Window.GetKeyFocusWnd()

If text1=""	Then
MessageBox "请在第一个喊话框内输入喊话内容"
EndScript
End If

If text4 = "" Then 
	MessageBox "请输入喊话延迟时间"
	EndScript
End If

If text3 = "" Then 
Goto 转入喊话内容2
	Else 
While true
	Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Window.SendString(HH, text1)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Window.SendString(HH, text2)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Window.SendString(HH, text3)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Wend
End If


Rem 转入喊话内容2
If text2 = "" Then 
	Goto 转入喊话内容1
	Else 
	While true
	Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Window.SendString(HH, text1)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Call Plugin.Window.SendString(HH, text2)
    Delay text4
    Call Plugin.Bkgnd.KeyPress(HH, 13)
    Delay text4
    Wend
End If




Rem 转入喊话内容1
While true
//向后台窗口句柄(变量：HH)发送一个键盘(扫描码：13)按键
Call Plugin.Bkgnd.KeyPress(HH, 13)
Delay text4
Call Plugin.Window.SendString(HH, text1)
Delay text4
Call Plugin.Bkgnd.KeyPress(HH, 13)
Delay text4
Wend