（2：删除，b不能为空，c为0。）
（3：删除所有，b为0，c为0。） 
（4：读取所有QQ号，b为0，c为0。 WRini返回所有QQ号文本，如 5646445|6546544|54654654）
数据库密码：open2012
*/
Function WRini(a, b, c)
	datapath = ".\Data\Data.ini"
	Plugin.Super_INI.OpenINI ".\Data\Data.ini","open2012"
	Select Case a
		Case 0  //添加或修改QQ
		CheckQQ = Plugin.Super_INI.ReadItem("QQ库表", b, " ")
		If CheckQQ = " " Then 
			Plugin.Super_INI.WriteItem "QQ库表", b, c
			WRini = 0
			ElseIf CheckQQ <> " " Then
			If MsgBox("QQ:" & b & "已经存在,是否修改密码?", 4, "提示:") = 6 Then 
				Plugin.Super_INI.WriteItem "QQ库表", b, c
				WRini = 1
			End If
		End If
		Case 1 //读取QQ的密码
		CheckQQ = Plugin.Super_INI.ReadItem("QQ库表", b, " ")
		If CheckQQ = " " Then 
			WRini = 0
			ElseIf CheckQQ <> " " Then
			WRini = CheckQQ
		End If
		Case 2 //删除QQ
		CheckQQ = Plugin.Super_INI.ReadItem("QQ库表", b," ")
		If CheckQQ = " " Then 
			MessageBox "你要删除的QQ号不存在!"
			WRini = 0
			ElseIf CheckQQ <> " " then
			Plugin.Super_INI.WriteItem "QQ库表", b,0
			WRini = 1
		End If
		Case 3 //删除所有QQ
		WRini = Plugin.Super_INI.WriteItem ("QQ库表",0,0)
		Case 4 //读取所有QQ号
		WRini = Plugin.Super_INI.EnumItemName("QQ库表")
	End Select
	Plugin.Super_INI.CloseINI 
	Form1.InputBoxQQ号.Text = ""
	Form1.InputBoxQ密码.Text = ""
End Function


Event Form1.LoadOver //窗口载入完成后执行的子程序
Form1.InputBoxQQ号.Text = ""
Form1.InputBoxQ密码.Text = ""
If Plugin.File.ExistFile(".\Data") = 0 Then 
	Call Plugin.File.CreateFolder(AllPath & "Data")
End if
If Plugin.File.ExistFile(".\Data\Data.ini") = 0 Then
	Plugin.Super_INI.OpenINI ".\Data\Data.ini","open2012"
	Plugin.Super_INI.CloseINI 
End If
Call FindList()
IsFile = Plugin.File.IsFileExit("c:\挂机记录.ini")
If IsFile = True Then 
	Form1.InputBox位置.Text = WRjilu(1,0)
	ElseIf IsFile = False Then
	Call WRjilu(0,Form1.InputBox位置.Text)
End If
End Event

Sub FindList()
QQList = WRini(4, 0, 0)
Dim QM
QM = split(QQList, "|")
Form1.Label8.Caption = "挂机列表:(" & UBound(QM) & ")"
ii = 0
For ii = 0 To UBound(QM) - 1
If ii = 0 Then 
	QQList = QM(ii)
	Else 
	QQList = QQList & vbCrLf & QM(ii)
End If
Next
If QQList = "0" Then 
	Form1.InputBoxQQ列表.Text = ""
	ElseIf QQList <> "0" Then
	Form1.InputBoxQQ列表.Text = QQList
End If
End Sub

Event Form1.Button2.Click
Call WRjilu(0,Form1.InputBox位置.Text )
End Event

Function WRjilu(a,b)
	If a = 0 Then 
		Call Plugin.File.WriteINI("挂机记录", "位置", b , "C:\挂机记录.ini")
		WRjilu = 0
		ElseIf a = 1 Then
		WRjilu = Plugin.File.ReadINI("挂机记录", "位置", "C:\挂机记录.ini")
	End If
End Function