自己动手做个MSN信息群发软件

原创 2004年01月07日 11:21:00

MSN是目前网络上广泛使用的一个即时信息交流工具(IM),笔者就常用它与同事或朋友联系,但是在使用过程中发现缺乏一个群发信息的功能,于是笔者寻思着自己编写一个MSN信息群发的软件,在查阅了一番资料之后,终于写出来了。下面大家和我一起动手来自己做一个MSN的信息群发工具。

第一步:新建一个工程。启动VB,选择“文件”菜单的“新建”子菜单新建一个VB工程,系统回自动添加一个窗体,并且取名叫Form1

第二步:添加MSN接口的引用。点击VBIDE环境的菜单中的工程菜单,在弹出的下拉菜单中选择“引用(N...”子菜单。在弹出的“引用”窗体中的“可用的引用”下拉列表中找到“Messenger API Type Library 项,将起前面的钩打上,然后关闭“引用”窗口。参见图1

1

第三步:设置窗体,添加控件。首先在vb的工程管理器中双击Form1,打开窗体设计环境。选中窗体,将它的Caption值改为“MSN消息群发”。然后在窗体上添加控件,并且设置其初始属性。要添加的控件的信息见下表:

名称

类型

Caption属性的值

Label1

Label

群发对象:

Combo1

ComboBox

 

Check1

CheckBox

只发送在线的

Label2

Label

消息内容:

Text1

TextBox

 

Command1

CommandButton

发送[&O]

Command2

CommandButton

退出[&X]

       添加完控件后调整其位置,最后形成图2的效果:

第四步:编写代码。

Dim m_MSG As New MessengerAPI.Messenger             'MSNCom对象

Dim m_Groups As MessengerAPI.IMessengerGroups       'MSN中的分组

Dim m_Group As MessengerAPI.IMessengerGroup         'MSN中组的内容

Dim m_Contracts As MessengerAPI.IMessengerContacts  'MSN中的所有的好友的信息

Dim m_Contract As MessengerAPI.IMessengerContact    'MSN中每个好友对象的内容

 

Private Sub Command1_Click()

    Dim i As Integer

    '检测需要发送的信息是否合法

    If Trim(Text1.Text) = "" Then

        MsgBox "发送的信息不能为空!", vbInformation, "提示"

        Text1.SetFocus

        Exit Sub

    End If

    '判断消息的发送对象是全部好友还是某个组的成员

    If Combo1.ListIndex = 0 Then

        Set m_Contracts = m_MSG.MyContacts

    Else

        Set m_Groups = m_MSG.MyGroups

        Set m_Group = m_Groups.Item(Combo1.ListIndex - 1)

        Set m_Contracts = m_Group.Contacts

    End If

    '遍历要发送的对象,发送信息

    For i = 0 To m_Contracts.Count - 1

        Set m_Contract = m_Contracts.Item(i)

        If Check1.Value = 1 Then

            If m_Contract.Status = 2 Then

                m_MSG.InstantMessage m_Contract     '打开要发送的好友窗体

                DoEvents

                SendKeys Text1.Text                 '写入信息

                DoEvents

                SendKeys "{enter}"                  '发送出信息

                DoEvents

                SendKeys "%{F4}"                    '关闭好友窗口

            End If

        Else

            m_MSG.InstantMessage m_Contract

            DoEvents

            SendKeys Text1.Text

            DoEvents

            SendKeys "{enter}"

            DoEvents

            SendKeys "%{F4}"

        End If

    Next i

    '成功发送完毕信息

    If MsgBox("发送完毕!是否清空消息?", vbInformation + vbYesNo, "提示") = vbYes Then

        Text1.Text = ""

        Text1.SetFocus

    Else

        Text1.SetFocus

    End If

   

End Sub

 

Private Sub Command2_Click()

    Unload Me

    End

End Sub

 

'初始化控件

Private Sub Form_Load()

    Dim i As Integer

    '初始化发送对象的下拉框

    Set m_Groups = m_MSG.MyGroups

    With Combo1

        .AddItem "全部的组"

        For i = 0 To m_Groups.Count - 1

            Set m_Group = m_Groups.Item(i)

            .AddItem m_Group.Name

        Next i

        .ListIndex = 0

    End With

   

End Sub

 

'释放变量

Private Sub Form_Unload(Cancel As Integer)

    Set m_MSG = Nothing

    Set m_Groups = Nothing

    Set m_Group = Nothing

    Set m_Contracts = Nothing

    Set m_Contract = Nothing

End Sub

       第五步:编译运行。选择“文件”菜单的生成“工程1.exe”菜单项,一个属于你的MSN信息群发软件就完成了。运行这个exe界面如下:

本例的源程序大家可以到如下地址下载:http://www.ly800.com/soft/MsnGS.rar
欢迎大家和我一起来讨论,我的电子邮件:root@ly800.com

QQ群发软件开发一

QQ群发软件开发: 一先确定开发方向,群发无非就是要让QQ自动发送。要实现这类运用有二个主要方式,一是通过协议就是直接按照QQ协议给服务器发信息,二是通控制QQ客户端,模拟人工发送的方式来发送。...
  • mariolin
  • mariolin
  • 2015年02月07日 17:33
  • 1128

怎么自己制作U盘启动软件

U盘启动电脑安装操作系统的方法: 1.下载一个U盘pe安装程序,这个有很多,有老毛桃,大白菜等等。建议新手用大白菜pe系统,因它更新快(后面的将以大白菜为例),而且pe文件是隐藏在隐藏分区中的,不会...
  • dzswalmm
  • dzswalmm
  • 2013年12月05日 15:51
  • 173

自己动手写操作系统(五)

这里开始就进入了core的启动流程(类似于linux的kernel)。core的入口函数是start_core,如何定义如何函数呢?我们这里通过编译指令就可以了。参看下面的配置文件: ENTRY (...
  • wang_sun_1983
  • wang_sun_1983
  • 2017年07月16日 21:37
  • 341

《自己动手写操作系统》—— 工作环境搭建

最近在看《自己动手写操作系统》 于渊著,看第一页头就蒙了,书上说要准备一张空白软盘,都2010年了,上哪去找软盘啊,自从接触计算机以来我还没见过软盘呢,估计要到科技博物馆才找得到吧,呵呵。其实在第二章...
  • feixiaku
  • feixiaku
  • 2014年07月14日 00:32
  • 3059

微信公众号模板消息群发代码示例

微信模板消息只能发给一个人.如果要群发,需要通过php循环.依次发送. 注意,如果模板消息发信息时有时无,不稳定,可能你的access_token令牌更新缓存不及时,过期了.可以根据日志文件查看.建...
  • viqecel
  • viqecel
  • 2016年12月29日 11:20
  • 4224

《自己动手设计数据库》第一部分摘录

《自己动手设计数据库》第一部分摘录,简略了很多内容,仅作为笔记使用
  • YQXLLWY
  • YQXLLWY
  • 2016年10月21日 15:56
  • 1067

自己动手写操作系统(一)

从去年就想好好的读一下这本书,跟着书上做一下,但是给耽搁了,现在就好好的开始探索这么书吧! 虽然我很想在这里吹一段这本书有多么的厉害,但是!我第一章都没有看完,吹不了!!!等我读的个七七八八再回来吹吧...
  • YuDale
  • YuDale
  • 2017年03月24日 21:11
  • 681

自己动手设计数据库_自己动手设计数据库.pdf 免费下载

下载地址: 自己动手设计数据库_自己动手设计数据库.pdf
  • jiongyi1
  • jiongyi1
  • 2018年01月08日 19:45
  • 99

outlook现在可以接收msn邮件了

您可以使用 POP3 (POP3(即 Post Office Protocol 3)是一种用于从邮件服务器检索电子邮件的协议。) 服务器将您的 Windows Live Hotmail 帐户添加到 M...
  • longzhiwen888
  • longzhiwen888
  • 2015年06月19日 15:46
  • 2325

想下载自己动手写操作系统PDF 于渊 70M 超清晰版 part 1 of 5 的朋友注意啦

原链接年久失效,请转到115网盘下载完整PDF书,http://115.com/file/dp7nifwi
  • goshja
  • goshja
  • 2012年03月13日 22:58
  • 2347
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自己动手做个MSN信息群发软件
举报原因:
原因补充:

(最多只允许输入30个字)