在Visual FoxPro中操作MSN

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

      

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

      

        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

      

        oWindow = oMSN.InstantMessage("tom@hotmail.com") &&打开与tom@hotmail.com的对话窗口 
oWindow.AddContact("ken@msn.com") &&邀请其他联系人加入对话
?oWindow. Contacts.Count &&返回对话联系人的数目
oWindow.Close() &&关闭对话窗口

      

        oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.Window
oWindow.Show() &&显示MSN Messenger窗口
?oWindow.Height &&返回窗口的高度 oWindow.Close() &&关闭窗口

      

        oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.SendMail("tom@hotmail.com") &&指定向tom@hotmail.com发送邮件 oMSN.OpenInbox() 
&&打开收件箱

      

        oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.SendFile('tgrong@hotmail.com','c:\1.txt')
oWindow.Close()

      

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

      

        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