【QTP自动化测试(三)】鼠标点击桌面任意坐标

Function Mouse_Click(x , y)
    Dim device
    Set device = CreateObject(“Mercury.DeviceReplay”)
    device.MouseMove x , y
    device.MouseClick x , y , LEFT_MOUSE_BUTTON
End Function

Mercury.DeviceReplay这个对象用来模拟鼠标的单击和移动、键盘输入等,但有个前提,实用该对象前,需要保证键盘状态正确。如NUMLOCK是否打开等,因为DeviceReplay不能检测键盘状态。

Mercury.DeviceReplay包括如下方法:

1、SendString方法
向激活的窗口发送一个或多个键盘按键:object.SendString( str )

2、KeyDown方法
模拟一个按键的按下并保持:object.KeyDown( key )  
key :按键的数值码

3、KeyUp方法
模拟通过键盘释放某个按下的按键:object.KeyUp( key )

4、PressKey方法
模拟通过键盘按下一个按键并立即释放:object.PressKey( key )

5、PressNKeys方法
模拟通过键盘多次按下一个按键并立即释放:object.PressNKey( key, N )  
N:重复次数

6、DragAndDrop方法
用于执行从一点拖动到另外一点的操作:object.DragAndDrop( dragX, dragY, dropX, dropY, Button)
Button 的值包括:
LEFT_MOUSE_BUTTON = 0
MIDDLE_MOUSE_BUTTON = 1
RIGHT_MOUSE_BUTTON = 2

7、MouseClick方法
在指定的屏幕位置执行鼠标左键或右键的单击操作:object.MouseClick( x, y, Button )

8、MouseDbClick方法
在指定的屏幕位置中执行鼠标左键或右键的双击事件:object.MouseDblClick( x, y,Button)

9、MouseDown方法
在屏幕指定位置按下鼠标左键或右键,并保持按下状态:object.MouseDown( x, y, Button)

10、MouseUp方法
用于释放之前执行的MouseDown方法所按下的鼠标按键:object.MouseDown( x, y, Button)

11、MouseMove方法
用于模拟鼠标移动:object.MouseMove( x, y)

12、SetSynchronizationTimeout方法
设置一个新的同步超时的时间值:object. SetSynchronizationTimeout(nSyncTimeout , is_sec)
nSyncTimeout : 同步超时的时间值。
is_sec : 指定设置的时间值是否以秒为单位

【QTP自动化测试(二)】VB调用QTP自动测试

‘************************************************************************************************************************
‘描述:


‘该示例打开测试,配置运行选项和设置,
‘运行该测试,然后检查测试运行的结果。

‘假定:
‘QuickTest 中当前未打开没有保存的测试。
‘有关详细信息,请参阅 Test.SaveAs 方法的示例。
‘打开 QuickTest 时,将加载测试所必需的加载项。
‘有关详细信息,请参阅 Test.GetAssociatedAddins 方法的示例。
‘************************************************************************************************************************

Dim qtApp ‘ As QuickTest.Application ‘ 声明 Application 对象变量
Dim qtTest ‘As QuickTest.Test ‘ 声明 Test 对象变量
Dim qtResultsOpt ‘As QuickTest.RunResultsOptions ‘ 声明 Run Results Options 对象变量

Set qtApp = CreateObject(“QuickTest.Application”) ‘ 创建 Application 对象
qtApp.Launch ‘ 启动 QuickTest
qtApp.Visible = True ‘ 使 QuickTest 应用程序可见

‘ 设置 QuickTest 运行选项
qtApp.Options.Run.CaptureForTestResults = “OnError”
qtApp.Options.Run.RunMode = “Fast”
qtApp.Options.Run.ViewResults = False

qtApp.Open “C:\Tests\Test1”, True ‘ 以只读模式打开测试

‘ 为测试设置运行设置
Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = “rngIterations” ‘ 仅运行循环 2 到 4
qtTest.Settings.Run.StartIteration = 2
qtTest.Settings.Run.EndIteration = 4
qtTest.Settings.Run.OnError = “NextStep” ‘ 指示 QuickTest 在发生错误时执行下一步骤

