明日学院
课程
读书
社区
课程
VIP会员
VIP会员
VB答疑区
+关注
已有23人关注
+发表新帖
所属版块： VB答疑区
caohaibo
学分:0
+关注
私信
立即签到
vb案例精选办公自动化系统中的短消息不能用
发表在VB答疑区 2007-01-17
是否精华 是 否
版块置顶: 是 否
ＶＢ案例精选中的办公自动化系统中的短消息功能不能用，在windows信使服务自动开启的情况下，也是不能正常发送消息。请老师指导一下
分享到：
关注
 回复
支持(0)
反对(0)
精彩评论 2
sd3794419
学分：0 LV1
+关注 私信
2007-01-18
沙发
您好,请您将FrmAC_QQ窗体中Private Sub cmdSend_Click()事件代码修改为如下内容即可
     Dim ToName() As Byte
     Dim FromName() As Byte
     Dim Msg() As Byte
     
     ToName = Trim(TxtCmpName.Text) & vbNullChar
     FromName = Trim(txtFromName.Text) & vbNullChar
     Msg = txtMemo.Text & vbNullChar
     NetMessageBufferSend ByVal 0&, ToName(0), ByVal 0&, Msg(0), UBound(Msg)
 回复
支持(0)
反对(0)
caohaibo
学分：0 LV1
+关注 私信
2007-01-18
板凳
谢谢老师，问题已经解决！
 回复
支持(0)
反对(0)
首页上一页 1 下一页尾页 2 条记录 1/1页
手机同步功能介绍
友情提示：以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照