oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.AutoSignin() &&自動(dòng)注冊(cè)
oMSN.Signin(0,"tom@hotmail.com","mypassword") &&按指定用戶tom@hotmail.com進(jìn)行注冊(cè)，密碼為“mypassword”

      

        oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.Signout() &&注銷當(dāng)前用戶

      

        ACTIVATE SCREEN
CLEAR
?"顯示名稱 注冊(cè)名稱 當(dāng)前狀態(tài) 家庭電話 工作電話 移動(dòng)的話"
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
nCount = oMSN.MyContacts.Count
FOR i = 0 TO nCount -1 &&查找所有聯(lián)系人的信息 lcUserName = 
MSN.MyContacts.Item(i).FriendlyName &&在MSN中的顯示名稱
lcEmailName = oMSN.MyContacts.Item(i).SignInName &&進(jìn)行MSN注冊(cè)時(shí)的用戶名稱，應(yīng)當(dāng)是一個(gè)郵箱地址
lnStatus = oMSN.MyContacts.Item(i).Status &&用戶狀態(tài)：1-脫機(jī)、2-正常連機(jī)、10-忙碌、18-離開
lcHomePh = oMSN.MyContacts.Item(i).PhoneNumber(0) &&家庭電話
lcWorkPh = oMSN.MyContacts.Item(i).PhoneNumber(1) &&工作電話
lcMobilePh = oMSN.MyContacts.Item(i).PhoneNumber(2) &&移動(dòng)電話
?lcUserName+" | "+lcEmailName+" | "+STR(lnStatus)+" | "+lcHomePh+" | "+lcWorkPh+" 
| "+lcMobilePh 
ENDFOR

      

        oWindow = oMSN.InstantMessage("tom@hotmail.com") &&打開與tom@hotmail.com的對(duì)話窗口 
oWindow.AddContact("ken@msn.com") &&邀請(qǐng)其他聯(lián)系人加入對(duì)話
?oWindow. Contacts.Count &&返回對(duì)話聯(lián)系人的數(shù)目
oWindow.Close() &&關(guān)閉對(duì)話窗口

      

        oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.Window
oWindow.Show() &&顯示MSN Messenger窗口
?oWindow.Height &&返回窗口的高度 oWindow.Close() &&關(guān)閉窗口

      

        oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.SendMail("tom@hotmail.com") &&指定向tom@hotmail.com發(fā)送郵件 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 &&獲得服務(wù)名稱
?oPrimserv.MySigninName &&當(dāng)前注冊(cè)用戶名稱，應(yīng)當(dāng)是一個(gè)郵箱地址
?oPrimserv.MyFriendlyName &&當(dāng)前在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發(fā)送郵件，將在瀏覽器中打開新郵件窗口
*-- 進(jìn)行時(shí)間延遲，等待瀏覽器窗口出現(xiàn) 
FOR i = 1 TO 20
Sleep (1000) &&Sleep是一個(gè)API函數(shù)，用于進(jìn)行時(shí)間延遲，請(qǐng)參考MSDN
*--查找標(biāo)題為“MSN Hotmail - 新郵件 - Microsoft Internet Explorer”的窗口
wHandle = FindWindow(0, thisform.cComposeEmailWindowTitle)
IF wHandle > 0
EXIT
ENDIF
ENDFOR

IF wHandle > 0 &&找到了窗口 *-- 將瀏覽器窗口放置在前面 SetForegroundWindow(whandle) 
&&這是一個(gè)API函數(shù)，請(qǐng)參考MSDN
Sleep (1000) &&延遲1s

Thisform.SendKeys("{tab}") &&第一次發(fā)送TAB鍵，將焦點(diǎn)移動(dòng)到“抄送”文本框
IF NOT EMPTY(cCCAddress) THEN
Sleep (1000)
Thisform.SendKeys(cCCAddress, .T.) &&向“抄送”文本框中發(fā)送信息 ENDIF

Thisform.SendKeys("{tab}") &&第二次發(fā)送TAB，將焦點(diǎn)移動(dòng)到“密件抄送”文本框
IF NOT EMPTY(cBCCAddress) THEN
Thisform.SendKeys(cBCCAddress, .T.)
ENDIF
Thisform.SendKeys("{tab}") &&第三次發(fā)送TAB，將焦點(diǎn)移動(dòng)到“主題”文本框
IF NOT EMPTY(cSubject) THEN
Thisform.SendKeys(cSubject, .T.)
ENDIF
Thisform.SendKeys("{tab}") &&第四次發(fā)送TAB，將焦點(diǎn)移動(dòng)到正文編輯框
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