'控制QTP最小化
'Dim objQTPWin
'Set objQTPWin = GetObject("" , "QuickTest.Application")
'objQTPWin.WindowState = "Minimized"
Systemutil.Run "iexplore","http://www.yy365.com/"
browName = ".*www\.yy365\.com.*"
Set yy365Page = Browser("openurl:="&browName).Page("url:="&browName)
Set yy365Browser = Browser("openurl:="&browName)
sysPage yy365Page,yy365Browser
'控制游览器最小化
'Dim hwnd
'hwnd=yy365Browser.Object.HWND
'window("hwnd:="&hwnd).minimize
'检查是否登录
checkIsLogin yy365Page,yy365Browser
'发布内容
publichContent yy365Page,yy365Browser
'接受好友
acceptFirends yy365Page,yy365Browser
'访问好友
visitFriends yy365Page,yy365Browser
'关闭游览器
yy365Browser.Close
'objQTPWin.WindowState = "Restored"
'Set objQTPWin = Nothing
'对一个好友进行评论
Function pinglun(obj,num,yy365Page,yy365Browser)
obj.Click
sysPage yy365Page,yy365Browser
Set louzhu = Description.Create
louzhu("micclass").value = "Link"
louzhu("href").value = ".*www\.yy365\.com\/home\!other\.do.*"
Set louzhuchild = yy365Page.ChildObjects(louzhu)
wait 1
On error Resume next
yy365Page.WebEdit("name:=comment_editor_aid","html tag:=TEXTAREA").Click
Dim louzhuname
louzhuname = louzhuchild(1).getROProperty("innertext")
Dim pingluncontent
pingluncontent = getResponeContent( louzhuname)
yy365Page.WebEdit("name:=comment_editor_aid","html tag:=TEXTAREA").Set pingluncontent
yy365Page.WebButton("name:=发表评论","html tag :=INPUT","type:=button").Click
wait 1
yy365Browser.Back
sysPage yy365Page,yy365Browser
End Function
'对不同好友的评论进行回复
Function pinglunCallBack(num,yy365Page,yy365Browser)
Set mydesc = Description.Create
mydesc("micclass").value = "Link"
mydesc("text").value = "评论.*"
Set pinglunchild = yy365Page.ChildObjects(mydesc)
On error Resume next
pinglun pinglunchild(num),(num),yy365Page,yy365Browser
