Trouble Clicking Button IE

[careca]

Hi, i feel im close to getting it to work, but there must be something im missing that's probably easy for you experts.

Spoiler

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\W10\Desktop\BeeMp3.au3" /UserParams    
+>22:12:47 Starting AutoIt3Wrapper v.18.708.1148.0 SciTE v.4.1.0.0   Keyboard:00000816  OS:WIN_10/  CPU:X64 OS:X64  Environment(Language:0409)  CodePage:0  utf8.auto.check:4
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\W10\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\W10\AppData\Local\AutoIt v3\SciTE
>Running AU3Check (3.3.14.5)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\W10\Desktop\BeeMp3.au3
+>22:12:47 AU3Check ended.rc:0
>Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "C:\Users\W10\Desktop\BeeMp3.au3"    
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
--> IE.au3 T3.0-2 Warning from function _IEGetObjById, $_IESTATUS_NoMatch (col-md-12)
--> IE.au3 T3.0-2 Error from function _IEAction(click), $_IESTATUS_InvalidDataType
Download / Play
Download / Play
Download / Play
Download / Play
Download / Play
Download / Play
Download / Play
Download / Play
Download / Play
Download / Play
+>22:12:54 AutoIt3.exe ended.rc:0
+>22:12:54 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 7.542

expandcollapse popup

#include <IE.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>

$Visible = 1
Local $oIE
$oIE = _IECreate("https://beemp3s.net/mp3-download.html", 0, $Visible, 1, 1)
_IELoadWait($oIE)
If $oIE <> @error Then
    ;_ArrayText()
    _QuerySite('Finding Hope - Without You')
    ;_IEQuit($oIE)
    ;Exit
Else
    MsgBox(64 + 262144, 'Fail', 'Could not create a new window')
EndIf

;=============================================================================

Func _QuerySite($Name)
    Local $oIE_ObjectToSearch = _IEGetObjById($oIE, 'query')
    _IEDocInsertText($oIE_ObjectToSearch, $Name)
    Local $oIE_ObjectToClick = _IEGetObjById($oIE, "search-action")
    _IEAction($oIE_ObjectToClick, 'click')
    _IELoadWait($oIE, 2000)
    ;=============================================================================
    Local $oSubmitClick = _IEGetObjById($oIE, "col-md-12")
    _IEAction($oSubmitClick, "click")
    _IELoadWait($oIE, 2000)
    ;=============================================================================
    Local $oBtns = _IETagNameGetCollection($oIE, "div")
    For $oBtn In $oBtns
        If String($oBtn.classname) = "col-md-12" Then
            If String($oBtn.innertext) = "Download / Play" Then
                ConsoleWrite($oBtn.innertext & @CRLF)
                _IEAction($oBtn, 'click')
            EndIf
        EndIf
    Next
    ;=============================================================================
    ;Local $oElements = _IETagNameAllGetCollection($oIE)
    ;For $oElement In $oElements
    ;    If $oElement.id Then MsgBox($MB_SYSTEMMODAL, "Element Info", "Tagname: " & $oElement.tagname & @CRLF & "id: " & $oElement.id & @CRLF & "innerText: " & $oElement.innerText)
    ;Next
    ;=============================================================================
    ;_IEQuit($oIE)
    ;Exit
    ;=============================================================================
EndFunc   ;==>_QuerySite

;=============================================================================

Func _ArrayText()
    If FileExists('Titles.txt') Then
        Local $FO = FileOpen('Titles.txt')
        Local $R2A = FileReadToArray($FO)
        Local $iLineCount = @extended
        FileClose($FO)
        For $f = 0 To $iLineCount - 1
            ConsoleWrite($f & ' - ' & $R2A[$f] & @CRLF)
            _QuerySite($R2A[$f])
        Next
    Else
        MsgBox(64 + 262144, 'Fail', 'Could not find the file Titles.txt')
    EndIf
EndFunc   ;==>_ArrayText

;=============================================================================

The idea is to get into this site, write into the search and click, which i did, but now the problem is clicking in any of the buttons in the results page, im looking for a way to click the first one, it always matches to what i want, so no need to fiddle around.

Site

Thanks for help in advance.

