主题：[求助]open qq 连接问题

Dim pts() As String = e.UserName.Split(".")

MessageBox.Show(e.UserName)

if pts.length <2 then '判断长度

return

end if

Dim dr1 As DataRow

dr1 = DataTables("Users").Find("Group = '" & pts(0) & "' And Name = '" & pts(1) & "'")

If dr1 Is Nothing Then '判断此用户不存在

e.Message = "用户名错误!" '返回给登录者的提示信息

Return

End If

If dr1("Password") <> e.Password Then '如果密码错误

e.Message = "登录密码错误!" '返回给登录者的提示信息

Return

End If

e.Success = True '允许用户登录