1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★描★述★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //——————————————————————<[一只鱼]自定义界面完整例子[喊话]>
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. //——————————————————————<创建日期：2008/11/12/10:00:00>
5. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
6. 用户定义变量 CDK=0 [填注册码]
7. 用户定义变量 ETO=DropList{○关闭:0|●使用:1}=1 [按回车键]
8. 用户定义变量 TXT=第1句|第2句|第3句 [喊话内容]
9. 用户定义变量 ETT=DropList{○关闭:0|●使用:1}=1 [按回车键]
10. 用户定义变量 MJT=1000 [每句间隔]
11. 用户定义变量 XHT=3000 [循环间隔]
12. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★赋★值★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
13. 调用子程序 【私聊留言头文件】
14. 延时1000毫秒
15. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
16. 标记 《《开始》》
17. //——————————————————————<可以打开记事本测试！！>
18. 调用子程序 【发送私聊留言】
19. 跳转到标记 《《开始》》
20. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
21. 脚本停止运行
22. 子程序 【私聊留言头文件】
23.     （VBScript语句） Lst = Split(TXT, "|")
24.     （VBScript语句） num = UBound(Lst)+1
25. 子程序结束,回到调用处
26. 子程序 【发送私聊留言】
27.     （VBScript语句） lyx=0
28.     循环 num 遍
29.         延时MJT毫秒
30.         超级模拟按键<Enter>
31.         延时500毫秒
32.         输入文本 Lst(lyx)
33.         延时500毫秒
34.         超级模拟按键<Enter>
35.         （VBScript语句） lyx=lyx+1
36.     循环结束
37.     延时XHT毫秒
38. 子程序结束,回到调用处
39. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★停★止★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
40. 子程序 【脚本停止运行】
41. 脚本停止运行
42. 子程序结束,回到调用处
43. 子程序 OnScriptExit
44.     （VBScript语句） TT="●欢迎您再次使用〖一只鱼〗随便制作的辅助工具(*^__^*)。谢谢！！"
45.     调用外部VBScript子程序 MessageBox(TT)
46. 子程序结束,回到调用处
47. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
48. //【作　者】一只鱼　　　　　　　　　　　　　　　【QQ群】5619170
49. //【E-Mail】ChapterRain@yahoo.com.cn　　　　　　【致谢】欢迎使用鱼鱼制作的插件!!
50. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
51. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//