服务器端

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

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

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

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

QQServer.Buildin=True \'启用内置身份验证

QQServer.Start() \'启动QQServer

客户端

If QQClient.Ready Then

    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

QQClient.ServerIP = e.Form.Controls("txtIP").Value  \'指定服务器IP地址

QQClient.ServerPort = e.Form.Controls("txtPort").Value  \'指定服务器端口

QQClient.UserName = "" \'e.Form.Controls("txcm").Value & "." & e.Form.Controls("txtUserName").Value \'指定登录用户名

QQClient.Password = "" \'e.Form.Controls("txtPassword").Value

If QQClient.Start() = True \'如果登录成功

    e.Form.Controls("btnChat").Enabled = True

    Dim msg As String =  "恭喜,OpenQQ登录成功!"

    If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息

        msg = msg & QQClient.ServerMessage

    End If

    popMessage(msg,"提示",PopiconEnum.Infomation,5)

Else \'如果登录失败,显示服务器返回错误信息

    e.Form.Controls("btnChat").Enabled = False

    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If