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

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

特网云57元,香港云主机 1核 1G 10M宽带1G(防御)

特网云官網特网云服务器在硬件级别上实现云主机之间的完全隔离;采用高端服务器进行部署,同时采用集中的管理与监控,确保业务稳定可靠,搭建纯SSD架构的高性能企业级云服务器,同时采用Intel Haswell CPU、高频DDR4内存、高速Sas3 SSD闪存作为底层硬件配置,分钟级响应速度,特网云采用自带硬防节点,部分节点享免费20G防御,可实现300G防御峰值,有效防御DDoS、CC等恶意攻击,保障...

创梦网络-四川一手资源高防大带宽云服务器,物理机租用,机柜资源,自建防火墙,雅安最高单机700G防护,四川联通1G大带宽8.3W/年,无视UDP攻击,免费防CC

? ? ? ?创梦网络怎么样,创梦网络公司位于四川省达州市,属于四川本地企业,资质齐全,IDC/ISP均有,从创梦网络这边租的服务器均可以****,属于一手资源,高防机柜、大带宽、高防IP业务,另外创梦网络近期还会上线四川联通大带宽,四川联通高防IP,一手整CIP段,四川电信,联通高防机柜,CN2专线相关业务。成都优化线路,机柜租用、服务器云服务器租用,适合建站做游戏,不须要在套CDN,全国访问快...

racknerd:美国大硬盘服务器,$599/月,Ryzen7-3700X/32G内存/120gSSD+192T hdd

racknerd当前对美国犹他州数据中心的大硬盘服务器(存储服务器)进行低价促销,价格跌破眼镜啊。提供AMD和Intel两个选择,默认32G内存,120G SSD系统盘,12个16T HDD做数据盘,接入1Gbps带宽,每个月默认给100T流量,5个IPv4... 官方网站:https://www.racknerd.com 加密数字货币、信用卡、PayPal、支付宝、银联(卡),可以付款! ...

msn群为你推荐
麒麟820和980哪个好骁龙820和麒麟970哪个更强?网页传奇哪个好玩求最好玩的网页传奇?云盘哪个好网络云盘哪个好用牡丹江教育云空间登录请问一下校园云空间的登录方式有哪些?辽宁联通网上营业厅辽宁省昌图县联通网上营业厅通话单怎么查询电信10000宽带测速电信宽带最多有几兆的网速?360云盘关闭360云盘关闭个人云盘是吗?广东联通网上营业厅中国联通网上营业厅怎么登陆便宜好用的手机什么牌子的手机好用又便宜车展买车便宜吗车展买车便宜吗?
私服服务器租用 免费域名申请 ion parseerror 线路工具 e蜗 qingyun 炎黄盛世 吉林铁通 根服务器 双线asp空间 西安服务器托管 韩国代理ip 免费asp空间申请 镇江高防 hdroad 学生机 symantec 阿里云宕机故障 德国代理 更多