【腾讯QQ 好友买卖】

     今日玩起了腾讯的好友买卖，操作特别繁琐，无聊之下就写了个脚本去做操作。

     相信想学习QTP的读者去做这套小小的脚本一定会有不小的收获。先丢个流程图给大家，脚本还没全部检查完，因为好友都被我折磨完了，PK完了~~~在9.5中已经大量使用了对象库，描述编程感觉已经很难立足。你可以不同意我的观点，但你不能不注意这个问题，哈哈。51Testing软件测试网9N.bew*S-c p~

Q#y,JS-o2urOr0      因为对象库中涉及到部分个人信息，所以就只贴出部分代码。在ACTION1 datatable中需要添加51Testing软件测试网+l&Lh
SR

Z/P0]T{1@Gs0index：051Testing软件测试网H2k.a%vuD"gU

5Y&g1ud9P8g0PK_index：051Testing软件测试网
J Tv_
oqE

8L9Ow9a/hSbBgl0friend_name ：可以多行，都是你首选要买的朋友，例如大强，小强51Testing软件测试网TDNTy,B

pV#y0]\YrU A)~0同时，对象添加进去时候，腾讯也够折腾人的，区分他、她，所以大家需要对连接做个简单的正值表达式修改。对象库中的连接大部分都被参数化了，使用INDEX属性与datatable中的index挂连接，通过修改datatable的index来确定那个药被点击到。例如折磨奴隶的连接等等。

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-us}.e`6{&eI0'function Buy_Friend51Testing软件测试网Zjx6E!jgN ue
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Tu)Yf3Wy#SO0Public function Buy_Friend()
+p!Ki i3v6dN6G0  
8Qu+GJ{
E0    ' List_count=browser("沙").Page("沙").Frame("Frame_2").Object.links.length51Testing软件测试网 pRU3M\J[~"m7~
    Rowcount = DataTable.GetSheet("Action1").GetRowCount ()
$TzhHy*q0    flag=true
&KV vx!heX2n*X_0    curent_line=051Testing软件测试网"Hi7[@p
    While  flag
)UN+D-?zG-oCF L0     browser("沙").Page("沙").Frame("Frame").Link("我买得起的人").Click
B.Z-|;S%L yf#g0     If browser("沙").Page("沙").Frame("Frame_2").Link("点击展开更多>>").Exist  Then
jkp7ys0     browser("沙").Page("沙").Frame("Frame_2").Link("点击展开更多>>").click
7DO E~g[6^i:a0     End If51Testing软件测试网TE6n5da q4Ru
     curent_line=curent_line+1
-qHK%i*AL0     If   curent_line=Rowcount  then51Testing软件测试网g\\:l,o:W
      flag =false
d QxQ4Rd~U0      browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#0"
X I8m)DA\{*tWK%H0      browser("沙").Page("沙").Frame("Frame").Link("我要购买他").Click51Testing软件测试网(p$s3z)OZ3f
       If  browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Exist Then
l$d7BW ?$F"LQ0       text=browser("沙").Page("沙").Frame("Frame_4").WebElement("Friendname").GetROProperty("outertext")
,w2x ^+f^4Fk0       browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Set  text
.sVGu)|2o0       browser("沙").Page("沙").Frame("Frame_4").WebButton("买下他").Click
D
i$C,M7~g1TZ0       flag=false
Tl:[ V S8w$f0       browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网9R-^ I/c(FKX1l
                  else
+{$T @'y)V0       browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网6J~V+t8w(V ? ?WE
      end if51Testing软件测试网\#CI5k`"e.k[
   end if