[Danp2]

2 hours ago, careca said:

_IEDocInsertText($oIE_ObjectToSearch, $Name)

Interesting that this works. Normally, I would write this as --

_IEFormElementSetValue($oIE_ObjectToSearch, $Name)

Quote

Local $oBtns = _IETagNameGetCollection($oIE, "div")

Instead of getting a collection of divs, try using _IELinkGetCollection (each div contains a link) and then process the link collection for the desired class name.

[careca]

Ah yes, thanks, changed for setvalue.

But for the rest of it, the getcollection outputs zero.

expandcollapse popup

#include <IE.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>

$Visible = 1
Local $oIE
$oIE = _IECreate("https://beemp3s.net/mp3-download.html", 0, $Visible, 1, 1)
_IELoadWait($oIE)
If $oIE <> @error Then
    ;_ArrayText()
    _QuerySite('Finding Hope - Without You')
    ;_IEQuit($oIE)
    ;Exit
Else
    MsgBox(64 + 262144, 'Fail', 'Could not create a new window')
EndIf

;=============================================================================

Func _QuerySite($Name)
    Local $oIE_ObjectToSearch = _IEGetObjById($oIE, 'query')
    ;_IEDocInsertText($oIE_ObjectToSearch, $Name)
    _IEFormElementSetValue($oIE_ObjectToSearch, $Name)
    Local $oIE_ObjectToClick = _IEGetObjById($oIE, "search-action")
    _IEAction($oIE_ObjectToClick, 'click')
    _IELoadWait($oIE, 2000)
    ;=============================================================================
    Local $oSubmitClick = _IEGetObjById($oIE, "col-md-12")
    _IEAction($oSubmitClick, "click")
    _IELoadWait($oIE, 2000)
    ;=============================================================================
    Local $oLinks = _IELinkGetCollection($oIE)
    ConsoleWrite('$oLinks ' & $oLinks & @CRLF)
    Local $iNumLinks = @extended
    ConsoleWrite('$iNumLinks ' & $iNumLinks & @CRLF)
    Local $sTxt = $iNumLinks & " links found" & @CRLF & @CRLF
    For $oLink In $oLinks
        $sTxt &= $oLink.href & @CRLF
    Next
    ;=============================================================================
    #cs
        Local $oBtns = _IETagNameGetCollection($oIE, "div")
        For $oBtn In $oBtns
        If String($oBtn.classname) = "col-md-12" Then
        If String($oBtn.innertext) = "Download / Play" Then
        ConsoleWrite($oBtn.innertext & @CRLF)
        _IEAction($oBtn, 'click')
        EndIf
        EndIf
        Next
    #CE
    ;=============================================================================
    ;Local $oElements = _IETagNameAllGetCollection($oIE)
    ;For $oElement In $oElements
    ;    If $oElement.id Then MsgBox($MB_SYSTEMMODAL, "Element Info", "Tagname: " & $oElement.tagname & @CRLF & "id: " & $oElement.id & @CRLF & "innerText: " & $oElement.innerText)
    ;Next
    ;=============================================================================
    ;_IEQuit($oIE)
    ;Exit
    ;=============================================================================
EndFunc   ;==>_QuerySite

;=============================================================================

Func _ArrayText()
    If FileExists('Titles.txt') Then
        Local $FO = FileOpen('Titles.txt')
        Local $R2A = FileReadToArray($FO)
        Local $iLineCount = @extended
        FileClose($FO)
        For $f = 0 To $iLineCount - 1
            ConsoleWrite($f & ' - ' & $R2A[$f] & @CRLF)
            _QuerySite($R2A[$f])
        Next
    Else
        MsgBox(64 + 262144, 'Fail', 'Could not find the file Titles.txt')
    EndIf
EndFunc   ;==>_ArrayText

;=============================================================================

 

[Danp2]

This code

Local $oSubmitClick = _IEGetObjById($oIE, "col-md-12")
    _IEAction($oSubmitClick, "click")
    _IELoadWait($oIE, 2000)

results in the following errors

--> IE.au3 T3.0-2 Warning from function _IEGetObjById, $_IESTATUS_NoMatch (col-md-12)
--> IE.au3 T3.0-2 Error from function _IEAction(click), $_IESTATUS_InvalidDataType

