Call WRjilu(0, 记录)
		Call Plugin.File.WriteFileEx(AllPath & "Log.txt",Plugin.Sys.GetDateTime()&"  QQ号:"& QQ号 & "  密码错误。")
		Hwnd = Plugin.Window.Find("TXGuiFoundation", "QQ2012")
		Call Plugin.Window.Close(Hwnd)
		If CInt(记录) <= CInt(QQ总数) And Check数量 < 数量 Then 
			Call start()
			ElseIf CInt(记录) > CInt(QQ总数) Then
			again = 0
		End If
	Else 
	Hwnd = Plugin.Window.Find("TXGuiFoundation", "QQ2012")
	Call Plugin.Window.Hide(Hwnd)
	记录 = 记录 + 1
	Call WRjilu(0, 记录)
	If CInt(记录) >= QQ总数 And 循环 = 1 Then 
		Call Plugin.File.WriteFileEx(AllPath & "Log.txt",Plugin.Sys.GetDateTime()&"  重置记录到1,开始循环。")
		记录 = 1
		Call WRjilu(0, 记录)
	End If
	句柄(Check数量) = Hwnd
	Check数量 = Check数量 + 1
	If CInt(记录) <= CInt(QQ总数) And Check数量 < 数量 Then 
		Call start()
		ElseIf CInt(记录) > CInt(QQ总数) Then
		again = 0
	End If
	End If
End Sub




tmptime = 0
For 挂机时长
If 挂机时长 Mod 30 = 0 Then 
	Call Plugin.Msg.Tips("挂机时间还剩余：" & 挂机时长-tmptime & "秒!")
End If
	Delay 1000
	tmptime = tmptime +1
Next
Call Plugin.Msg.Tips("")
tt = 0
For tt = 0 To 9
If 句柄(tt) <> "" Then 
	Call Plugin.Window.Close(句柄(tt))
End If
TracePrint "挂机QQ句柄："&句柄(tt)
Delay 1000
Next
Erase 句柄
If again = 0 Then 
	Call Plugin.File.WriteFileEx(AllPath & "Log.txt", Plugin.Sys.GetDateTime() & "  挂机结束...")
	EndScript
	ElseIf again = 1 Then
	RestartScript 
End If
 
Event Form1.Button添加修改.Click  //添加QQ号数据库
datapath = ".\Data\Data.ini"
QQ = Form1.InputBoxQQ号.Text
MM = Form1.InputBoxQ密码.Text
If QQ = "" or MM = "" Then 
	MessageBox "QQ号和密码不能为空！"
	Else 
	Call WRini(0, QQ, MM)
	Call FindList()
End If
End Event

Event Form1.Button删除.Click //单个删除按钮
datapath = ".\Data\Data.ini"
QQ = Form1.InputBoxQQ号.Text
MM = Form1.InputBoxQ密码.Text
If QQ = "" Then 
	MessageBox "请输入你要删除的QQ号。"
	ElseIf QQ <> "" Then
	Call WRini(2, QQ, 0)
	Call FindList()
End If
End Event

Event Form1.Button清空.Click //删除所有按钮
If MsgBox("即将清空所有QQ.", 1, "提示：") = 1 Then 
	Call WRini(3, 0, 0)
	Call FindList()
End If
End Event

Event Form1.Button1.Click //路径选择按钮
tmp=Plugin.File.SelectFile()
If tmp <> "" Then 
	Form1.InputBoxQQpath.Text = tmp
End If
End Event


/*对数据库操作，a传递操作类型，b传递QQ号，c传递QQ密码；
a的参数有:
（0:表示添加或修改，b，c传递不能为空 ）
（1：表示读取密码 b不能为空，c为0；WRini 返回密码文本，QQ号不存在返回空文本）