自动退出为哪般？

jiataifeng

程序中有：$oQuerys = _IEFormElementGetCollection($Form)
当访问：$Query.name   时一般情况下不会出什么问题。
可是如果根本就没有"name"这个属性时，程序会自动退出。
这不是程序的问题，现在不想让它退出。
有没有一个判断的过程，即想要如下效果：
                if not func($Query.name) then
                        $a ="NOT Exist"
                        Else
                $a= $Query.name
endif
..............
请问有没有一个这样的过程func()?
谢谢

[ 本帖最后由 jiataifeng 于 2008-5-20 19:03 编辑 ]

asdf

你可设定了Com error处理函数？

jiataifeng

没有啊，怎么设定？

asdf

＝ ＝……看帮助去吧，老大……

jiataifeng

好。
不过你懂就说一下嘛。

jiataifeng

是用OPT设置吗，帮助里好像也没有啊。
错误处理我好像在哪里见过，只是想不起来了。

jiataifeng

是这个吗，不过好像没反应啊。
Opt("RunErrorsFatal", 0)
好像是错的

asdf

ObjEvent ( "AutoIt.Error" [, "函数名称"] )
这样就注册了一个com错误处理函数了……
看帮助啊……

jiataifeng

不行。
不借助com能行吗？
因为用到的某些方法com中好像没有。
_IEFormGetCollection($oIE)
_IEFormElementGetCollection($Form)
怎么用在coM中？
晕

jiataifeng

原帖由 jiataifeng 于 2008-5-20 08:36 发表
不行。
不借助com能行吗？
因为用到的某些方法com中好像没有。
_IEFormGetCollection($oIE)
_IEFormElementGetCollection($Form)
怎么用在coM中？
晕

白说无用。请结合一楼看看下面的代码如何修改。
到第四个表单时因为访问了不存在的属性，自动退出。

#include <IE.au3>
#include <Array.au3>
Dim $FormArray[500][4]
Dim $NFArray[500][500][4]
Dim $fmaxlengthc[4]
Dim $Qmaxlengthc[4]  ;每个表单获取的元素的最大长度数
dim $formname[500] ;存储表单名称
dim $j = 0

$oIE =_IECreate("http://news.sina.com.cn",1,1)
$oForms = _IEFormGetCollection($oIE)
For $Form In $oForms
        $formname[$j]=$Form.name
        $jtf=$j+1
        if @extended<>0 then 
                $numbd=@extended
                EndIf
        TrayTip("表单信息","这个页面上共有" & $numbd & "个表单"&@CRLF&"第"&$jtf&"个表单的名字为："&$Form.name,50)
        Sleep(2000)
        $i = 0
        $oQuerys = _IEFormElementGetCollection($Form)
        For $Query In $oQuerys
                ;MsgBox(0,"t", $Query.name)
        
                $FormArray[$i][1] = $Query.name
                $FormArray[$i][2] = $Query.type
                $FormArray[$i][3] = $Query.value
                $i += 1
        Next
        
        ReDim $FormArray[$i][4]
        $txt="表单控件信息"&$formname[$j]
        _ArrayDisplay($FormArray,$txt )
        ReDim $FormArray[500][4];不知道为什么要这样
        $j += 1
        Next

[ 本帖最后由 jiataifeng 于 2008-5-20 09:04 编辑 ]

asdf

真无语，看说明啊＝ ＝！！！
既然已经使用了IEUDF，那么就这样注册错误处理：
_IEErrorHandlerRegister ( "ErrNotify" )

最最简单的错误处理函数：
Func ErrNotify()
        SetError(1)
EndFunc

jiataifeng

楼上说的很对。谢谢