SOLVED---Recalculating DOM (continuation)---SOLVED

[diikee]

<SELECT onchange=setGainStyle(this); name=gainStyle>

<OPTION value=peakdetect selected>peakdetect</OPTION>

<OPTION value=darkdetect>darkdetect</OPTION>

<OPTION value=average>average</OPTION>

<OPTION value=clipaverage>clipaverage</OPTION>

</SELECT>

expandcollapse popup

Sleep(2000)
$gs = _IETagNameGetCollection ($oIE, "select")
For $g In $gs
    If ($g.name) = "gainStyle" then 
        $gopt = _IETagNameGetCollection($g, "OPTION")
            For $gop in $gopt 
                Sleep(2000)
                Global $o = $gop.innerText
                ConsoleWrite("Gain style is: " & $o & @CRLF) 
                _IEFormElementOptionselect($g, $o, 1, "byText")
                FileWrite($file, "Gain style is: " & $o & @CRLF)
                Sleep(2000)
                $oi = _IECreate($ip, 0)
                _IELoadWait($oi)
                _IENavigate($oi, &$ip "/get.oid?1.2.8.14")
                    Sleep(3000)
                $oid = _IEAttach(&$ip "/get.oid?1.2.8.14","URL")
                    Sleep(1000)
                $gm = _IETagNameGetCollection($oid, "PRE")
                    Sleep(1000)
                For $g in $gm
                    $id = $g.innerText
                        ConsoleWrite("GainStyle is set to: " & $id & @CRLF)
                Next
                If $id = $o Then
                        ConsoleWrite("GainStyle set successfully" & @CRLF)
                    Else
                        ConsoleWrite("GainStyle set test failed" & @CRLF)
                EndIf
                        Sleep(2000)
                    WinClose($oid)
                        Sleep(1000)
                    $oIE = _IEAttach(&$ip "/imageset.html","URL") --->>This works fine but the 2nd iteration fails
                                                    
                    _IELoadWait($oIE)
                    
            Next
        ExitLoop
    EndIf
Next

Image Page Testing

Gain style is: peakdetect

GainStyle is set to: PEAKDETECT

GainStyle set successfully

Gain style is: darkdetect

--> IE.au3 V2.4-0 Error from function _IEFormElementOptionselect, $_IEStatus_InvalidObjectType --->>darkdetect wasn't selected

GainStyle is set to: PEAKDETECT

GainStyle set test failed

Gain style is: average

--> IE.au3 V2.4-0 Error from function _IEFormElementOptionselect, $_IEStatus_InvalidObjectType --->>average wasn't selected

GainStyle is set to: PEAKDETECT

GainStyle set test failed

Gain style is: clipaverage

--> IE.au3 V2.4-0 Error from function _IEFormElementOptionselect, $_IEStatus_InvalidObjectType --->>clipaverage wasn't selected

GainStyle is set to: PEAKDETECT

GainStyle set test failed

how can I handle this problem

Edited June 27, 2008 by diikee

[DaleHohm]

As I suggested before, for testing examine the ObjName. Change:

ConsoleWrite("Gain style is: " & $o & @CRLF)

to

_IELoadWait($oIE)

ConsoleWrite("Gain style is: " & $o & " Object Type $g = " & ObjName($g) & @CRLF)

Dale

[diikee]

This is what I got after adding your changes

Gain style is: peakdetect Object Type $g = DispHTMLSelectElement

GainStyle is set to: PEAKDETECT

GainStyle set successfully

Gain style is: darkdetect Object Type $g =

--> IE.au3 V2.4-0 Error from function _IEFormElementOptionselect, $_IEStatus_InvalidObjectType

GainStyle is set to: PEAKDETECT

GainStyle set test failed

Gain style is: average Object Type $g =

--> IE.au3 V2.4-0 Error from function _IEFormElementOptionselect, $_IEStatus_InvalidObjectType

GainStyle is set to: PEAKDETECT

GainStyle set test failed

I am looking at the DispHTMLSelectElement

any more clues???

[DaleHohm]

With the information you have provided it doesn't make sense. I venture that there is other important code and behavior of the webpage that you are not sharing.

Prove this to yourself by looping through all of the elements of the $gs collection right after you create it examining ObjName and I expect they will all be DispHTMLSelectElement. If that is true, then your task is to figure out what changes between that time and when you get the error.

Dale

[diikee]

Dale,

I looped through the selection option and yes, everything is DispHTMLSelectElement. The problem seem to be when I created the other browser ($oi) and come back to the original one ($oIE).

Gain style is: peakdetect Object Type $g = DispHTMLSelectElement

Gain style is: darkdetect Object Type $g = DispHTMLSelectElement

Gain style is: average Object Type $g = DispHTMLSelectElement

Gain style is: clipaverage Object Type $g = DispHTMLSelectElement

When I created the new browser, is there another way to get back to the older browser other than by _IEAttach???

[PsaltyDS]

Dale,

I looped through the selection option and yes, everything is DispHTMLSelectElement. The problem seem to be when I created the other browser ($oi) and come back to the original one ($oIE).

Gain style is: peakdetect Object Type $g = DispHTMLSelectElement

Gain style is: darkdetect Object Type $g = DispHTMLSelectElement

Gain style is: average Object Type $g = DispHTMLSelectElement

Gain style is: clipaverage Object Type $g = DispHTMLSelectElement

When I created the new browser, is there another way to get back to the older browser other than by _IEAttach???

When you created the second instance, did you save it to a different variable? They should be something like $oIE_1 and $oIE_2, and they won't interfere with each other, you just need to specify the right one for your functions.

[diikee]

Sleep(2000)

$gs = _IETagNameGetCollection ($oIE, "select")

For $g In $gs

If ($g.name) = "gainStyle" then

$gopt = _IETagNameGetCollection($g, "OPTION")

For $gop in $gopt

Sleep(2000)

Global $o = $gop.innerText

_IELoadWait($oIE)

ConsoleWrite("Gain style is: " & $o & @CRLF)

FileWrite($file,"Gain style is: " & $o & @CRLF)

_IEFormElementOptionselect($g, $o, 1, "byText")

FileWrite($file, "Gain style is: " & $o & @CRLF)

Sleep(2000)

$oi = _IECreate($ip, 0)

_IELoadWait($oi)

_IENavigate($oi, &$ip "/get.oid?1.2.8.14")

_IELoadWait($oi)

Sleep(2000)

$oiv = _IETagNameGetCollection($oi, "XMP")

Sleep(1000)

For $oi in $oiv

$id = $oi.innerText

ConsoleWrite("GainStyle is set to: " & $id & @CRLF)

Next

Sleep(2000)

If $o = $id Then

ConsoleWrite("Gain Style: " & $o & " was set succesfully" & @CRLF)

FileWrite($file,"Gain Style: " & $o & " was set succesfully" & @CRLF)

Else

ConsoleWrite("Gain Style: " & $o & " was not set succesfully" & @CRLF)

FileWrite($file,"Gain Style: " & $o & " was not set succesfully" & @CRLF)

EndIf

WinClose($oi)

Sleep(3000)

Next

EndIf

Next

Sleep(3000)

I was able to get it going with the above function.......thanks, Dale & PsaltyDS

[PsaltyDS]

;...

$oi = _IECreate($ip, 0)

;...

For $oi in $oiv

$id = $oi.innerText

ConsoleWrite("GainStyle is set to: " & $id & @CRLF)

Next

You are reusing the browser object variable to iterate something, which loses the object for you. Try using more descriptive variable names and don't reuse the same variable for multiple purposes. When your scripts get larger and more complex you will regret this habit.