QTB测试新浪微博发布和删除功能--求指点

xiaotian2456

代码如下：

Services.StartTransaction "发送微博"
Dim datacount
datacount =DataTable.GetSheet("Action1").GetRowCount  '获取本地表微博内容
For i=1 to datacount
wait(3)
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("我的首页 微博-随时随地分享身边的新鲜事儿").WebEdit("WebEdit").Click
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("我的首页 微博-随时随地分享身边的新鲜事儿").WebEdit("WebEdit").Set ""+DataTable("content",dtLocalSheet)+""
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("我的首页 微博-随时随地分享身边的新鲜事儿").WebEdit("WebEdit").Click
wait(3)
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("我的首页 微博-随时随地分享身边的新鲜事儿").Link("发布").Click
DataTable.GetSheet("Action1").SetNextRow
Next
Services.EndTransaction "发送微博"


Services.StartTransaction "删除微博"
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("我的首页 微博-随时随地分享身边的新鲜事儿").WebElement("微博").Click '转到删除页面
Do while Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("淘宝潮流馆的微博_微博").Link("@小冰").Exis
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("淘宝潮流馆的微博_微博").Link("删除").Click
wait(3)
Browser("我的首页 微博-随时随地分享身边的新鲜事儿").Page("淘宝潮流馆的微博_微博").Link("确定").Click '删除确定点击 wait(3)
Loop
Services.EndTransaction "删除微博"


问题：
1.删除一条微博后，会弹出确定框，对应代码里“Link（确定）” 这个标签。当第一次点击确定按钮之后，确定按钮还是存在页面的，只是display=none。第二次删除的时候 执行红色那段代码，就会获取2条删除数据。怎么解决呢？没有ID号