在Visual FoxPro中操作MSN

原创 2006年05月29日 15:29:00
在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,"tom@hotmail.com","mypassword") &&按指定用户tom@hotmail.com进行注册,密码为“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("tom@hotmail.com") &&打开与tom@hotmail.com的对话窗口 
oWindow.AddContact("ken@msn.com") &&邀请其他联系人加入对话
?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("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设置
下面的代码可以获得当前用户在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),需要使下表中列出的参数进行发送。
要发送由常规键击和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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

求解用Visual Foxpro“老乡会会员信息管理系统”

老乡会会员信息管理系统1.内容要求:本系统能够方便、灵活地实现老乡会会员基本数据的输入、查询和打印。系统功能至少包括系统简介、会员浏览、数据维护(增加,修改,删除…)、数据输入、打印输出等。会员信息表...

C#导出Visual FoxPro(.dbf)数据库文件

前些天由于客户需求,C#开发的程序需要做一个导出Visual FoxPro(.dbf)数据库文件的功能。 不会呀,从网上找了好长时间,终于被我找到了,自己稍作修改,经测试,可以导出,并且导出的文件可...

基于visual c++之windows核心编程代码分析(58) MSN账户密码监测防范

使用MSN的用户还是很多的,在未来国家之间的网络战争中,获取密码变得非常重要,很多敌对分子,很多法轮功分子都使用MSN。为了捍卫伟大祖国安全的程序员们,目前我们来分析一下MSN账户密码的窃听,  #i...

visual FoxPro 试题库

  • 2015-05-31 19:47
  • 260KB
  • 下载

Visual FoxPro

  • 2015-12-08 23:13
  • 4.03MB
  • 下载

在Delphi中用ADO连接FoxPro数据库

VisualPro,即VFP,那个小狐狸头,在学校时拿它做数据库理论教育,但自从6.0之后就从未接触它了,听说出在有9.0,但我觉得它的时代已经过去了。例外的是,现在还发现有人用VFP写的应用,还是号...

visual foxpro

  • 2015-07-26 19:21
  • 25.69MB
  • 下载

Visual foxpro

  • 2013-05-24 23:18
  • 527KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)