Can someone help get all link from page Please

[Mannyfresh31]

OK here I go...

The script used to work but now it doesn't due to Edge update and now edge pops up automatically instead Internet Explorer

I wish I could do this with edge as I used to do with IE 

there is the script I Wrote

Someone Help Please

side note: I check Webdriver and  I'm unable to achieve it due to lack of knowledge but if someone gives me an idea maybe.

 

 

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;/////////Custom Library////////
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>

#RequireAdmin

MsgBox(0,"",IsAdmin())
#Region ### START Koda GUI section ### Form=C:\Users\Manuel\Documents\GetLinks theme.kxf
$Form1 = GUICreate("Descargar Enlaces de Youtube", 729, 228, 192, 124)
$LabelScroll = GUICtrlCreateLabel("Scrolls", 640, 75, 66, 17)
$ComboScroll = GUICtrlCreateCombo("", 640, 90, 60, 21)
 ; Add additional items to the combobox.
GUICtrlSetData($ComboScroll, "10|20|30|40|50|60|70|80|100","10")
$Input1 = GUICtrlCreateInput("", 8, 48, 489, 21)
$Button1 = GUICtrlCreateButton("Optener Enlaces", 513, 40, 103, 33)
$Input2 = GUICtrlCreateInput("", 9, 136, 487, 21)
$Button2 = GUICtrlCreateButton("Guardar", 513, 123, 103, 41)
$Label1 = GUICtrlCreateLabel("Ingrese un Canal de Videos de Youtube", 16, 16, 260, 17)
$ButtonP = GUICtrlCreateButton("Pegar", 400, 10, 80, 30)
$Label2 = GUICtrlCreateLabel("Guardar en...", 24, 112, 66, 17)
$Label3 = GUICtrlCreateLabel("0", 16, 176, 66, 17)
$Label4 = GUICtrlCreateLabel("Links/Videos", 60, 176, 76, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            GetLinks ()

        Case $Button2
            Save ()

        Case $ButtonP
        GUICtrlSetData($Input1, ClipGet())




    EndSwitch
WEnd


Func Save ()
    $Name = "Mis Enlaces_" & @MON & "-" & @MDAY & "-" & @HOUR & "-" & @MIN
    $mensaje = "Elige un Lugar y Nombre para el Archivo de los Enlaces"
    Global $sFileSaveDialog =  FileSaveDialog ( $mensaje, "::{450D8FBA-AD25-11D0-98A8-0800361B1103}", "Texto (*.txt)",2,$Name,$Form1 )
    GUICtrlSetData($Input2,$sFileSaveDialog)
    EndFunc


Func GetLinks ()
    $MyURL = GUICtrlRead($Input1 )
    $MyFile = GUICtrlRead($Input2 )
    if $MyURL = "" then
        MsgBox(16,"Hey!!","Ingresa un Canal de Youtube!!!",0)
        Return
    EndIf
    if $MyFile = ""  Then
        MsgBox(16,"Hey!!","Ingresa un Lugar para Guardar el Archivo con Los Enlaces!!!",0)
        Return
    EndIf

    $MyComboRead = GUICtrlRead($ComboScroll)

    $oIE = _IECreate($MyURL,0,1,1)
    _IENavigate ($oIE,$MyURL)


Sleep(500)

Send("{TAB}")

For $scroll = 1 To $MyComboRead


    Send("{PGDN}")
    Sleep(1000)
Next

$oLinks = _IELinkGetCollection($oIE)
 $iNumLinks = @extended

 $sTxt = ""
For $oLink In $oLinks
    if StringInStr ($oLink.href, "watch?v=") then $sTxt &= $oLink.href & @CRLF
Next


$MyFileOpened = FileOpen($MyFile,2)
FileWrite($MyFileOpened,$sTxt)
FileClose($MyFileOpened)
$MyFileArray = FileReadToArray($MyFile)
GUICtrlSetData($Label3,(@extended /2))
for $i = 1 to UBound($MyFileArray) Step 1
_ArrayDelete($MyFileArray,$i)
Next

$MyFileOpened = FileOpen($MyFile,2)

For $MyLine in $MyFileArray
FileWriteLine($MyFileOpened,$MyLine )
Next
FileClose($MyFileOpened)
ShellExecute($MyFile)


EndFunc

 

Edited February 17, 2021 by Mannyfresh31
typo

[caramen]

I think you could learn webdriver like all of us did.

Yeah you gonna have hard time doing it depending on how you can assimilate syntax.

I'm the first to do mistake when I try to learn, but all the community is very patient and help me even when I multiple fail to understand.

Follow me.

[Nine]

14 hours ago, Mannyfresh31 said:

now edge pops up automatically instead Internet Explorer

That is strange.  I have both IE and Edge on Win7 and Win10.  _IECreate always bring me Explorer, never Edge.  Are you sure about that statement ?

[Mannyfresh31]

2 hours ago, Nine said:

That is strange.  I have both IE and Edge on Win7 and Win10.  _IECreate always bring me Explorer, never Edge.  Are you sure about that statement ?

Yes yes It brings Edge instead of IE It used to work just fine but not anymore 

I just want to cry 😞

 

 

 

Edited February 17, 2021 by Mannyfresh31

[Mannyfresh31]

7 hours ago, caramen said:

I think you could learn webdriver like all of us did.

Yeah you gonna have hard time doing it depending on how you can assimilate syntax.

I'm the first to do mistake when I try to learn, but all the community is very patient and help me even when I multiple fail to understand.

Follow me.

I will try 😞

[mLipok]

18 hours ago, Mannyfresh31 said:

now edge pops up automatically instead Internet Explorer

 

3 hours ago, Nine said:

That is strange.  I have both IE and Edge on Win7 and Win10.  _IECreate always bring me Explorer, never Edge.  Are you sure about that statement ?

It depends sometime is  changed ... or not.

Using Edge Configuration search for "Explorer" or "compability".

 

Edited February 17, 2021 by mLipok
typo

[caramen]

1 hour ago, Mannyfresh31 said:

Yes yes It brings Edge instead of IE It used to work just fine but not anymore 

I just want to cry 😞

 

 

 

Maybe updating edge put it again in the default used browsers. 
You could check that maybe ? 

You have to push [Windows]+ -> Application tab -> Default applications

[Nine]

11 minutes ago, caramen said:

Maybe updating edge put it again in the default used browsers.

Nah.  _IECreate open an object [ObjCreate("InternetExplorer.Application")].  It has nothing to do with default browser.

[Mannyfresh31]

Ok guys thanks for the replies but It has nothing to do with settings

Edited February 17, 2021 by Mannyfresh31

[Skeletor]

Even though I didnt understand the language and what the buttons meant, I eventually figured it out... I also got the same result as the OP... However, with mine, it first opened iExplore then opened two windows of Edge... then it closed the iExplore and left Edge open.

[Mannyfresh31]

11 hours ago, Skeletor said:

Even though I didnt understand the language and what the buttons meant, I eventually figured it out... I also got the same result as the OP... However, with mine, it first opened iExplore then opened two windows of Edge... then it closed the iExplore and left Edge open.

@Skeletor sorry I left It in Spanish my bad and yes It opens both but It doesn't do what It supposed to do "get all videos's links from YT Page" 😞 from Channel in vídeos section of course 😞