lugin.Msg.ShowScrTXT(0, 0, 1024, 768, "如果以自动生成标题则标题无需输入", "0000FF")
UserVar ww=DropList{"是":"1"|"否":"2"}=2 "是否自动产生名称？"
ea = "运行时异常"
eb="运行正常"
UserVar a1=DropList{"是":"1"|"否":"2"}=2 "a是否按？"
UserVar a2=DropList{"是":"1"|"否":"2"}=2 "s是否按？"
UserVar a3=DropList{"是":"1"|"否":"2"}=2 "d是否按？"
UserVar a4=DropList{"是":"1"|"否":"2"}=2 "f是否按？"
UserVar a5=DropList{"是":"1"|"否":"2"}=2 "c是否按？"
UserVar a6=DropList{"是":"1"|"否":"2"}=2 "q是否按？"
UserVar m=DropList{"是":"1"|"否":"2"}=2 "是否隐藏？"
UserVar jian=200 "间隔时间（毫秒）"
//UserVar b="在此输入" "标题,例如：“QQ三国1.0Beta27Build3 火烧藤甲 2线”"
If ww = 1 Then 
//	UserVar cc="QQ三国1.0Beta27Build3" "QQ三国版本"
//UserVar aa "几线？(输入数字，例如：1线填“1”)"
//UserVar bb "服务器名称"
b = cc &  " "&bb&" "& aa & "线 "
    Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "标题名称为："&b, "0000FF")
    Delay 200
End If
Call Plugin.Msg.Tips("作者：lvxiangyu11感谢支持!邮箱：lvxiangyu111@sohu.com")
a = Plugin.Window.Find("QQSGWinClass", b)
If a > 0 Then 
    Call Plugin.Media.Beep(1976, 200)
    Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "已找到句柄"&a, "0000FF")
    goto z
else
    Call Plugin.Media.Beep(262, 400)
    MessageBox "未找到句柄"
    Goto o
End If
Rem z
If m = 1 Then 
    Call Plugin.Window.Hide(a)
    Call Plugin.Msg.Tips("影藏" & a)
End If
Goto x
Rem x
If a1 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 65)
End If
If a2 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 83)
End If
If a3 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 68)
End If
If a4 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 70)
End If
If a5 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 67)
End If
If a6 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 81)
End If
If a5 = 1 Then 
    Call Plugin.Bkgnd.KeyPress(a, 67)
End If
qw = Plugin.Sys.GetDateTime()
If qw = "2011-07-06 22:50:00" Then
	Call Plugin.Media.Beep(1760, 2000)
	Call Plugin.Sys.ExitOS(1)
End If
If qw2 = qw Then 
	Else 
	Call Plugin.File.WriteFileEx("C:\运行.txt", qw&eb)
End If
qw2=qw
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, qw & "，运行正常", "0000FF")
Goto e
Rem e
Delay 100
Goto j
Rem j
s= Plugin.Window.Find("QQSGWinClass", b)
If s > 0 Then 
    goto x
Else 
    qw1 = Plugin.Sys.GetDateTime()
    MessageBox "没找到，或已关闭"
    goto o
End If
Rem o
    qw1 = Plugin.Sys.GetDateTime()
Call Plugin.Media.Beep(262, 400)
Call Plugin.Msg.HideScrTXT()
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, qw1 & "，运行时异常，脚本结束", "0000FF")
Call Plugin.File.WriteFileEx("C:\运行.txt", qw1 & "，运行时异常，脚本结束")
Call Plugin.Msg.Tips(b)
Call Plugin.Msg.Tips("作者：lvxiangyu11感谢支持!")
EndScript