Set qtResultsOpt = CreateObject(“QuickTest.RunResultsOptions”) ‘ 创建 Run Results Options 对象
qtResultsOpt.ResultsLocation = “C:\Tests\Test1\Res1” ‘ 设置结果位置

qtTest.Run qtResultsOpt ‘ 运行测试

MsgBox qtTest.LastRunResults.Status ‘ 检查测试运行的结果
qtTest.Close ‘ 关闭测试

Set qtResultsOpt = Nothing ‘ 释放 Run Results Options 对象
Set qtTest = Nothing ‘ 释放 Test 对象
Set qtApp = Nothing ‘ 释放 Application 对象

【QTP自动化测试(一)】DotNetFactory连接数据库操作

‘初始化连接串
ConnectionString=”Data Source=.;Initial Catalog=Northwind;Persist Security Info=True;User ID=sa;Password=”

‘创建SqlConnection的实例,构造函数中的参数为ConnectionString
Set SqlConnection=DotNetFactory.CreateInstance(“System.Data.SqlClient.SqlConnection”,”System.Data”,ConnectionString)

‘打开数据库连接
SqlConnection.Open

‘创建SqlCommand的实例,构造函数中的参数有两个,一个是数据库的查询语句,一个是数据库连接对象SqlConnection
Set SqlCommand=DotNetFactory.CreateInstance(“System.Data.SqlClient.SqlCommand”,”System.Data”,”Select *  from orders”,”SqlConnection”)

‘创建SqlDataAdapter的实例,构造函数中的参数为数据库命令对象SqlCommand
Set SqlDataAdapter=DotNetFactory.CreateInstance(“System.Data.SqlClient.SqlDataAdapter”,”System.Data”,SqlCommand)

‘创建一个DataSet实例
Set DataSet=DotNetFactory.CreateInstance(“System.Data.DataSet”,”System.Data”)

‘调用SqlDataAdapter的Fill方法,把查询返回的数据放到DataSet实例中
SqlDataAdapter.Fill DataSet

‘关闭数据库连接
SqlConnection.Close

‘期待返回记录行数
ExpecterRowCount=840

‘获取数据记录行数
ActualRowCount=DataSet.Tables.get_Item(0).Rows.Count

‘判断是否等于预期记录行数
If NOT ActualRowCount=ExpectedRowCount Then
    Reporter.ReportEvent micFail,”错误”,”数据库记录行数不正确!期待返回记录行数=” & ExpectedRowCount & ” 实际返回记录行数=” & ActualRowCount
Else
    Reporter.ReportEvent micPass,”正确”,”数据库记录行数正确。”    
End If

DQ

  今天跟Pazel一起出去逛街,经过南京路,在新世界找到了传说中的DQ。老早就听说能用招行信用卡积分兑换DQ冰激凌,可是一直没机会去试,今天总算逮到机会了。520分换了一份大杯暴风雪系列蓝莓杏仁和一份水果盛汇冰激凌,冰激凌量还是挺足的,杏仁也很多,把我们俩吃撑了,比哈根达斯好吃多了。在杯子上看到了”Blizzard”字样,起初还以为是暴雪打的广告,想了半天才反应过来,原来是暴风雪系列的英文,呵呵。做完冰激凌的时候,店员还把装满冰激凌的杯子倒过来给你看一下,说不会掉下来,哈哈,第一次看到这样做生意的。不过倒杯不洒也是DQ的特色之一,如果洒出来是免费的。活动到09年12月31日结束,还剩不少招行积分,抽空多去几次,多用用。感觉用积分换DQ比换实物实惠多了。不错不错。
  附:招行信用卡积分DQ兑换说明

