1. 注释：Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "如果以自动生成标题则标题无需输入", "0000FF")
2. 用户定义变量 ww=DropList{"是":"1"|"否":"2"}=2 "是否自动产生名称？"
3. 令 ea = "运行时异常"
4. 令 eb = "运行正常"
5. 用户定义变量 a1=DropList{"是":"1"|"否":"2"}=2 "a是否按？"
6. 用户定义变量 a2=DropList{"是":"1"|"否":"2"}=2 "s是否按？"
7. 用户定义变量 a3=DropList{"是":"1"|"否":"2"}=2 "d是否按？"
8. 用户定义变量 a4=DropList{"是":"1"|"否":"2"}=2 "f是否按？"
9. 用户定义变量 a5=DropList{"是":"1"|"否":"2"}=2 "c是否按？"
10. 用户定义变量 a6=DropList{"是":"1"|"否":"2"}=2 "q是否按？"
11. 用户定义变量 m=DropList{"是":"1"|"否":"2"}=2 "是否隐藏？"
12. 用户定义变量 jian=200 "间隔时间（毫秒）"
13. 注释：UserVar b="在此输入" "标题,例如：“QQ三国1.0Beta27Build3 火烧藤甲 2线”"
14. 如果 ww = 1 则
15.     注释： UserVar cc="QQ三国1.0Beta27Build3" "QQ三国版本"
16.     注释：UserVar aa "几线？(输入数字，例如：1线填“1”)"
17.     注释：UserVar bb "服务器名称"
18.     令 b = cc & " " & bb & " " & aa & "线 "
19.     调用 Msg.ShowScrTXT(0,0,1024,768,"标题名称为：" & b,"0000FF")
20.     延时 200 毫秒
21. 条件结束
22. 调用 Msg.Tips("作者：lvxiangyu11感谢支持!邮箱：lvxiangyu111@sohu.com")
23. 令 a = Window.Find("QQSGWinClass",b)
24. 如果 a > 0 则
25.     调用 Media.Beep(1976,200)
26.     调用 Msg.ShowScrTXT(0,0,1024,768,"已找到句柄" & a,"0000FF")
27.     跳转到标记 z
28. 否则
29.     调用 Media.Beep(262,400)
30.     弹出窗口 "未找到句柄"
31.     跳转到标记 o
32. 条件结束
33. 标记 z
34. 如果 m = 1 则
35.     调用 Window.Hide(a)
36.     调用 Msg.Tips("影藏" & a)
37. 条件结束
38. 跳转到标记 x
39. 标记 x
40. 如果 a1 = 1 则
41.     调用 Bkgnd.KeyPress(a,65)
42. 条件结束
43. 如果 a2 = 1 则
44.     调用 Bkgnd.KeyPress(a,83)
45. 条件结束
46. 如果 a3 = 1 则
47.     调用 Bkgnd.KeyPress(a,68)
48. 条件结束
49. 如果 a4 = 1 则
50.     调用 Bkgnd.KeyPress(a,70)
51. 条件结束
52. 如果 a5 = 1 则
53.     调用 Bkgnd.KeyPress(a,67)
54. 条件结束
55. 如果 a6 = 1 则
56.     调用 Bkgnd.KeyPress(a,81)
57. 条件结束
58. 如果 a5 = 1 则
59.     调用 Bkgnd.KeyPress(a,67)
60. 条件结束
61. 令 qw = Sys.GetDateTime()
62. 如果 qw = "2011-07-06 22:50:00" 则
63.     调用 Media.Beep(1760,2000)
64.     调用 Sys.ExitOS(1)
65. 条件结束
66. 如果 qw2 = qw 则
67. 否则
68.     调用 File.WriteFileEx("C:\运行.txt",qw & eb)
69. 条件结束
70. 令 qw2 = qw
71. 调用 Msg.ShowScrTXT(0,0,1024,768,qw & "，运行正常","0000FF")
72. 跳转到标记 e
73. 标记 e
74. 延时 100 毫秒
75. 跳转到标记 j
76. 标记 j
77. 令 s = Window.Find("QQSGWinClass",b)
78. 如果 s > 0 则
79.     跳转到标记 x
80. 否则
81.     令 qw1 = Sys.GetDateTime()
82.     弹出窗口 "没找到，或已关闭"
83.     跳转到标记 o
84. 条件结束
85. 标记 o
86. 令 qw1 = Sys.GetDateTime()
87. 调用 Media.Beep(262,400)
88. 调用 Msg.HideScrTXT()
89. 调用 Msg.ShowScrTXT(0,0,1024,768,qw1 & "，运行时异常，脚本结束","0000FF")
90. 调用 File.WriteFileEx("C:\运行.txt",qw1 & "，运行时异常，脚本结束")
91. 调用 Msg.Tips(b)
92. 调用 Msg.Tips("作者：lvxiangyu11感谢支持!")
93. 脚本停止运行