用VB设计MSN信息群发软件

MSN是目前互联网上广泛使用的即时通讯工具(IM)。我经常用它联系同事或者朋友，但是在使用的过程中，我发现自己缺少群发消息的功能，于是就想着在MSN里写一个群发消息的软件。查阅了一些资料，终于写了出来。让我们一起来做一个MSN消息发送工具吧。

步骤1:构建一个新项目。启动VB，选择“文件”菜单的“新建”子菜单，创建一个新的VB项目。系统将自动添加一个表单，并将其命名为Form1。

第二步:添加MSN接口的引用。单击VB IDE环境菜单中的项目菜单，选择“引用(n)...弹出式下拉菜单中的子菜单。在弹出的“References”表单的“Available References”下拉列表中找到“Messenger API Type Library”项，在前面打勾，然后关闭“References”窗口。

步骤3:设置表单并添加控件。首先在VB的项目管理器中双击Form1，打开表单设计环境。选择该表单，并将其标题值更改为MSN Message Mass Sending。然后在窗体上添加一个控件，并设置其初始属性。有关要添加的控件的信息，请参见下表:

名称标题属性的值。

标签1标签组发送对象:

组合框1

1复选框仅在线发送

2标签消息内容:

文本1文本框

1命令按钮发送[&O]

2命令按钮退出[&X]

添加控件后调整控件的位置，

第四步:写代码。

下面是引用的片段:
Dim M _ msgasnewmessenger API的Com对象. Messenger ' MSN
groups in Dim M _ groups as Messenger API . imessage groups ' MSN
Content of groups in Dim M _ Group as Messenger API。imessagegroup的MSN
Dim M _ Contracts中所有好友的信息作为Messenger API。imessagecontacts的MSN
dim m _ contract中每个friend对象的内容作为messenger API。imessage contact ' MSN
private子命令1 _ click()
dim I as integer
检查要发送的信息是否合法
if trim (text1.text) = " "那么
msgbox "要发送的信息不能是空！"，VBInformation，" Prompt "/br/]text 1 . setfocus
exit sub
end if
'确定消息是发送给所有好友还是某个群的成员
if combo 1 . listindex = 0然后
Set m_Contracts = m_MSG。my contacts
Else
Set m _ Groups = m _ MSG。my Groups
Set m _ Group = m _ Groups。项目(组合1。ListIndex-1)[/Br/]set m _ contracts = m _ group . contacts[/Br/]end if[/Br/]'遍历要发送的对象， 将I = 0的消息
发送到m _ contracts . count-1
set m _ contracts = m _ contracts . item(I)
If check 1 . value = 1然后
If _ contract . status = 2然后
m _ msg.instant message '打开要发送的好友表单
do events
sendkeytext 1 . text ' Write information
do events
SendKeys " { enter }“” instant message m _ Contract
do events
SendKeys text 1。text
DoEvents
SendKeys " { enter } "
DoEvents
SendKeys " % { F4 } "
end If
next I
'成功发送信息
If MsgBox(" send！清除空消息？”，vbInformation + vbYesNo，" hint ")= vbyethen
text 1 . text = " "
text 1 . setfocus
else
text 1 . setfocus
End if
End Sub
private command 2 _ Click()
unload me
End Sub
'初始化控件
private subform _ Load()
Dim I为i = 0到m_Groups添加item“所有组”
。count-1
Set m _ Group = m _ Groups。第(一)项
。AddItem m_Group。名字
下一个我
。ListIndex = 0
End
End Sub
' release variable
private Sub form _ unload(cancel as integer)
Set m _ msg = Nothing
Set m _ Group = Nothing
Set m _ Contracts = Nothing
Set m _ Contract = Nothing
End Sub

第五步:编译运行。在“文件”菜单中选择“Project 1.exe”菜单项，一个属于你的MSN消息群软件就完成了。