窗体用VB设计MSN信息群发软件

msn群  时间:2021-01-25  阅读:()

提供各大机构考研、公务员、 四六级辅导视频课程

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提供各大机构考研、公务员、 四六级辅导视频课程

专业提供提供各大机构考研、公务员、 四六级辅导视频课

vdsina:俄罗斯VPS(datapro),6卢布/天,1G内存/1核(AMD EPYC 7742)/5gNVMe/10T流量

今天获得消息,vdsina上了AMD EPYC系列的VDS,性价比比较高,站长弄了一个,盲猜CPU是AMD EPYC 7B12(经过咨询,详细CPU型号是“EPYC 7742”)。vdsina,俄罗斯公司,2014年开始运作至今,在售卖多类型VPS和独立服务器,可供选择的有俄罗斯莫斯科datapro和荷兰Serverius数据中心。付款比较麻烦:信用卡、webmoney、比特币,不支持PayPal...

港云网络(¥1/月活动机器),香港CN2 4核4G 1元/月 美国CN2

港云网络官方网站商家简介港云网络成立于2016年,拥有IDC/ISP/云计算资质,是正规的IDC公司,我们采用优质硬件和网络,为客户提供高速、稳定的云计算服务。公司拥有一流的技术团队,提供7*24小时1对1售后服务,让您无后顾之忧。我们目前提供高防空间、云服务器、物理服务器,高防IP等众多产品,为您提供轻松上云、安全防护。点击进入港云网络官方网站港云网络中秋福利1元领【每人限量1台】,售完下架,活...

ftlcloud(超云)9元/月,1G内存/1核/20g硬盘/10M带宽不限/10G防御,美国云服务器

ftlcloud怎么样?ftlcloud(超云)目前正在搞暑假促销,美国圣何塞数据中心的云服务器低至9元/月,系统盘与数据盘分离,支持Windows和Linux,免费防御CC攻击,自带10Gbps的DDoS防御。FTL-超云服务器的主要特色:稳定、安全、弹性、高性能的云端计算服务,快速部署,并且可根据业务需要扩展计算能力,按需付费,节约成本,提高资源的有效利用率。点击进入:ftlcloud官方网站...

msn群为你推荐
腾讯空间首页手机QQ空间首页从哪里进入!麒麟990和骁龙865哪个好骁龙八65和麒麟990谁强一点?手动挡和自动挡哪个好手动档与自动档哪个好?三国游戏哪个好玩哪款三国游戏最好玩`!dnf魔枪士转职哪个好魔枪转职哪个适合搬砖美国国际东西方大学美国新常春藤大学有哪些?群空间登录群空间怎么进去?飞信空间登录飞信客户端空间登录 飞信绿色版历史记录qq网盘在哪里QQ网盘在哪??????dns服务器未响应网络dns服务器未响应要怎么解决
域名主机 域名升级访问 工信部域名备案 google镜像 singlehop fastdomain 搜狗抢票助手 1g内存 东莞数据中心 33456 江苏双线服务器 监控服务器 东莞服务器托管 lamp兄弟连 注册阿里云邮箱 主机返佣 免费php空间 nnt shuangcheng 碳云 更多