//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★描★述★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//——————————————————————<[一只鱼]自定义界面完整例子[喊话]>
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//——————————————————————<创建日期：2008/11/12/10:00:00>
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
UserVar CDK=0 [填注册码]
UserVar ETO=DropList{○关闭:0|●使用:1}=1 [按回车键]
UserVar TXT=第1句|第2句|第3句 [喊话内容]
UserVar ETT=DropList{○关闭:0|●使用:1}=1 [按回车键]
UserVar MJT=1000 [每句间隔]
UserVar XHT=3000 [循环间隔]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★赋★值★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Gosub 【私聊留言头文件】
Delay 1000
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Rem 《《开始》》
//——————————————————————<可以打开记事本测试！！>
Gosub 【发送私聊留言】
Goto 《《开始》》
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
EndScript
Sub 【私聊留言头文件】
    VBS Lst = Split(TXT, "|")
    VBS num = UBound(Lst)+1
Return 【私聊留言头文件】
Sub 【发送私聊留言】
    VBS lyx=0
    For num
        Delay MJT
        KeyPressS 13,1
        Delay 500
        SayString Lst(lyx)
        Delay 500
        KeyPressS 13,1
        VBS lyx=lyx+1
    EndFor
    Delay XHT
Return 【发送私聊留言】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★停★止★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Sub 【脚本停止运行】
EndScript
Return 【脚本停止运行】
Sub OnScriptExit
    VBS TT="●欢迎您再次使用〖一只鱼〗随便制作的辅助工具(*^__^*)。谢谢！！"
    VBSCall MessageBox(TT)
Return 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【作　者】一只鱼　　　　　　　　　　　　　　　【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　　　　　　【致谢】欢迎使用鱼鱼制作的插件!!
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//