在Visual FoxPro中操作MSN

在Visual FoxPro中操作MSN
作者：张洪举 Microsoft Visual FoxPro MVP

---

注：此文章摘自作者的 〈Visual FoxPro 6.0-9.0解决方案与范例大全〉图书

目录
概述
Messenger注册
Messenger注销
获取Messenger中的联系人信息
打开与指定联系人的对话窗口
打开MSN Messenger窗口
打开邮件窗口
发送文件
获得当前MSN Messenger设置
使用Windows Scripting Host向活动窗口发送指令

概述
该示例演示了使用Messenger API和Windows Scripting Host对MSNMessenger进行操作的方法。

Messenger注册

可以使用“Messenger.UIAutomation.1”字符串建立对Messenger的对象引用。进行Messenger注册分为自动注册和按指定用户注册两种形式，参考下列代码：

oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.AutoSignin() &&自动注册
oMSN.Signin(0,"[email protected]","mypassword") &&按指定用户[email protected]进行注册，密码为“mypassword”

Messenger注销

可以使用Signout方法注销当前用户，参考下列代码：

oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.Signout() &&注销当前用户

获取Messenger中的联系人信息

在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("[email protected]") &&打开与[email protected]的对话窗口 
oWindow.AddContact("[email protected]") &&邀请其他联系人加入对话
?oWindow. Contacts.Count &&返回对话联系人的数目
oWindow.Close() &&关闭对话窗口

打开MSN Messenger窗口

可以通过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("[email protected]") &&指定向[email protected]发送邮件 oMSN.OpenInbox() 
&&打开收件箱

发送文件

可以使用Messenger的SendFile( )方法向指定联系人发送一个文件，参考下列代码：

oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.SendFile('[email protected]','c:\1.txt')
oWindow.Close()

获得当前MSN Messenger设置

下面的代码可以获得当前用户在MSN Messenger中的服务名称、注册用户名称和显示名称信息。

oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oService = oMSN.Services
oPrimserv = oService.PrimaryService
?oPrimserv.ServiceName &&获得服务名称
?oPrimserv.MySigninName &&当前注册用户名称，应当是一个邮箱地址
?oPrimserv.MyFriendlyName &&当前在MSN中显示的名称

使用Windows Scripting Host向活动窗口发送指令

Windows Scripting Host（WSH）是一个用于Windows平台的脚本语言工具，使用该工具可以进行诸如建立快捷方式、打开或重命名文件夹等操作。 使用WSH的SendKeys(String)方法可以将一个或多个键击指令发送到活动窗口中，就像在键盘上击键一样。其中的String参数是一个代表按键的字符串。 要发送单个键盘字符，可以直接把字符本身作为String参数发送（要发送空格，字符为" "）。要同时发送多个键击，可以按键击顺序把字符排列在一起。例如，要发送键击a、b和c，则需要发送字符串“abc”。 SendKeys方法将某些字符用作字符的修饰符，包括圆括号、中括号、大括号，以及加号、插入记号（^）、百分号和“非”符号（~）。这些字符需要使用大括号“{}”括起才可以发送，例如，要发送加号，需要发送字符串“{+}”。 此外，要发送左中括号字符，需要发送字符串“{[]”；要发送右中括号字符，需要发送字符串“{]}”；要发送左大括号字符，需要发送字符串“{{}”；要发送右大括号字符，需要发送字符串“{}}”。 对于某些仅是执行一个操作而不产生字符的键击（如ENTER和TAB），需要使下表中列出的参数进行发送。

键 参数 退格键 {BACKSPACE}、{BS}或{BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL或DELETE{DELETE}或{DEL} 下箭头 {DOWN} END {END} ENTER {ENTER}或~ ESC {ESC} HOME {HOME} INS或INSERT{INSERT}或{INS} 左箭头 {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} PRINT SCREEN{PRTSC} 右箭头 {RIGHT} SCROLL LOCK{SCROLLLOCK} TAB {TAB} 上箭头 {UP} F1、F2、F3...{F1}、{F2}、{F3}

要发送由常规键击和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