Êîìïüþòåðíûé ôîðóì OSzone.net  

Êîìïüþòåðíûé ôîðóì OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   The requested action with this object has failed.: (http://forum.oszone.net/showthread.php?t=307510)

garanov 03-11-2015 21:21 2571250
The requested action with this object has failed.:
 
ïðîãà:

áåðåò è ýêñåëÿ çíà÷åíèå ññûëêè , ïåðåõîäèò ïî íåé, êëèêàåò êíîïêó "ïîêàçàòü íîìåð", êîïèðóåò çíà÷åíèå ññûëêè, âñòàâëÿåò â åêñåëü, êîïèðóåò ïîëå ñ êëàñîì person-name , âñòàâëÿåò â åêñåëü.
âñå ïðîñòî, íî !


PHP êîä:
#include <IE.au3>

$oExcel = ObjCreate('Excel.Application')
$oExcel.Visible = True
$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')

While 1
   If WinExists("Internet Explorer") Then
      WinActivate("Internet Explorer")
      ControlClick("Internet Explorer", "Çàêðûòü ïðîãðàììó", "Button2")
   EndIf


For $i = 55 to 1000 Step 1
ConsoleWrite ( $oExcel.Activesheet.Cells($i, 1).Value )
$link = $oExcel.Activesheet.Cells($i, 1).Value
Sleep(500)
$sUrl=$link
$oIE=_IECreate($sUrl,0,0,1,0)
Sleep(2000)
$oLinks=_IETagNameGetCollection($oIE, 'a')




For $oTextArea In $oLinks

    If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Ïîêàçàòü íîìåð') Then
        _IEAction($oTextArea, 'click')

         Sleep(4000)

         $Var=$oTextArea.href


         $oExcel.Activesheet.Cells($i,2).Value=$Var

          ExitLoop
              EndIf
 Next


$tags = $oIE.document.GetElementsByTagName("div")
Sleep(2000)
For $tag in $tags

       $class_value = $tag.className

    If $class_value = "person-name" Then
         Sleep(2000)
        $oExcel.Activesheet.Cells($i,3).Value=_IEPropertyGet($tag, 'innertext')
        ExitLoop

    EndIf
Next

_IEQuit($oIE)

Next
Wend 


èíîãäà âûïàäàåò îøèáêà
The requested action with this object has failed.:
$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR
>Exit code: 1 Time: 180.9

è íå ïîíÿòíà ïðè÷èíà. óæå ãîëîâó ñëîìàë :(

Mike909 03-11-2015 22:29 2571287
èíòåðåñíî ïîñìîòðåòü, à links.xlsx ôàéëà íåò äëÿ ïðèìåðà?

garanov 04-11-2015 08:17 2571381
Âëîæåíèé: 1
åñòü, âîò

garanov 04-11-2015 08:18 2571382
Âëîæåíèé: 1
âîò

garanov 04-11-2015 08:18 2571383
îé, ïðîäóáëèðîâàë :(

Mike909 04-11-2015 14:16 2571510
Ïîïðîáóéòå ýòîò âàðèàíò, ïîñòàâèë ðàçíûå ïðîâåðêè..
À êîíêðåòíî Âàøà îøèáêà

$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR

èç-çà òîãî ÷òî oIE.document íå áûë îòêðûò èëè ñ îøèáêîé ( íåò ñòðàíèöû íàïðèìåð)
ìîæíî åùå ïðîâåðÿòü $oIE íà òî, ÷òî îí - îáúåêò...

Êîä
Êîä:

#include <IE.au3>


Local $oExcel = ObjGet("", "Excel.Application")

If not IsObj($oExcel) Then
          $oExcel = ObjCreate('Excel.Application')
EndIf
Sleep(2000)

If IsObj($oExcel) Then

$oExcel.Visible = True
$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')

Sleep(1000)

       
        For $i = 1 to 15 Step 1
       
                If not IsObj($oExcel) Then
                          ConsoleWrite ('Excel not found')
                          ExitLoop
                EndIf
           
                ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
               
                $link = $oExcel.Activesheet.Cells($i, 1).Value               
                $sUrl=$link               
                $oIE=_IECreate($sUrl,0,0,1,1)               
                $oLinks=_IETagNameGetCollection($oIE, 'a')               
               
                For $oTextArea In $oLinks
                               
                    If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Ïîêàçàòü íîìåð') Then
               
                        _IEAction($oTextArea, 'click')
                               
                        Sleep(500)
                               
                        $Var=$oTextArea.href
                        $oExcel.Activesheet.Cells($i,2).Value=$Var
       
                        ExitLoop
               
                    EndIf
               
                Next
               
       
                $tags = $oIE.document.GetElementsByTagName("div")               
                ;Sleep(2000)
                if  IsObj($tags) Then
                        For $tag in $tags
               
                            $class_value = $tag.className
               
                            If $class_value = "person-name" Then
                       
                                ;Sleep(2000)               
                                $oExcel.Activesheet.Cells($i,3).Value=_IEPropertyGet($tag, 'innertext')               
                                ExitLoop
               
                            EndIf
                       
                        Next
                EndIf
                _IEQuit($oIE)
               
        Next
       
Else

 ConsoleWrite ("Excel is running." & @LF)
 
EndIf

ConsoleWrite ("Exit au3." & @LF)

garanov 04-11-2015 21:25 2571664
ñïàñèáî.
íî òåïåðü ýòî :

PHP êîä:
The requested action with this object has failed.:
$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR 
âîò âàì ôàéë ìîé(áîëüøîé). ÷óòü ïîäîëüøå âûïîëíÿåòñÿ è ïàäàåò.
ìîæåò ìîæíî êàêóþ-òî ïðîâåðêó äîáàâèòü ïåðåä

$oIE.document.GetElementsByTagName("div")

?

äîáàâèë if IsObj($oIE) Then ... íå ïîìîãëî :(

garanov 04-11-2015 21:39 2571670
Âëîæåíèé: 1
ôàéë links ïîáîëüøå

Mike909 04-11-2015 22:44 2571700
Âîò ïîïðîáóé òàêîé âàðèàíò.
äî 100 ïðîáîâàë, íîðì.
Ñêðûòûé òåêñò

PHP êîä:
#include <IE.au3>

_IEErrorNotify(False)

Local $oExcel = ObjGet("", "Excel.Application")

If not IsObj($oExcel) Then
      $oExcel = ObjCreate('Excel.Application')
EndIf
Sleep(2000)

If IsObj($oExcel) Then

$oExcel.Visible = True
$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')

Sleep(2000)
    
    For $i = 1 to 15 Step 1
        
    
        If not IsObj($oExcel) Then
              ConsoleWrite ('Excel not found')
              ExitLoop
        EndIf
        
        ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
        Local $boolIsRealPage = False
        $link = $oExcel.Activesheet.Cells($i, 1).Value        
        $sUrl=$link        
        $oIE=_IECreate($sUrl,1,0,1,0)
        ;Sleep(200)        
        $oLinks=_IETagNameGetCollection($oIE, 'a')    
            
        if IsObj($oLinks) Then
            ;ConsoleWrite ('links=' & $oLinks.Length & @LF)
            ;Sleep(200)
            For $oTextArea In $oLinks
                    
                If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Ïîêàçàòü íîìåð') Then
                  
                     _IEAction($oTextArea, 'click')
                    
                     Sleep(500)
                    
                     $Var=$oTextArea.href
                     $oExcel.Activesheet.Cells($i,2).Value=$Var
                     $boolIsRealPage = True
                     ExitLoop
            
                EndIf
            
            Next
        Else
           ConsoleWrite ('links no obj' & @LF)            
        EndIf
    
        if $boolIsRealPage Then
            $tags = $oIE.document.GetElementsByTagName("div")        
            if  IsObj($tags) Then
                ;ConsoleWrite ('tags=' & $tags.Length & @LF)
                ;Sleep(200)
                For $tag in $tags
                   
                    $class_value = $tag.className
            
                    If $class_value = "person-name" Then
                
                        $oExcel.Activesheet.Cells($i,3).Value=_IEPropertyGet($tag, 'innertext')        
                        ExitLoop
            
                    EndIf
                
                Next
            Else
               ConsoleWrite ('tags no obj' & @LF)
            EndIf
        Else
            ConsoleWrite ('Bad page - no tel.' & @LF)
        EndIf
        _IEQuit($oIE)
        
    Next
    
Else

 ConsoleWrite ("Excel is running." & @LF)
 
EndIf

ConsoleWrite ("Exit au3." & @LF) 

garanov 05-11-2015 08:05 2571753
PHP êîä:
The requested action with this object has failed.:
ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
ConsoleWrite ( $i & ' ' & $oExcel.Activesheet^ ERROR 

åñëè óáðàòü ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
, òî îøèáêà äàëüøå â $link = $oExcel.Activesheet.Cells($i, 1).Value


÷òî-òî âñå æå ñ $oExcel.Activesheet.Cells($i, 1).Value. ìîæåò ïåðåïîëíÿåòñÿ êàêàÿ-òî ïàìÿòü ? êàêóþ áû ïðîâåðêó ïèõíóòü òóäà.þ ÷òîáû â ñëó÷àå îøèáêè òàì, îí ïðîñòî ïðîõîäèë äàëüøå. :unsure:

Mike909 05-11-2015 10:15 2571784
Öèòàòà:
÷òî-òî âñå æå ñ $oExcel.Activesheet.Cells($i, 1).Value. ìîæåò ïåðåïîëíÿåòñÿ êàêàÿ-òî ïàìÿòü ?
ó ìåíÿ ïîäîáíûå îøèáêè áûëè òîëüêî êîãäà ÿ âî âðåìÿ âûïîëíåíèÿ ñêðèïòà çàêðûâàþ excel ðó÷êàìè.
Ñîîòâåòñòâåííî ìîæíî ïîñòàâèòü äîïîëíèòåëüíî ïåðåä çàïèñüþ â ÿ÷åéêó ïðîâåðêó If not IsObj($oExcel) Then ...

Âîîáùå ïåðåä çàïóñêîì ñêðèïòà íóæíî ïðîâåðèòü ÷òîáû ïðîöåññû excel.exe è iexplore.exe áûëè çàêðûòû, ñíÿòü èõ â äèñïåò÷åðå çàäà÷. Òîãäà îøèáîê íå äîëæíî áûòü íèêàêèõ.

PS:
åùå â íà÷àëå ãëàâíîãî öèêëà âñå òàêè íóæåí òàéìàóò )) , ñàéò ìîæåò áëîêèðíóòü âðåìåííî ïî IP åñëè ñëèøêîì ÷àñòî èäóò çàïðîñû:
PHP êîä:
For $i = 1 to 100 Step 1
    Sleep(1000) 

Mike909 05-11-2015 11:11 2571811
Îêîí÷àòåëüíûé âàðèàíò ñêðèïòà:

Ñêðûòûé òåêñò
PHP êîä:
#include <IE.au3>

Local $oIE, $oLinks, $tags, $boolIsRealPage

_IEErrorNotify(False)

;Óäàëåíèå êýøà IE
RunWait(@SystemDir & '\RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8', '', @SW_HIDE) 

; Îòêðûâàåì IE
My_New_IE()    

;Ñîçäàåì Excel
Local $oExcel = ObjGet("", "Excel.Application")
If not IsObj($oExcel) Then
      $oExcel = ObjCreate('Excel.Application')
EndIf

If IsObj($oExcel) Then

$oExcel.Visible = True
$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')
    
    For $i = 1 to 250 Step 1
        Sleep(1000)
            
        If not IsObj($oExcel) Then
              ConsoleWrite ('Excel not found')
              ExitLoop
        EndIf
        
        $boolIsRealPage = False
        $link = $oExcel.Activesheet.Cells($i, 1).Value        
        ConsoleWrite ( $i & ' ' & $link & @LF)
        _IENavigate($oIE, $link, 0)       ; òóò íå æäåì ïîêà çàãðóçèòñÿ
        _IELoadWait($oIE, 5000 , 15000)      ;  à òóò æäåì ìàêñèìóì 15 ñåê
            if @error Then  ; 2 ïîïûòêà
                ConsoleWrite ('2 try' & @LF)    
                My_New_IE()            
                _IENavigate($oIE, $link, 0)       ; òóò íå æäåì ïîêà çàãðóçèòñÿ
                _IELoadWait($oIE, 5000 , 15000)      ;  à òóò æäåì ìàêñèìóì 15 ñåê
            EndIf
        if not @error Then
                ConsoleWrite (' open url ')    
                $oLinks=_IETagNameGetCollection($oIE, 'a')    
                ConsoleWrite (', get collecion a ' & @LF)    
                    
                if IsObj($oLinks) Then
                    ConsoleWrite (' links=' & $oLinks.Length & ' ')
                    Sleep(200)
                    For $oTextArea In $oLinks
                            
                        If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Ïîêàçàòü íîìåð') Then
                          
                             _IEAction($oTextArea, 'click')
                            
                             Sleep(500)
                            
                             $oExcel.Activesheet.Cells($i,2).Value=$oTextArea.href
                             $boolIsRealPage = True
                             ExitLoop
                    
                        EndIf
                    
                    Next
                Else
                   ConsoleWrite ('links no obj' & @LF)            
                EndIf
            
                if $boolIsRealPage Then
                    $tags = $oIE.document.GetElementsByTagName("div")        
                    if  IsObj($tags) Then
                        ConsoleWrite ('tags=' & $tags.Length & @LF)
                        Sleep(200)
                        For $tag in $tags
                           
                            $class_value = $tag.className
                    
                            If $class_value = "person-name" Then
                        
                                $oExcel.Activesheet.Cells($i,3).Value=_IEPropertyGet($tag, 'innertext')        
                                ExitLoop
                    
                            EndIf
                        
                        Next
                    Else
                       ConsoleWrite ('tags no obj' & @LF)
                    EndIf
                Else
                    ConsoleWrite ('Bad page - no tel.' & @LF)
                EndIf
                
           Else
                ; â ñëó÷àå îøèáêè IE - ïåðåîòêðûâàåì 
                ConsoleWrite ('New IE content' & @LF)    
                My_New_IE()    

            
           EndIf
    Next
    
Else

 ConsoleWrite ("Excel is running." & @LF)
 
EndIf
_IEQuit($oIE)

ConsoleWrite ("Exit au3." & @LF)


;----------------------------------------
Func My_New_IE()

   If  IsObj($oIE) Then
       _IEQuit($oIE)
   EndIf   
   $oIE=_IECreate("about:blank",1,0,1)    
        
EndFunc 


Óáðàë ïîñòîÿííîå îòêðûòèå çàêðûòèå IE, çàìåíèë íà îòêðûòèå ññûëêè â òîì æå îêíå, äîáàâèë ïåðåîòêðûòèå â ñëó÷àå îøèáêè/çàâèñîíà.
Òàéìàóòû ìîæíî íàâåðíîå ïåðåäåëàòü, íî ýòî óæå íå ñóòü.

ÇÛ: Âîîáùå IE íåóêëþæèé ìîíñòð..

Mike909 05-11-2015 13:05 2571843
ïîäïðàâèë ñêðèïò âûøå.

garanov 05-11-2015 20:17 2571997
íäû. âèäèìî ïðîáëåìó ó ìåíÿ.
The requested action with this object has failed.:
$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR
à êàêàÿ ó âàñ ÎÑ íà êîìïüþòåðå è êàêîé Internet Explorer ìîæíî ïîèíòåðåñîâàòüñÿ ? :(

Mike909 05-11-2015 20:29 2571998
Win 10 (10576) 32x, IE 11
ó Âàñ îøèáêè âñå ñâÿçàíû ñ îòñóòñòâèåì îáúåêòà, â äàííîì ñëó÷àå $oIE, ìîæåò îí ñëåòàåò? Ìîãó ïîñîâåòîâàòü îäíîâðåìåííî ñ âûïîëíåíèåì ñêðèïòà ïðîñìîòðåòü â äèñïåò÷åðå çàäà÷ ïîâåäåíèå IE.

garanov 06-11-2015 07:52 2572087
äà. Íóæíî ðàçîáðàòüñÿ ñ ïîâåäåíèåì IE.
Ñïàñèáî çà âàøó ïîìîùü :up , äîáåðóñü äî ýòîé ïðîáëåìû ïîñëå âûõîäíûõ. Ñþäà îòïèøóñü.

garanov 09-11-2015 12:18 2572981
Âñå ðàáîòàåò... ïðàâäà ó ìåíÿ òîæå ñòîèò âèí 10 32õ, íî âñå ðàáîòàåò )
Äóìàþ ïðîáëåìà áûëà â ðàçðÿäíîñòè IE. îí ïîõîæå ïóòàëñÿ êîãäà êàêîé çàïóñêàòü.
ñïàñèáî çà ïîìîùü!


Âðåìÿ: 21:51.

Âðåìÿ: 21:51.
© OSzone.net 2001-