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

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

盘点618年中大促中这款云服务器/VPS主机相对值得选择

昨天有在"盘点2021年主流云服务器商家618年中大促活动"文章中整理到当前年中大促618活动期间的一些国内国外的云服务商的促销活动,相对来说每年年中和年末的活动力度还是蛮大的,唯独就是活动太过于密集,而且商家比较多,导致我们很多新人不懂如何选择,当然对于我们这些老油条还是会选择的,估计没有比我们更聪明的进行薅爆款新人活动。有网友提到,是否可以整理一篇当前的这些活动商家中的促销产品。哪些商家哪款产...

ucloud国内云服务器2元/月起;香港云服务器4元/首月;台湾云服务器3元/首月

ucloud云服务器怎么样?ucloud为了扩大云服务器市场份额,给出了超低价云服务器的促销活动,活动仍然是此前的Ucloud全球大促活动页面。目前,ucloud国内云服务器2元/月起;香港云服务器4元/首月;台湾云服务器3元/首月。相当于2-4元就可以试用国内、中国香港、中国台湾这三个地域的云服务器1个月了。ucloud全球大促仅限新用户,国内云服务器个人用户低至56元/年起,香港云服务器也仅8...

HostMem,最新优惠促销,全场75折优惠,大硬盘VPS特价优惠,美国洛杉矶QuadraNet机房,KVM虚拟架构,KVM虚拟架构,2核2G内存240GB SSD,100Mbps带宽,27美元/年

HostMem近日发布了最新的优惠消息,全场云服务器产品一律75折优惠,美国洛杉矶QuadraNet机房,基于KVM虚拟架构,2核心2G内存240G SSD固态硬盘100Mbps带宽4TB流量,27美元/年,线路方面电信CN2 GT,联通CU移动CM,有需要美国大硬盘VPS云服务器的朋友可以关注一下。HostMem怎么样?HostMem服务器好不好?HostMem值不值得购买?HostMem是一家...

msn群为你推荐
宝来和朗逸哪个好朗逸 和 宝来 哪个好?等额本息等额本金哪个好等额本息与等额本金哪个划算?oppo和vivo哪个好vivo好还是oppo手机好呢?行车记录仪哪个好我想买一个24小时监控行车记录仪,哪款比较好?qq空间登录不上为什么我登不进去QQ空间willyunlee最近开了007系列的第20部电影《择日再死》,看不懂剧情,不知说什么。谁能说给我听,谢谢。dns服务器地址DNS服务地址网通dns服务器地址湖北省鄂州市葛店镇DNS服务器IP地址是多少360云盘关闭360云盘关闭个人云盘是吗?广东联通官方旗舰店联通营业厅买的号码需要多久才发货?
虚拟主机代理 虚拟主机管理软件 ip反查域名 域名解析服务器 3322免费域名 香港bgp机房 老鹰主机 主机屋免费空间 godaddy域名转出 大容量存储 html空间 英文站群 免费全能主机 国外免费asp空间 vip域名 银盘服务 香港亚马逊 阿里云官方网站 web应用服务器 西安主机 更多