在Visual FoxPro中操作MSN
作者：張洪舉 Microsoft Visual FoxPro MVP
作者：張洪舉 Microsoft Visual FoxPro MVP
注：此文章摘自作者的
〈Visual FoxPro 6.0-9.0解決方案與范例大全〉
圖書
目錄
概述
Messenger注冊(cè)
Messenger注銷
獲取Messenger中的聯(lián)系人信息
打開(kāi)與指定聯(lián)系人的對(duì)話窗口
打開(kāi)MSN Messenger窗口
打開(kāi)郵件窗口
發(fā)送文件
獲得當(dāng)前MSN Messenger設(shè)置
使用Windows Scripting Host向活動(dòng)窗口發(fā)送指令
概述
Messenger注冊(cè)
Messenger注銷
獲取Messenger中的聯(lián)系人信息
打開(kāi)與指定聯(lián)系人的對(duì)話窗口
打開(kāi)MSN Messenger窗口
打開(kāi)郵件窗口
發(fā)送文件
獲得當(dāng)前MSN Messenger設(shè)置
使用Windows Scripting Host向活動(dòng)窗口發(fā)送指令
可以使用“Messenger.UIAutomation.1”字符串建立對(duì)Messenger的對(duì)象引用。進(jìn)行Messenger注冊(cè)分為自動(dòng)注冊(cè)和按指定用戶注冊(cè)兩種形式，參考下列代碼：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.AutoSignin() &&自動(dòng)注冊(cè)
oMSN.Signin(0,"tom@hotmail.com","mypassword") &&按指定用戶tom@hotmail.com進(jìn)行注冊(cè)，密碼為“mypassword”
可以使用Signout方法注銷當(dāng)前用戶，參考下列代碼：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.Signout() &&注銷當(dāng)前用戶
在Messenger的MyContacts.Count中保存著當(dāng)前用戶的聯(lián)系人數(shù)目，可以通過(guò)Item屬性來(lái)檢索每個(gè)聯(lián)系人的信息，參考下列代碼：
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-離開(kāi)
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
可以使用InstantMessage( )方法打開(kāi)與指定聯(lián)系人的對(duì)話窗口，打開(kāi)對(duì)話窗口后，還可以使用AddContact()邀請(qǐng)其他聯(lián)系人加入對(duì)話，參考下列代碼：
oWindow = oMSN.InstantMessage("tom@hotmail.com") &&打開(kāi)與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ì)話窗口
可以通過(guò)Messenger的Window屬性來(lái)獲得對(duì)MSN Messenger窗口的引用，并通過(guò)Show( )方法來(lái)顯示窗口，參考下列代碼：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.Window
oWindow.Show() &&顯示MSN Messenger窗口
?oWindow.Height &&返回窗口的高度 oWindow.Close() &&關(guān)閉窗口
可以使用Messenger的SendMail( )和OpenInbox( )方法在瀏覽器中分別打開(kāi)發(fā)送郵件和收件箱窗口，參考下列代碼：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oMSN.SendMail("tom@hotmail.com") &&指定向tom@hotmail.com發(fā)送郵件 oMSN.OpenInbox()
&&打開(kāi)收件箱
可以使用Messenger的SendFile( )方法向指定聯(lián)系人發(fā)送一個(gè)文件，參考下列代碼：
oMSN = CREATEOBJECT("Messenger.UIAutomation.1")
oWindow = oMSN.SendFile('tgrong@hotmail.com','c:\1.txt')
oWindow.Close()
下面的代碼可以獲得當(dāng)前用戶在MSN Messenger中的服務(wù)名稱、注冊(cè)用戶名稱和顯示名稱信息。
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中顯示的名稱
Windows Scripting Host（WSH）是一個(gè)用于Windows平臺(tái)的腳本語(yǔ)言工具，使用該工具可以進(jìn)行諸如建立快捷方式、打開(kāi)或重命名文件夾等操作。 使用WSH的SendKeys(String)方法可以將一個(gè)或多個(gè)鍵擊指令發(fā)送到活動(dòng)窗口中，就像在鍵盤上擊鍵一樣。其中的String參數(shù)是一個(gè)代表按鍵的字符串。 要發(fā)送單個(gè)鍵盤字符，可以直接把字符本身作為String參數(shù)發(fā)送（要發(fā)送空格，字符為" "）。要同時(shí)發(fā)送多個(gè)鍵擊，可以按鍵擊順序把字符排列在一起。例如，要發(fā)送鍵擊a、b和c，則需要發(fā)送字符串“abc”。 SendKeys方法將某些字符用作字符的修飾符，包括圓括號(hào)、中括號(hào)、大括號(hào)，以及加號(hào)、插入記號(hào)（^）、百分號(hào)和“非”符號(hào)（~）。這些字符需要使用大括號(hào)“{}”括起才可以發(fā)送，例如，要發(fā)送加號(hào)，需要發(fā)送字符串“{+}”。 此外，要發(fā)送左中括號(hào)字符，需要發(fā)送字符串“{[]”；要發(fā)送右中括號(hào)字符，需要發(fā)送字符串“{]}”；要發(fā)送左大括號(hào)字符，需要發(fā)送字符串“{{}”；要發(fā)送右大括號(hào)字符，需要發(fā)送字符串“{}}”。 對(duì)于某些僅是執(zhí)行一個(gè)操作而不產(chǎn)生字符的鍵擊（如ENTER和TAB），需要使下表中列出的參數(shù)進(jìn)行發(fā)送。
要發(fā)送由常規(guī)鍵擊和SHIFT、CTRL或ALT組合而成的鍵盤字符，則需要在常規(guī)鍵擊之前添加一個(gè)或多個(gè)特殊字符來(lái)建立組合鍵。其中SHIFT使用“+”表示，CTRL使用“^”表示，ALT使用“%”表示。如果在按住e和c的同時(shí)按下SHIFT鍵，則發(fā)送的字符串應(yīng)當(dāng)為“+(ec)”。如果在按住e時(shí)只按下c（而不按下SHIFT），則發(fā)送的字符串應(yīng)當(dāng)為“+ec”。 例如，圖1是一個(gè)發(fā)送郵件的表單。
圖1
下面是圖1所示表單的自定義方法SendMail的代碼，通過(guò)“發(fā)送”按鈕調(diào)用。用于打開(kāi)MSN的新郵件窗口，并通過(guò)WSH向窗口中的“抄送”、“密件抄送”等文本框發(fā)送所需要的信息。
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ā)送郵件，將在瀏覽器中打開(kāi)新郵件窗口
*-- 進(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
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號(hào)聯(lián)系： 360901061
您的支持是博主寫作最大的動(dòng)力，如果您喜歡我的文章，感覺(jué)我的文章對(duì)您有幫助，請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長(zhǎng)非常感激您！手機(jī)微信長(zhǎng)按不能支付解決辦法：請(qǐng)將微信支付二維碼保存到相冊(cè)，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對(duì)您有幫助就好】元
