Action1
Browser("micClass:=Browser").Navigate "bbs.51Testing.com"
Call NavigatePage("[QuickTest Professional]","論壇")
Function NavigatePage(linkName,keyWord)
Set objBrowser = description.Create()
objBrowser("micClass").value = "Browser"
Set objPage = description.Create()
objPage("micClass").value = "Page"
Set objLink = description.Create()
objLink("html tag").value = "A"
objLink("text").value = linkName
Dim checkTitle
Browser(objBrowser).Page(objPage).Link(objLink).Click
checkTitle=Browser(objBrowser).Page(objPage).GetROProperty("title")
'驗證title，如果checkTitle字串含有“keyWord”，則表示成功進入某頁面
If Instr(checkTitle,keyWord) <> 0 Then
Reporter.ReportEvent micPass,"NavigatePage","Pass"
Else
Reporter.ReportEvent micFail,"NavigatePage","Fail"
End If
Set objBrowser = nothing
Set objPage = nothing
Set objLink = nothing
End Function
Run Error:
Cannot identify the object "[ Link ]" (of class Link). Verify that this object's properties match an object currently displayed in your application.
求高手解答，本人是初學者。
uj5u.com熱心網友回復：
高手呢？這個問題一直解決不了
uj5u.com熱心網友回復：
你代碼中的description是啥物件搞不清楚，你也沒說那個報錯是單步執行到哪一句時出現的，也許是取Link(objLink)時找不到相應物件吧。對了你這代碼怎么變數都沒型別啊，不會是VBS吧
uj5u.com熱心網友回復：
Sub NavigatePage(linkName,keyWord)
Set objBrowser = description.Create()
objBrowser("micClass").value = "Browser"
Set objPage = description.Create()
objPage("micClass").value = "Page"
Set objLink = description.Create()
objLink("html tag").value = "A"
objLink("text").value = linkName
Dim checkTitle
Browser(objBrowser).Page(objPage).Link(objLink).Click
checkTitle=Browser(objBrowser).Page(objPage).GetROProperty("title")
'驗證title，如果checkTitle字串含有“keyWord”，則表示成功進入某頁面
If Instr(checkTitle,keyWord) <> 0 Then
Reporter.ReportEvent micPass,"NavigatePage","Pass"
Else
Reporter.ReportEvent micFail,"NavigatePage","Fail"
End If
Set objBrowser = nothing
Set objPage = nothing
Set objLink = nothing
End Sub
用方法，不要用函式；VB對方法和函式是有明顯區別的。
如果用 Function 必須要有 As [XX型別]，而且最后要有對應的 Return；
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/129708.html
標籤：控件