测试新浪微博的评论功能,任意选取一条微博,发表评论,需要用到描述性语言,还有QTP中的正则表达式
systemutil.Run "C:\Program Files\Internet Explorer\iexplore.exe", "http://weibo.com/"
'输入账号和密码登录微博。
Browser("微博-随时随地分享身边的新鲜事儿").Page("微博-随时随地分享身边的新鲜事儿").WebEdit("username").Set DataTable("TD_userName", dtGlobalSheet)
Browser("微博-随时随地分享身边的新鲜事儿").Page("微博-随时随地分享身边的新鲜事儿").WebEdit("password").SetSecure DataTable("DT_password", dtGlobalSheet)
Browser("微博-随时随地分享身边的新鲜事儿").Page("微博-随时随地分享身边的新鲜事儿").Link("登录").Click
'任意选取一条微博,发表评论。
Set linkPP = Description.Create
linkPP = ("html tag").value = "A"
linkPP = ("text").value = "评论.*"
set Links = Browser("name:=我的首页 微博-随时随地分享身边的新鲜事儿").page("ti