提供各大机构考研、公务员、 四六级辅导视频课程
MSN是目前网络上广泛使用的一个即时信息交流工具(IM)笔者就常用它与同事或朋友联系但是在使用过程中发现缺乏一个群发信息的功能于是笔者寻思着自己编写一个MSN信息群发的软件在查阅了一番资料之后终于写出来了。下面大家和我一起动手来自己做一个M SN的信息群发工具。
第一步新建一个工程。启动VB选择“文件”菜单的“新建”子菜单新建一个VB工程系统回自动添加一个窗体,并且取名叫Form1。
第二步添加MSN接口的引用。点击VB的IDE环境的菜单中的工程菜单在弹出的下拉菜单中选择“引用(N). . .”子菜单。在弹出的“引用”窗体中的“可用的引用”下拉列表中找到“Messenger API Type Library”项将起前面的钩打上然后关闭“引用”窗口。
第三步设置窗体添加控件。首先在VB的工程管理器中双击Form 1打开窗体设计环境。选中窗体将它的Caption值改为“MSN消息群发”。然后在窗体上添加控件并且设置其初始属性。要添加的控件的信息见下表
名称类型Caption属性的值
Label1 Label群发对象:
Combo1 ComboBox
Check1 CheckBox只发送在线的
Label2 Label消息内容:
Text 1 TextB ox
Command1 CommandButton发送[&O]
Command2 CommandButton退出[&X]
添加完控件后调整其位置
第四步编写代码。
以下是引用片段 Dim m_MSG As New MessengerAPI.Messenger „MSN的Com对象Dim m_Groups As MessengerAPI.IMessengerGroups „MSN中的分组 Dim m_Group As
专业提供提供各大机构考研、公务员、 四六级辅导视频课
提供各大机构考研、公务员、 四六级辅导视频课程
MessengerAPI.IMessengerGroup „MSN 中组的内容 Dim m_Contracts AsMessengerAPI.IMessengerContacts „MSN中的所有的好友的信息 Dim m_Contract AsMessengerAPI.IMessengerContact „MSN 中每个好友对象的内容 Private SubCommand1_Click() Dim i As Integer ‟检测需要发送的信息是否合法 IfTrim(Text1.Text) = ““ Then MsgBox “发送的信息不能为空!”,VBInformation, “提示”Text1.SetFocus Exit Sub End If ‟判断消息的发送对象是全部好友还是某个组的成员 If Combo1.ListIndex = 0 Then Set m_Contracts =m_MSG.MyContactsElse Set m_Groups = m_MSG.MyGroups Set m_Group =m_Groups.Item(Combo1.ListIndex - 1) Set m_Contracts =m_Group.Contacts EndIf ‟遍历要发送的对象,发送信息 For i = 0 To m_Contracts.Count - 1 Setm_Contract=m_Contracts.Item(i) If Check1.Value=1 Then If m_Contract.Status=2Then m_MSG.InstantMessage m_Contract „打开要发送的好友窗体 DoEventsSendKeys Text1.Text „写入信息 DoEvents SendKeys “{enter}” „发送出信息DoEvents SendKeys “%{F4}” „关闭好友窗口 End If Elsem_MSG.InstantMessage m_Contract DoEvents Send
考研屋www.kaoyanwu.c om提供各大机构考研、公务员、 四六级辅导视频课程
专业提供提供各大机构考研、公务员、 四六级辅导视频课
vpsdime怎么样?vpsdime是2013年成立的国外VPS主机商,以大内存闻名业界,主营基于OpenVZ和KVM虚拟化的Linux套餐,大内存、10Gbps大带宽、大硬盘,有美国西雅图、达拉斯、新泽西、英国、荷兰机房可选。在上个月搞了一款达拉斯Linux系统VPS促销,详情查看:vpsdime夏日促销活动,美国达拉斯vps,2G内存/2核/20gSSD/1T流量,$20/年,此次推出一款Wi...
快云科技已稳步运行进两年了 期间没出现过线路不稳 客户不满意等一系列问题 本司资质齐全 持有IDC ICP ISP等正规手续 有独特的网站设计理念 在前几天刚是参加过魔方系统举行的设计大赛拿获最佳设计奖第一名 本公司主营产品 香港弹性云服务器,美国vps和日本vps,香港物理机,国内高防物理机以及美国日本高防物理机 2020年的国庆推出过一款香港的回馈用户特惠机 已作为传家宝 稳定运行 马上又到了...
wordpress简洁英文主题,wordpress简洁通用大气的网站风格设计 + 更适于欧美国外用户操作体验,完善的外贸企业建站功能模块 + 更好的移动设备特色模块支持,更高效实用的后台自定义设置 + 标准高效的代码程序功能结构,更利于Goolge等国际搜索引擎的SEO搜索优化和站点收录排名。点击进入:wordpress简洁通用型高级外贸主题主题价格:¥3980 特 惠 价:¥1280安装环境:运...