主题：[求助]获取openQQ登陆者表达问题

 [求助]下面代码获取openQQ“登陆者”表达有问题问题，请老师帮修改

Dim re As String = e.Form.Controls("ComboBox1").Value '获得接收用户名

Dim bm As String = e.Form.Controls("ComboBox2").Value '获得接收部门名称

Dim cn As String = e.Form.Controls("TextBox1").Value '获得发送内容

If re = "" OrElse cn = "" Then

    MessageBox.Show("信息不完整,信息无法发送!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

If re = QQClient.UserName  Then

    MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

Dim fsz As String

fsz=bm & "." &  re

QQClient.Send(fsz,cn)

e.Form.Controls("TextBox1").Value = ""

<!--EndFragment-->