贴出所有和OpenQQ有关的代码包括客户端和服务端的。或者上传例子

项目事件

 

AfterOpenProject

 

Forms("QQServer").open

 

Server_UserLogging

 

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

msgbox(pts(0))

msgbox(pts(1))

Dim dr1 As DataRow

dr1 = DataTables("users").sqlFind("Group = \'" & pts(0) & "\' And Name = \'" & pts(1) & "\'")

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

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

    Return

Else

    If dr1("shifolizhi") = 1 Then

        e.Message  = "该用户已离职!" \'返回给登录者的提示信息

        Return

    End If

End If

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

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

    Return

End If

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

\'添加所有同事为好友

For Each dr2 As DataRow In DataTables("users").DataRows

    Dim nm As String =  dr2("Group") & "." & dr2("Name")

    If nm <> e.UserName Then \'如果不是登录者本人

        e.Buddies.Add(nm)

    End If

Next

 

Server_ReceivedMessage

 

If e.Message = "GetDate" Then

    e.ReturnValue = Date.Now

End If

 

Server_UserChangePassword

 

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

Dim dr As DataRow = DataTables("用户").Find("部门 = \'" & pts(0) & "\' And 姓名 = \'" & pts(1) & "\'")

If dr Is Nothing  OrElse dr("密码") <> e.OldPassword  Then

   e.ReturnMessage = "原密码不符!"

Else

    dr("密码") = e.NewPassword

    dr.Save()

   e.ReturnMessage = "OK" \'返回约定的字符,通知客户端,密码修改成功

End If

 

窗口与控件事件

 

QQServer_Button1_Click

 

QQServer.ServerIp = e.Form.Controls("IP").Value \'指定IP地址

QQServer.ServerPort = e.Form.Controls("dk").Value \'指定端口

QQServer.HeartbeatInterval = e.Form.Controls("jg").Value \'指定心跳时间

QQServer.HeartbeatTimeout = e.Form.Controls("cs").Value \'指定心跳超时时间

QQServer.Start() \'启动QQServer

 

QQServer_Button2_Click

 

QQServer.ServerIp = e.Form.Controls("IP").Value \'指定IP地址

QQServer.ServerPort = e.Form.Controls("dk").Value \'指定端口

QQServer.HeartbeatInterval = e.Form.Controls("jg").Value \'指定心跳时间

QQServer.HeartbeatTimeout = e.Form.Controls("cs").Value \'指定心跳超时时间

QQServer.Start() \'启动QQServer

 

窗口1_Button1_Click

 

QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址

 

QQClient.ServerPort = 52177  \'指定服务器端口

 

QQClient.UserName = "综合部.刘京"

 

QQClient.Password = "5201314"

 

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

贴出所有和OpenQQ有关的代码包括客户端和服务端的。或者上传例子

帮忙进服务器看下，帖子上都发给你了。。。。