set baseLink = createObj ("micclass","Link")
setObjetProperty "baseLink","name","电脑整机"
类型不匹配: 'baseLink'
Function file: E:\QTPtest\testfun.qfl
Line (1): "'****************************************".作者: 999999 时间: 2010-3-27 23:50
我怀疑是作用域的问题,在网上找了一下,ExecuteGlobal 这个是可以修改Function外面的全局变量的,但是为什么就是调不通呢?想不明白。作者: shotstar 时间: 2010-3-28 10:37
不太清楚你的CreateObj创建的是一个什么样的对象。
我觉得首先要看你的对象是否支持那个语法,就是:baseLink("name").value="电脑属性"
在我印象里,能够这样写的语句好像也就是Description对象了。
如果你创建的是一个Web类型的对象,那么他是否支持这种语法呢?能否详细说说看,或者给我信箱发邮件。作者: 999999 时间: 2010-3-28 11:26
呵呵,刚起来上网看有没有回复咯,下面是从一堆test function 里面摘出来的。麻烦帮忙看看。谢谢
'****************************************
'直接关闭所有IE进程
'****************************************
Public function CloseAllBrowsers
SystemUtil.CloseProcessByName "iexplore.exe"
End Function
'*************************************************************
'打开网页地址
'************************************************************
Function OpenUrl( url )
Dim StartURL,IE
StartURL = url
set IE = CreateObject("InternetExplorer.Application")
IE.Visible = true
IE.Navigate StartURL
End Function
'*************************************************************
'创建对象
'************************************************************
Function createObj(ProName,ProValue)
Dim obj
Execute "Set obj = Description.Create()"
'msgbox "obj(" & Quote(ProName) & ").value = " & Quote(ProValue)
Execute "obj(" & Quote(ProName) & ").value = " & Quote(ProValue)
set createObj = obj
End Function
'*************************************************************
'Quote 函数的作用是在变量 txt 两端 加上双引号
'************************************************************
Public Function Quote (txt)
Quote = chr(34) & txt & chr(34)
End Function