【转帖】二手房收房,怎样才算把好关?

    设施设备细清点
    如果购买的二手房被上家装修和使用过,在出售时,双方已约定某些装修和设备是包含在总房款之内的。那么,在签订房地产买卖合同时,就应当将这些设施设备的品牌、型号、成色、数量,以及能否正常使用等细节标识清楚。交房时,买家可严格按照合同约定的清单一一核查。

    费用要结清
    买家在收房时,一定要亲自去相关单位,检查原业主是否已经结清了房屋的各项服务费用,包括水、电、煤气、电话、电视、网络、物业管理费等等。只有确认卖家已将各项费用都结清了,双方才可办理相关的过户手续。否则,买家将有承担不必要费用的风险。

    户口须迁出
    如果前业主把物业出售后,户籍仍挂在里面,那么新业主收房后就无法落户。这样的纠纷,在二手房交易中并不少见。其实,想预防此类问题很简单。在收房前,买卖双方只要一同前往房屋所在地的派出所,询问房屋内的户口情况即可。如卖家户口仍未迁出,买家可根据买卖合同的约定追究卖家责任。

    质量问题细排查
    由于二手房一般已有一定的历史,故买家在收房时,还应特别注意查看房屋的工程质量问题。例如,门、窗是否密封,有无破损;天花板、墙壁、地面,有无裂痕、渗漏、积水等;水、电、开关等,能否正常使用,用水通道是否畅通等等。如果所买的房子是顶层,还要查看顶面是否有雨水渗漏的痕迹。
    总之,有任何问题都须在收房之前与前业主协商,尽快查明原因,确定由哪方负责维修,以免收房后扯皮。

    收楼证明备齐全
    对于一些多年未入住的新楼,买家收楼时要检查验收楼盘交付使用的各种证件是否齐备。同时,对于一些所谓的收楼费用,例如维修基金等,也必须清晰地知道业主是否曾缴交过,以免造成自己的损失。
    另水、电、煤气、电话、电视、网络、物业管理费等过户的单据也应备齐全,以免将来不能享受相关服务。

    《房屋交接书》要签署
    收了钥匙,结清了尾款,收房就算完成了吧?其实,不然。专家提醒,千万别忘签署《房屋交接书》。
    签署《房屋交接书》的法律后果是卖家将符合买卖合同约定的房屋交付给买家,交房的时间点也就是签署《房屋交接书》的时间点。如果不签,双方将来可能会对何时是交房时间产生争议,进而影响到双方对违约责任的承担。
    签署《房屋交接书》是交房手续的最后一个程序,应在房屋验收完成之后。它至少应包含有上述六个方面的内容,一式二份,由双方各执一份。如果在对房屋验收时,发现某些方面不符合合同约定,也应当在《房屋交接书》中注明,为追究卖家的责任打下基础。

【迅雷】【FlashGet】【QQ旋风】地址解析器

网上下载文件的时候,经常会看到一些加密的下载地址。通常都要用迅雷、FlashGet、QQ旋风之类的下载工具才能打开,每次机子上都要装那么多下载软件挺烦的。做了一个迅雷、FlashGet、QQ旋风地址解析器,将加密地址解析成普通的下载地址,用常用下载软件就能下载。算法非常简单,都是通过Base64进行加密的。
迅雷: AA下载地址ZZ,经BASE64加密后在开头加”thunder://”
超级旋风: 下载地址,经BASE64加密后在开头加”qqdl://”
网际快车:[FLASHGET]下载地址[FLASHGET],经BASE64加密后在开头加”flashget://”

点击下载此文件

京东宁波分公司开业啦!

  在京东网买东西已经有2年多了,感觉还是挺不错的,价钱便宜,质量也有保证。自从有了京东,很少去电脑市场买东西了。6月2日宁波分公司也开业了,家乡人民可以享受京东的自提业务、送货上门业务了。

宁波市人民路自提点
地  址:宁波市江北区人民路105号大时代大厦B1608室
联系电话: 0574-87358010
公交到达: 1、4、8、19、20、331、370、541到“外滩”站下

宁波货到付款范围:东起世纪大道、环城南路、环城西路、环城北路以内地区均可货到付款
货到付款支付形式:现金和POS机刷卡