-Z|t`p%tef*Z0   datatable.SetCurrentRow(curent_line)51Testing软件测试网 y
g[VT)P7Km
   If  browser("沙").Page("沙").Frame("Frame_2").Link("Friend_name").exist Then    '如果存在datatable中就做点击操作
3wH E@~n
F/r0     browser("沙").Page("沙").Frame("Frame_2").Link("Friend_name").click51Testing软件测试网3?/MXk7?,y
     browser("沙").Page("沙").Frame("Frame").Link("我要购买他").Click51Testing软件测试网e7l.sF
P?0\$_
                                               '有四个情况，购买成功，购买次数多2，资金不够，正在打工,但只要有可以输入的框就说明可以买
$z%ACYv*F+B7YJ0       If  browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Exist Then51Testing软件测试网q#qfKb
       text=browser("沙").Page("沙").Frame("Frame_4").WebElement("Friendname").GetROProperty("outertext")51Testing软件测试网{1B4O GP:TP
       browser("沙").Page("沙").Frame("Frame_4").WebEdit("WebEdit").Set  text51Testing软件测试网+xzZ,w_;}(M;A"Db1Un
       browser("沙").Page("沙").Frame("Frame_4").WebButton("买下他").Click51Testing软件测试网3w&Y t.rQ7l'|
       flag=false
C[}~IT0       browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网;o;NoW]3O
                  else51Testing软件测试网XwU1t7iql
       browser("沙").Page("沙").WebButton("╳").Click
4O.ZK,O"ud0     end if
$j HJ8W%p^0   End If51Testing软件测试网r+WZ7c7w~B+J
    Wend51Testing软件测试网T }3r2tNw#|6B@6@
End Function

 51Testing软件测试网iJwqTz} _6t&E/M

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网"U+u)\7SC
'function Sell_Friend
0nwr%aMv;v0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网WQC%`+m]"@n(K+q(S
Public function Sell_Friend()
c/On[|(C?c{0    F_Count=Friend_Count()51Testing软件测试网a?0F?;g%Js
 For i=0 to F_count-151Testing软件测试网:sN*gMP9b!t!Pd&dz
 datatable.Value("index","Action1")=i
$?S%xB0r0J;m0 If browser("沙").Page("沙").Frame("Frame").WebElement("05-19 10:57").Exist Then51Testing软件测试网"vIMD%F c
   hold_time=browser("沙").Page("沙").Frame("Frame").WebElement("05-19 10:57").GetROProperty("outertext")
jp$?cO!\4m%@ dI0[0    If day(now)-day(hold_time)>=2Then

l4eWix0    browser("沙").Page("沙").Frame("Frame").Link("释放奴隶").Click
)@_ b;gcAK0    If  browser("沙").Page("沙").Frame("Frame_4").WebButton("释放她").Exist Then51Testing软件测试网K&M5vl&B K%K"f#O
     browser("沙").Page("沙").Frame("Frame_4").WebButton("释放她").Click51Testing软件测试网]:l$IUZO4oE0]f
     browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网ohgV,j7I jP7f
     End If51Testing软件测试网K,Y5ZFG#A0SAI
   End If51Testing软件测试网l/}&l+D8o6?ca4W
 End  If

|,X4r&])T7H^0Next51Testing软件测试网*U,~8WRC2\kv
   51Testing软件测试网*ig7F kd}-nTw'H{
End Function

U!@ r8}}Z7K#j2\R$s(Ix0 51Testing软件测试网b7o0I?Ka R

