[原]【软件测试自动化-QTP系列讲座 51】== 自定义消息通知系统 ==

jqF_1B3y-}^+j/[9U051Testing软件测试网*ajG|:m;I*X(s*y

作者：zzxxbb112
时间：2012/2/1 版权所有，侵权必究。

&HT*Z0zl }4]3g5L+^0

出处：http://blog.csdn.net/zzxxbb11251Testing软件测试网"\kj;lv,k'b

bb2L)YH"bN*L
~m0

2T!|Wkh8SG+d$Y4`0
"eT5TA xW/g(YzK0

"PCq,y*gE`t4Q051Testing软件测试网SH&T%PH ~'I:R

     前两天IQuickTest已经发布了一款名叫QTP notify的辅助工具，大家可以在iquicktest上看到此工具的一些简单介绍以及下载地址，那么今天主要就来为大家详细介绍下此工具的用法。51Testing软件测试网V#k4XH fR+j

&of0x-[x+W_5x!n051Testing软件测试网|V _.o3a(S3uV

9Vw$q\-V'x6by%R5R0

!I6Wg;pT5PU`-na0首先我们需要下载此工具包：http://www.iquicktest.com/qtp-notify-center.html

+_xA KwX'q,kV0

zKoRBn@.SJ,c0下载完毕之后，可以看到如下图所示：51Testing软件测试网a&_ jf1iC,f(Q8i

51Testing软件测试网G_.h;NN+r&@-L

51Testing软件测试网Y5@
[+}7GM7K;b'D x c

~hO
hC-i6z051Testing软件测试网\|#j8s#zb,s

那个文件夹我们这里可以直接忽视，直接看另外两个文件。

X7BN^2ys4b4ZcocdQ051Testing软件测试网z/ba4t%z&|3i

QTPNotifier.exe: 用于接收消息通知的核心程序，在发送消息时必须把此程序启动51Testing软件测试网"v3R D(T&~4Oo

51Testing软件测试网/v5r-G2nC^3\

QTPFunction.vbs: 此函数库文件里面只有一个方法RaiseNotification，直接调用即可发送通知给QTPNotifier.exe51Testing软件测试网&lL.uCRJu5[1^

P/@Xy nw&u6Pa']0
Z&]V$L-l^+v*g4l051Testing软件测试网4@u-Vj JSc CT

51Testing软件测试网5Cs+X2tR2~&TO'_

实例：51Testing软件测试网G:U_HV+L}

(G2j#fD zp01.打开QTP，并保存脚本到C:

_+kl1B+HNHL051Testing软件测试网{9lw ?Y&\;C9Z(?

2.接着把QTPNotifier.exe拷贝到脚本当前目录下

~#D/Si?Vz'a5x051Testing软件测试网n-V-U}n5[ KR

^^Vz@$W0t D0

4Ty]*v5Shy0

7H{ Pq5@&do$D'EXDY03. 接着把QTPFunction.vbs文件中的NPATH变量修改成以下代码：

4tm\_/|Z0gq2\k0

-FE"i;j `.pO8_r051Testing软件测试网&y{!oj.{-P

Dim NPATH
NPATH = Environment.Value("TestDir") & "\QTPNotifier.exe"

51Testing软件测试网"h*~r^/N~h

ebKI&{5V+Cz051Testing软件测试网:y@0k4Z6z)Y&e

i:j0])I!d:V0

t%i#i`5`h5t Tf0修改成这样的目的是更好的移植。

$y!b[M-t04.保存QTPFunction.vbs，这里我们贴出此函数库的完整代码：

ToK:A'd T G051Testing软件测试网l)NHX8V&l1S

T:[7o'jSqu*iG0

'Function Name:		RaiseNotification			
'Function Purpose:	This uses the QTPNotifier.exe tool to raise a notification to the system tray which is useful when watching test steps back.
'Input Parameters:	strTitle - The title of the message, typically you would pass in the test step number
'strMessage - The content of the notification message. 
'Creation Date:		Jan 26th 2012 by David Hartley	

Function RaiseNotification(strTitle, strMessage)
	Dim NPATH
	Dim objWMIService, colProcessList, objProcess
	Dim blnRunning: blnRunning = false 
	Dim strFolderPath 
	Dim strNotifyFileName 
	Dim objFSO
	Dim objTextStream

	
	'Write out the notify file to the network drive. This takes the fomat notify.txt
	NPATH = Environment.Value("TestDir") & "\QTPNotifier.exe"
	strFolderPath = Replace(NPATH,"QTPNotifier.exe","")
	strNotifyFileName = environment("LocalHostName") & "notify.txt"

	'Delete the file if it already exists
    Set bjFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(strFolderPath & strNotifyFileName) Then
		On error resume next
		objFSO.DeleteFile(strFolderPath & strNotifyFileName)
		On error goto 0
	End If

	'Now write the notification out to the file - the first line must have the title, the second line must have the message
	Set bjTextStream = objFSO.OpenTextFile(strFolderPath & strNotifyFileName, 2, True)

	'Write to the file
	objTextStream.WriteLine strTitle
	objTextStream.WriteLine strMessage
	
	'Close the file and clean up
	objTextStream.Close
	Set bjTextStream = Nothing
    
	'Now the file's been written lets kickoff the program to pick it up.
	'The program will wait around for a minute to pickup any new messages so it may already be running. Let's check....
	'First off all determine if the QTPNotifier.exe app is running?
	Set bjWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
	Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process")

	For Each objProcess in colProcessList
		If objProcess.Name = "QTPNotifier.exe" Then
			blnRunning = True
			Exit for
		End If
	Next

	'if it's not running, start it up
	If not blnRunning Then
		systemutil.Run NPATH
	End If
End Function

a0aA2p2P0

'|K i'_F K%B051Testing软件测试网:L(tppoRp

L/PGx%o7\5Q0o(V051Testing软件测试网^!o#m!k9`#lD&S3wT

5. 在Settings中关联此函数库，当然你也可以把它与你项目的函数库合并：

%LHK(j/r051Testing软件测试网g^ C%s
T'Mdm$HR+Z

51Testing软件测试网
`7{ri$\6Y

6. 接着在QTP的脚本区中输入:51Testing软件测试网wlvTI j"I

51Testing软件测试网o0cL&J:@Q![

yRv*WC%g.c c0

RaiseNotification "Step 1","login  iquicktest"
wait 2
RaiseNotification "Step 2","logout iquicktest "

51Testing软件测试网lt-}4@'CJ,}
加两秒间隔是为了看清楚1和2两个步骤，不然1会闪的太乱，就看不出我们想要的效果。

^)@7ZMa e.R2K051Testing软件测试网XnO
D
c/kg[

CM!L*H7{ft051Testing软件测试网
[9CEO/{'x#q Cw}t
51Testing软件测试网6q.i
o,Z+b#Jj

r R c:]j8]6g)ceF:u0最终效果如图：51Testing软件测试网?.N,[.r e

51Testing软件测试网VZd/y`#eL

  51Testing软件测试网7z~kV3K!sF

51Testing软件测试网J)]7c-X} \

@;b%a~*V;Y}0

KYlQ~J0

如有任何问题请去IquickTest Q&A问题库进行提问51Testing软件测试网v
j%V0fc
51Testing软件测试网|(zR/|t_%J

51Testing软件测试网:P:T
R]$q0M

 Rss订阅IQuickTest（关于如何订阅？）51Testing软件测试网,Vp$~!aE b

q!{rB2ox0
/eIagI#u"[2p0Link URL: http://blog.csdn.net/zzxxbb112/article/details/7225174