It also appears to be unneeded since the code immediately before it clicks the search button.

Here's a working version of the other code --

Local $oLinks = _IELinkGetCollection($oIE)
    Local $iNumLinks = @extended
    ConsoleWrite('$iNumLinks ' & $iNumLinks & @CRLF)
    Local $sTxt = $iNumLinks & " links found" & @CRLF & @CRLF
    For $oLink In $oLinks
        $sTxt &= $oLink.href & @CRLF
    Next
    ConsoleWrite($sTxt)

 

[careca]

Yea that first code gives that error, but i decided to leave it there in case i need to use it in the future for something else, i've been ignoring it.

But for the second code, i want to click the button, so do i use $sTxt in the _ieaction?

Cannot try it out as im not home atm.

[Danp2]

13 minutes ago, careca said:

But for the second code, i want to click the button, so do i use $sTxt in the _ieaction?

$sTxt isn't useful; it's just to show the details on the found links. You would need to do something like this to click the first download link --

Local $oLinks = _IELinkGetCollection($oIE)
    For $oLink In $oLinks
        If StringInStr(String($oLink.classname), 'init-download') Then
            _IEAction($oLink, "click")
            ExitLoop
        EndIf
    Next

 

[careca]

I'll check it out when i get home, thanks.

[careca]

OK, so i stumbled on another problem, it's just that once i click the button, the page redirects, and opens a new tab, in this new tab is what i need to act uppon, but im stuck in the redirected window so no code works obviously, so i did the _IEAttach to the link of the new tab, which is always the same, but contains the button/link for the download itself, but curiously, after the attach without errors, i call the source code and to my surprise it is still the one from the redirected window.

Searched all around an cannot find a way to "jump" into this new tab, if i close the original, all shuts down.

[Danp2]

No idea. And I'm done messing with that site because it redirects to rotumal.com, which is associated with some bad behavior.

https://blog.malwarebytes.com/detections/rotumal-com/

[careca]

Ah, nice, that's why adguard blocked the site.

Searching for an alternative i came across this:

https://mp3skull.us/video/Finding-Hope---Without-You-(Lyric-Video)-feat.-Holly-Drummond/FlY_ei-FnGY/

Tried many ways of clicking the button, or get the link where it's highlighted, do you have any ideas?

Thanks in advance.

The normal _IEGetObjById and click fails, invalid id.

Edited November 20, 2018 by careca

[Danp2]

Did you take into account the iframe?

[careca]

I didn't initially, now im struggling with it, getting lots of errors, even with the example from the help file, i could figure out there are 2 frames, but that's it, stuck.

More specifically when i try the code from help:

Local $oFrames = _IEFrameGetCollection($oIE)
Local $iNumFrames = @extended
Local $sTxt = $iNumFrames & " frames found" & @CRLF & @CRLF
Local $oFrame = 0
For $i = 0 To ($iNumFrames - 1)
    $oFrame = _IEFrameGetCollection($oIE, $i)
    $sTxt &= _IEPropertyGet($oFrame, "innertext") & @CRLF
Next
MsgBox($MB_SYSTEMMODAL, "Frames Info", $sTxt)

I get

"C:\Program Files (x86)\AutoIt3\Include\IE.au3" (2295) : ==> The requested action with this object has failed.:
$oTemp = $oObject.document.body
$oTemp = $oObject^ ERROR

And that it points into IE.au3 in line 2295

Edited November 20, 2018 by careca

[Danp2]

 

[Juvigy]

Did you try just navigating to the href url? Maybe it doesnt change so it will be the easiest thing to do.

[careca]

Hi, thanks for the suggestion, i abandoned this, found another site and completed the tool, an mp3 downloader for youtube videos,

ended up being forbidden here because apparently it violates the google TOS.

So i kept the tool just for myself.

[donaldcassey]

Don't know about all this coding work up there but yes I know a different and a easy way to download your file into mp3. I myself using this since 8+ months simple just visit https://scdownloader.online and paste your link click the download button. In just a click your file will be downloaded.

Edited January 31, 2019 by donaldcassey