8Unj!Z(w*x:c5[h0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Cs _U1t7Y6T&n"eE0'function Labor    折磨奴隶
;|P{pi:{ qU0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网 S gBK;pH
Public function Labor()51Testing软件测试网9Ai`%~h(K
      If browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist Then51Testing软件测试网 q5YYD wn
'        cot=  browser("沙").Page("沙").Frame("Frame_4").Object.getElementsByTagName("input").length51Testing软件测试网9UxVhgY$}$m5Z
     browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#0"

i8W3bptA0     browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
|Y$kIs8s:B0     browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网v
b-f2yi%VE5x)I@l
    else51Testing软件测试网1V1q.hQ3MD*uM6g/M
     browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网o#`imm-cN}{
      End If

End Function

&Rs0pe*u,P7B0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网)m9N7T3i6Z#t^
'function Appease   安抚奴隶
9^ak$Py/[r WBD0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
w$Xc"A0u&H0Public function Appease()
b"p~H+| _sBZ4g+}0     If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist Then51Testing软件测试网;\Q+hzD)Xt
 '          cot=  browser("沙").Page("沙").Frame("Frame_4").Object.getElementsByTagName("input").length51Testing软件测试网!smZI7cJH2YzY
      browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#0"
WpBB:[1A&UFK0       browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click51Testing软件测试网}} z C%f!dD
      browser("沙").Page("沙").WebButton("╳").Click
/\4|K%H|0    else51Testing软件测试网}2M5o:E%B.I
      browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网wl-?{"J;B
    end if51Testing软件测试网p^"S9l2s1d
End Function51Testing软件测试网:V-fCad6b:UZ`C

.WU4O2^e|p0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网)S*^5h Q3V"Kc(Z s
'function PK51Testing软件测试网[ a;K?4X5x*^E
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
O ydL }Q\0Public function PK()51Testing软件测试网
B1u#M W @/NM
   browser("沙").Page("沙").Frame("Frame").Link("PK角斗场").Click
,U)xW/w+Zr#W0   flag=true
'K0rx8iH\(o0   Page_PK_Index=0   '页面上其他人的努力顺序51Testing软件测试网 T hm#{
ig
   PK_index=0                     '奴隶PK的顺序51Testing软件测试网(M5f'NDx6H/fU{
   PK_Friend_Count=0     '选择PK主人（当PK数太少，就选择第2个PK主人）

rB^t&|Qn0   If  browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Exist Then
CQa$H$t'pstu0        browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Click51Testing软件测试网f;wm?j&x
       If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist then
/n O+O x\0Bt0         PK_Count=browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").GetROProperty("items count")51Testing软件测试网O2b/VNs!r@
         browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网3AQm;A|M
       end if51Testing软件测试网.Ln&R4\9b`d#r
   end if
6_a'r a;d
IDp0[0   51Testing软件测试网s ~I4}.@5H2a:[1t
   While flag51Testing软件测试网-S)e"e7@ y#]$B:gH1M
       datatable.Value("PK_index","Action1")=Page_PK_Index51Testing软件测试网Z4] gU+S|p3O3]
       If  browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Exist Then
O_e5XYzr"v0        browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Click51Testing软件测试网Hld]f9g O5O
       If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist then51Testing软件测试网?'Cv,pn6UOu
         If  PK_index>PK_Count-1 Then
l$zD^y0          flag=false51Testing软件测试网Ata1y:pR6kA5b
          browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网8g[*v$P _D5gc-oSY:J
          browser("沙").Page("沙").Frame("Frame").Link("首页").Click51Testing软件测试网X gBG,vZC
         else51Testing软件测试网?{k#_aE"xI8d)C'V
          browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&PK_index51Testing软件测试网g$Uq%MA!^;Gy-y
          browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
#g:Kfl[ p'Uh!\T0          If  browser("沙").Page("沙").Frame("Frame_4").WebButton("关闭").exist Then51Testing软件测试网9H4?
F
j3vS s
            PK_index=PK_index+1 51Testing软件测试网 W3[(X(F'D]_:};z
            browser("沙").Page("沙").Frame("Frame_4").WebButton("关闭").click
B%I7B7n
]G-}GZ0          else51Testing软件测试网#k(k sv1w*EQV
            browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
oZ;~-tzazo0            browser("沙").Page("沙").Frame("Frame_4").WebButton("直接看结果").Click51Testing软件测试网.j:sz]@Q/N
            PK_index=PK_index+1 
"FP{5?Z?*H0            Page_PK_Index=Page_PK_Index+1
U
VtWM6p.D4c0            browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网7G.^ zab
c
            51Testing软件测试网izH _be
A
          End If
&dS)],WM1p*u)fI4M0         end if51Testing软件测试网q3SUe"|.a
       else51Testing软件测试网u}.SzL:r#~yI
          Page_PK_Index=Page_PK_Index+1
%A$ojK^0         browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网Ry"H [2mn
       End If
ne%rh S4o0     else
*TAiB5u%C;|8}0      browser("沙").Page("沙").Frame("Frame").WebButton("PK其他好友奴隶").Click51Testing软件测试网? v)B.A2|+Fn!^L'\
      browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&PK_Friend_Count51Testing软件测试网 s-R.Qwug#M
      browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click51Testing软件测试网`%s zb)u
t#@-T]
      Page_PK_Index=0 51Testing软件测试网ev2Tb:C[c
r @8f!d
      PK_Friend_Count=PK_Friend_Count+1
?9~:zGXb0       End If
4_4Q!r1g Z0'   For i=0 to Pk_count-151Testing软件测试网9@CW;uL#JrAK6r.K
'    datatable.Value("PK_index","Action1")=i51Testing软件测试网L6[8^)B a@:^a
gO;o
'    browser("沙").Page("沙").Frame("Frame").Link("派奴隶与她PK").Click
9rK/u$`"Fb!q3|n0'    browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#"&i51Testing软件测试网 b!V#\l"G
K6[]7r
'    browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click
wvq S(S0'    Page_PK_Index=0 
W)Mm'I rNjW0'   Next51Testing软件测试网"D;e%}*Q2_3z
   Wend

