方法一:打开窗口代码
If QQClient.Ready Then
QQClient.OpenChatWindow()
End If
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name ="frmTalker"
frm.text ="xxxx 公司聊天软件"
End If
End If
方法二:做一个计划管理,定时执行下面的代码
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name ="frmTalker"
frm.text ="xxxx 公司聊天软件"
End If
End If
方法三:
For Each frm As System.Windows.Forms.Form In Application.OpenForms
If frm.name = "frmTalker" Then
frm.text ="xxxx 公司聊天软件"
End If
Next