在Visual FoxPro中操作MSN
作者：张洪举 Microsoft Visual FoxPro MVP
作者：张洪举 Microsoft Visual FoxPro MVP
注：此文章摘自作者的〈Visual FoxPro 6.0-9.0解决方案与范例大全〉图书
目录
概述
Messenger注册
Messenger注销
获取Messenger中的联系人信息
打开与指定联系人的对话窗口
打开MSN Messenger窗口
打开邮件窗口
发送文件
获得当前MSN Messenger设置
使用Windows Scripting Host向活动窗口发送指令
概述
Messenger注册
Messenger注销
获取Messenger中的联系人信息
打开与指定联系人的对话窗口
打开MSN Messenger窗口
打开邮件窗口
发送文件
获得当前MSN Messenger设置
使用Windows Scripting Host向活动窗口发送指令
可以使用“Messenger.UIAutomation.1”字符串建立对Messenger的对象引用。进行Messenger注册分为自动注册和按指定用户注册两种形式，参考下列代码：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.AutoSignin() &&自动注册
oMSN.Signin(0,"tom@hotmail.com","mypassword") &&按指定用户tom@hotmail.com进行注册，密码为“mypassword”
可以使用Signout方法注销当前用户，参考下列代码：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.Signout() &&注销当前用户
在Messenger的MyContacts.Count中保存着当前用户的联系人数目，可以通过Item属性来检索每个联系人的信息，参考下列代码：
ACTIVATE SCREEN
CLEAR
?"显示名称 注册名称 当前状态 家庭电话 工作电话 移动的话"
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
nCount = oMSN.MyContacts.Count
FOR i = 0 TO nCount -1 &&查找所有联系人的信息 lcUserName =
MSN.MyContacts.Item(i).FriendlyName &&在MSN中的显示名称
lcEmailName = oMSN.MyContacts.Item(i).SignInName &&进行MSN注册时的用户名称，应当是一个邮箱地址
lnStatus = oMSN.MyContacts.Item(i).Status &&用户状态：1-脱机、2-正常连机、10-忙碌、18-离开
lcHomePh = oMSN.MyContacts.Item(i).PhoneNumber(0) &&家庭电话
lcWorkPh = oMSN.MyContacts.Item(i).PhoneNumber(1) &&工作电话
lcMobilePh = oMSN.MyContacts.Item(i).PhoneNumber(2) &&移动电话
?lcUserName+" | "+lcEmailName+" | "+STR(lnStatus)+" | "+lcHomePh+" | "+lcWorkPh+"
| "+lcMobilePh
ENDFOR
可以使用InstantMessage( )方法打开与指定联系人的对话窗口，打开对话窗口后，还可以使用AddContact()邀请其他联系人加入对话，参考下列代码：
oWindow = oMSN.InstantMessage("tom@hotmail.com") &&打开与tom@hotmail.com的对话窗口
oWindow.AddContact("ken@msn.com") &&邀请其他联系人加入对话
?oWindow. Contacts.Count &&返回对话联系人的数目
oWindow.Close() &&关闭对话窗口
可以通过Messenger的Window属性来获得对MSN Messenger窗口的引用，并通过Show( )方法来显示窗口，参考下列代码：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.Window
oWindow.Show() &&显示MSN Messenger窗口
?oWindow.Height &&返回窗口的高度 oWindow.Close() &&关闭窗口
可以使用Messenger的SendMail( )和OpenInbox( )方法在浏览器中分别打开发送邮件和收件箱窗口，参考下列代码：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.SendMail("tom@hotmail.com") &&指定向tom@hotmail.com发送邮件 oMSN.OpenInbox()
&&打开收件箱
可以使用Messenger的SendFile( )方法向指定联系人发送一个文件，参考下列代码：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.SendFile('tgrong@hotmail.com','c:/1.txt')
oWindow.Close()
下面的代码可以获得当前用户在MSN Messenger中的服务名称、注册用户名称和显示名称信息。
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oService = oMSN.Services
oPrimserv = oService.PrimaryService
?oPrimserv.ServiceName &&获得服务名称
?oPrimserv.MySigninName &&当前注册用户名称，应当是一个邮箱地址
?oPrimserv.MyFriendlyName &&当前在MSN中显示的名称
Windows Scripting Host（WSH）是一个用于Windows平台的脚本语言工具，使用该工具可以进行诸如建立快捷方式、打开或重命名文件夹等操作。 使用WSH的SendKeys(String)方法可以将一个或多个键击指令发送到活动窗口中，就像在键盘上击键一样。其中的String参数是一个代表按键的字符串。 要发送单个键盘字符，可以直接把字符本身作为String参数发送（要发送空格，字符为" "）。要同时发送多个键击，可以按键击顺序把字符排列在一起。例如，要发送键击a、b和c，则需要发送字符串“abc”。 SendKeys方法将某些字符用作字符的修饰符，包括圆括号、中括号、大括号，以及加号、插入记号（^）、百分号和“非”符号（~）。这些字符需要使用大括号“{}”括起才可以发送，例如，要发送加号，需要发送字符串“{+}”。 此外，要发送左中括号字符，需要发送字符串“{[]”；要发送右中括号字符，需要发送字符串“{]}”；要发送左大括号字符，需要发送字符串“{{}”；要发送右大括号字符，需要发送字符串“{}}”。 对于某些仅是执行一个操作而不产生字符的键击（如ENTER和TAB），需要使下表中列出的参数进行发送。
要发送由常规键击和SHIFT、CTRL或ALT组合而成的键盘字符，则需要在常规键击之前添加一个或多个特殊字符来建立组合键。其中SHIFT使用“+”表示，CTRL使用“^”表示，ALT使用“%”表示。如果在按住e和c的同时按下SHIFT键，则发送的字符串应当为“+(ec)”。如果在按住e时只按下c（而不按下SHIFT），则发送的字符串应当为“+ec”。 例如，图1是一个发送邮件的表单。
图1
下面是图1所示表单的自定义方法SendMail的代码，通过“发送”按钮调用。用于打开MSN的新邮件窗口，并通过WSH向窗口中的“抄送”、“密件抄送”等文本框发送所需要的信息。
LPARAMETERS cContact, cCCAddress, cBCCAddress, cSubject, cMessage
*!* cContact-收件人
*!* cCCAddress-抄送
*!* cBCCAddress-密件抄送
*!* cSubject-邮件主题
*!* cMessage-邮件正文
LOCAL loExc as Exception
LOCAL llRetVal as Boolean
llRetVal = .F.
TRY
Thisform.oMessenger.SendMail(cContact) &&使用MSN Messenger发送邮件，将在浏览器中打开新邮件窗口
*-- 进行时间延迟，等待浏览器窗口出现
FOR i = 1 TO 20
Sleep (1000) &&Sleep是一个API函数，用于进行时间延迟，请参考MSDN
*--查找标题为“MSN Hotmail - 新邮件 - Microsoft Internet Explorer”的窗口
wHandle = FindWindow(0, thisform.cComposeEmailWindowTitle)
IF wHandle > 0
EXIT
ENDIF
ENDFOR
IF wHandle > 0 &&找到了窗口 *-- 将浏览器窗口放置在前面 SetForegroundWindow(whandle)
&&这是一个API函数，请参考MSDN
Sleep (1000) &&延迟1s
Thisform.SendKeys("{tab}") &&第一次发送TAB键，将焦点移动到“抄送”文本框
IF NOT EMPTY(cCCAddress) THEN
Sleep (1000)
Thisform.SendKeys(cCCAddress, .T.) &&向“抄送”文本框中发送信息 ENDIF
Thisform.SendKeys("{tab}") &&第二次发送TAB，将焦点移动到“密件抄送”文本框
IF NOT EMPTY(cBCCAddress) THEN
Thisform.SendKeys(cBCCAddress, .T.)
ENDIF
Thisform.SendKeys("{tab}") &&第三次发送TAB，将焦点移动到“主题”文本框
IF NOT EMPTY(cSubject) THEN
Thisform.SendKeys(cSubject, .T.)
ENDIF
Thisform.SendKeys("{tab}") &&第四次发送TAB，将焦点移动到正文编辑框
sleep (1000)
Thisform.SendKeys("^{home}")
Thisform.SendKeys(cMessage, .T.)
Thisform.SendKeys("{tab}")
sleep (1000)
Thisform.SendKeys("{enter}")
sleep (1000)
*-- 最小化窗口
CloseWindow(whandle)
llRetVal = .T.
ENDIF
CATCH TO loExc
Thisform.GetOleError(loExc)
ENDTRY
RETURN llRetVal