t5LuA0q0End Function51Testing软件测试网`0~f"U,UJY9ac

#Q9A Q
Hl;rn5c0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
)f
zMc3t-Yey$`Q.xL0'function Fawn      讨好主人
/I1G[n
j:r~5iIC#E0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

`:Bz"Ud-`0Public function Fawn()51Testing软件测试网t`nL+M)W3ikC
  browser("沙").Page("沙").Frame("Frame").Link("讨好主人").Click
H(qmiHsT0    If  browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Exist  Then
g+jmzH0X;M'dZ0    'cot=  browser("沙").Page("沙").Frame("Frame_4").Object.getElementsByTagName("input").length
#sb VPl0    browser("沙").Page("沙").Frame("Frame_4").WebRadioGroup("aid").Select "#0"51Testing软件测试网(vH:Ef:F R.C/S
U
    browser("沙").Page("沙").Frame("Frame_4").WebButton("确定").Click51Testing软件测试网;~(ZPe5a4reD(h
    browser("沙").Page("沙").WebButton("╳").Click
v@P DAL d0  else51Testing软件测试网`2m+{+Qo.S
    browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网Z
p"k yxbs
 end if51Testing软件测试网C0gW$cLYj
End Function

BG dCJ0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FEsz3R+~0'function Use_FateCar
_XY:Wi(eX0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
:|Bw n/J3M Mgm0Public function Use_FateCar()
+_)v5I,fz${ C0   browser("沙").Page("沙").Frame("Frame").Link("使用命运卡").Click
!M+Oi;G~j `8K0   browser("沙").Page("沙").WebButton("╳").Click51Testing软件测试网.Q7{1OIL!@9W9D
End Function

0VW9VF
B:[w0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网T_l6or&LO;mZ$P
'function  Friend_Count51Testing软件测试网^p*nd~YG3KDE t
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网Pc/Cvr.Z

E,u8epd!U0Public function  Friend_Count()
~K1h6f3P"A{0 Dim Friend
e/TrYW4T0 Set Friend=description.Create()
^wTUva!Z0   Friend("html tag").value="A"51Testing软件测试网p cH1i&i jK]k
 Friend("text").value="折磨奴隶"
s*wU"sY)Bkc@*x0 Friend_Count=browser("沙").Page("沙").Frame("Frame").ChildObjects(Friend).count
b F1pA7|O0End Function

U*d2wJ!]8w }N^0 

[5z ^xb3}C3Q[0Public function main()

M(}.kY]_
a&s"ETL0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
#F(eo?IJK)O4sV+I0'如果朋友小过9个就去买朋友51Testing软件测试网EEx3~Q;^EE ^$T
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网:kX]+\ vZLW
  while   Friend_Count()<9
A$A&\h?P8j)~ n0     Buy_Friend()51Testing软件测试网1Y.t`U]&xU(gy;C
     wait (1)
?2P.?e7p/Nv#y0    wend51Testing软件测试网/B"k'w0x_#l
A6}^

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''51Testing软件测试网yG8T7GKZ9p5g@\
'折磨奴隶  和安抚奴隶
KR)Y!@;z3^P0''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
4K?j7GH@0     F_Count=Friend_Count()
5gx C/K-|5q-o Y5Q0  For  i=0 to F_Count-151Testing软件测试网/Y7]V?kG3_
    datatable.SetCurrentRow(1)51Testing软件测试网W(]%gmV(Zj9nWE
    datatable.Value("index","Action1")=i
4K)I%ccf]cT0    browser("沙").Page("沙").Frame("Frame").Link("折磨奴隶").Click51Testing软件测试网^N8@4N!|x/C
                Labor51Testing软件测试网7d$T#_e$~
    browser("沙").Page("沙").Frame("Frame").Link("安抚奴隶").Click
)sB~,s];W5ry0    Appease
9GekrE0  Next51Testing软件测试网p(u h`!`I*[g
  Fawn51Testing软件测试网(MW/{BSK/p
  Use_FateCar51Testing软件测试网hm?+Y zS@`;f7z
  PK51Testing软件测试网 ovN#vI
  Sell_Friend
:tOB:h'~
\0  while   Friend_Count()<951Testing软件测试网O-uJ$z0fR/pU'AD{
     Buy_Friend()
v%?$m\)CY0    wend51Testing软件测试网Ok|3G|y

$F;x/Szv%S7s8C0     F_Count=Friend_Count()51Testing软件测试网.L2W:xMz)G
  For  i=0 to F_Count-151Testing软件测试网]$F5g.B2~0i5g
    datatable.SetCurrentRow(1)
-Mj8r {g)AK0    datatable.Value("index","Action1")=i51Testing软件测试网*|"r7KM"BW%h,eU+u
    browser("沙").Page("沙").Frame("Frame").Link("折磨奴隶").Click
7QK-dp-rg"I0                Labor
*A
G\%Ne%C0    browser("沙").Page("沙").Frame("Frame").Link("安抚奴隶").Click
4DYpF8dv3M*k;M0    Appease
c*G1Ht3Q0  Next

h;R?^ dOA)N051Testing软件测试网#pq2l7x|] f
End Function51Testing软件测试网1M-d d!zWQ

 51Testing软件测试网3i1T8`:?fI

main()

f$T v-jS7Y#`S0 51Testing软件测试网?0{"ER.ym:J'L;qQ