登陆项目依然用内置加密方式的数据表
登陆openQQ用“用户”表
保持两者密码一致就好了
afteropenproject————————————————————
Dim dr As DataRow = DataTables("用户").Find("姓名 = '" & User.Name & "'")
QQClient.ServerIP = "192.168.1.108"
QQClient.ServerPort = 52177
QQClient.UserName = dr("部门") & "." & dr("姓名")
QQClient.Password = dr("密码")
If QQClient.Start() = True '如果登录成功
Dim msg As String = "欢迎使用OpenQQ!"
If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
msg = msg & QQClient.ServerMessage
End If
popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
加好友 
发短信
Post By：2015/11/26 9:40:00 [显示全部帖子]
