Jump to content

Recommended Posts

I'm using Firefox however it shows up in all browsers.  When you hover over a hyperlink and the cursor turns to a hand then in the lower left corner of the browser the actual web URL link pops up.  How does one capture that text programmatically?  I know in FF I can right click and "Copy Link" I'm wondering if there is another way.

Link to post
Share on other sites

@ahhaRight click and "Copy Link" is good because it's only 2 clicks.

Then things become complicated if you have to click on an empty text file, paste your link in it, then back to FF and copy another link (for later use), back into the text file, paste it etc...

If your goal is to grab several links from here & there for later use, then this is what I do to avoid this "back and forth" move between any Browser and the text file, after launching this script that will automatically record in a text file all changes made to the clipboard when it concerns url's.

#include <MsgBoxConstants.au3>

OnAutoItExitRegister("Close_FileOutput")

$sFilePath = @ScriptDir ; "Only includes a trailing backslash when the script is located in the root of a drive" (help file)
If StringRight($sFilePath, 1) <> "\" Then $sFilePath &= "\"

$sDateTime = @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & "h" & @MIN & "m" & @SEC & "s" ; ex. "2021-11-07 17h52m15s"

$sFileOutput = $sFilePath & $sDateTime & ".txt" ; ex. "C:\Temp\2021-11-07 17h52m15s.txt" if script is in C:\Temp

$hFileOpen = FileOpen($sFileOutput, 2 + 512) ; 2 = Write mode (erase previous contents) . 512 = Ansi

If $hFileOpen = -1 Then
    MsgBox($MB_TOPMOST, "", "An error occurred when OPENING the output file")
    Exit
EndIf

; $sClip_Old = "" ; variable to keep clipboard content, for comparing when its content changes, 1 time per second (or twice)
; ClipPut("")     ; write clipboard (here we write an empty string, which in fact forces the clipboard to become empty)

$sClip_Old = "fill clipboard with any string at start, better than an empty string"
ClipPut($sClip_Old)

While 1
    ; Sleep(1000) ; 1000ms = 1s
    Sleep(500)    ; 500ms  = 0.5s (twice per second seems better, we'll see...)
    $sClip_Get = ClipGet()
    If $sClip_Get <> $sClip_Old Then
        Select
            Case $sClip_Get = "" ; this happens if we choose for example "copy image" in context menu, instead of "copy image adress"
                MsgBox(BitOr($MB_TOPMOST, $MB_ICONINFORMATION) , "Clipboard is empty", "No link was copied   ")
                ClipPut($sClip_Old)

            Case StringLeft($sClip_Get, 4) <> "http" ; do not write in txt file because it's not a url

            Case Else
                $iStatus = FileWriteLine($hFileOpen, $sClip_Get) ; "If the line does NOT end in @CR or @LF then a DOS linefeed (@CRLF) will be automatically added" (help file) => all is good !
                If $iStatus = 0 Then
                    MsgBox($MB_TOPMOST, "", "An error occurred when WRITING the output file")
                    Exit
                EndIf
                $sClip_Old = $sClip_Get
        EndSelect
    EndIf
WEnd

;==============================================================================
Func Close_FileOutput()
    FileClose($hFileOpen)
EndFunc   ;==>Close_FileOutput

Let's hope it will help you to achieve your goal
Good luck
 

Link to post
Share on other sites

Yes, 2 clicks to add a desired link in the text file. But at least you choose the wanted links by yourself.
I never searched another way to do it because I don't want all links hovered on to automatically fill the text file.
It would require to delete many unwanted links in the text file when everything is done.

Let's hope another user will indicate you a way to fully automate the process without you clicking anywhere :)

Link to post
Share on other sites

@pixelsearch- I can under program control move the mouse to the URL indicator on the page and was hoping to grab the URL without the right click and copy link.  I find emulating a user at times is iffy.

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By goldstar
      hey . is it possible  send message to firefox extension  and receive too?
      what is simplest way 
       
    • By MakzNovice
      I have a simple code that takes file "C:\Temp\File1.txt" and pastes it in drop area of specific firefox location ( Note : The drag drop works manually meaning firefox window supports drag and drop)  . The return value is true with no error indicating that operation successful.
      The results are not getting updated in firefox window even after exe execution completion and sleep time 20secs.
      Attached my code snippet and _FileDragDrop.au3 + text file it works 
      #include "_FileDragDrop.au3" Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase Opt("MouseCoordMode", 0) ;1=absolute, 0=relative, 2=client $File1 = "E:\AutoIt\DragDropFile\File1.txt" $File2 = "E:\AutoIt\DragDropFile\File2.txt" If ProcessExists("Firefox.exe") Then $hWnd = WinGetHandle("Mozilla Firefox") ; My FF tab title substring WinActivate($hWnd) Else MsgBox(64,"Error","No Firefox window found",10) EndIf $hNPPlus=WinGetHandle("[CLASS:Notepad++]") WinActivate($hNPPlus) $iRet = _FileDragDrop($hNPPlus, $File1, 75, 274) ConsoleWrite("Return: "&$iRet&" @error="&@error&", @extended="&@extended&@CRLF) Sleep(20000) ;~ Above code to add in Notepad++ works fine ;~ Cordinate from drop file 1 - 75, 274 $iRet = _FileDragDrop($hWnd, $File1, 75, 274,'|',False) ConsoleWrite("Return: "&$iRet&" @error="&@error&", @extended="&@extended&@CRLF) Sleep(20000) ;~ Above code to add file in firefox with title Mozilla firefox DOES NOT work Exit
       
      Repose from code -->
      Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
      Return: True @error=0, @extended=0
      Return: True @error=0, @extended=0
       
      _FileDragDrop.au3 File1.txt
    • By mLipok
      wd_capabilities.au3 UDF was changed/modified/refactored .... and commited/merged (02-12-2021) to https://github.com/Danp2/WebDriver

      WARNING: Before you start using this UDF be sure you download the recent version from: https://github.com/Danp2/WebDriver
       
      ==================================================================================================

      Recently I start wd_capabilities.au3 project on my side.
      I think this is time to share to AutoIt community.
      Check attached UDF: wd_capabilities.au3

      Here is a scratch example showing how to use them:
      #include "wd_helper.au3" #include "wd_capabilities.au3" _Example() Func _Example() ........ ........ ........ _WD_Capabilities_Build_Arguments(Null) ; CLEANUP ARGS _WD_Capabilities_Build_Arguments('--headless') _WD_Capabilities_Build_Arguments('start-maximized') _WD_Capabilities_Build_Arguments('disable-infobars') _WD_Capabilities_Build_Arguments('user-data-dir', 'C:\Users\' & @UserName & '\AppData\Local\Google\Chrome\User Data\Default') Local $s_WD_Capabilities_Arguments = _WD_Capabilities_Build_Arguments(Default) ; GET ARGS _WD_Capabilities_Build_Preferences(Null) ; CLEANUP PREFS If $s_Download_dir Then _WD_Capabilities_Build_Preferences('download.default_directory', $s_Download_dir) Local $s_WD_Capabilities_Preferences = _WD_Capabilities_Build_Preferences(Default) ; GET PREFS Local $s_Desired_Capabilities = _WD_Capabilities_Build_JSON('chrome', $s_WD_Capabilities_Arguments, $s_WD_Capabilities_Preferences) Local $WD_SESSION = _WD_CreateSession($s_Desired_Capabilities) ........ ........ ........ EndFunc  
      I plan to publish the code on GitHub.
      In the indefinite future, when the project becomes more functional, if @Danp2 accepts it, I hope it may be included in the main WebDriver UDF.

      I am waiting for yours feedback and help in the further development of this project.

      REMARK 1:
      As so far this UDF only supports GoogleChrome.
      Adding support for other browsers shouldn't be difficult, I just didn't need to.

      REMARK 2:
      For now, this project is working but still as a early BETA, so please do not discuss, ask questions, or post examples or snippets of code that pertain to any function of this UDF in other part of this forum, until it is found acceptable. Simply: discusion and tests only here in this topic.


      Regards,
      @mLipok
       
    • By noellarkin
      This is for those pages that seem to load when you use _FFOpenURL(), but they have a text saying "please wait while we load your page..." but according to _FFOpenURL() the page has loaded.  An example seen in popular sites is the Cloudflare page saying "Checking your browser before...". It's the opposite of pausing a script until an element is visible on a page. It takes Elements in the form of id, xpath or text search.
      Global $BrowserPort = 4242 Global $TimeOut = 60000 Global $LocalHost = "127.0.0.1" Func _FFWaitWhileElement($thiselement, $elementtype = "xpath", $timeoutms = 60000) _FFConnect($LocalHost, $BrowserPort, $TimeOut) Local $Element Local $ElementFound = 1 Local $TimeoutCountdown = 0 While $ElementFound <> 0 And $TimeoutCountdown < $timeoutms If $elementtype = "xpath" Then $Element = _FFXPath($thiselement) EndIf If $elementtype = "id" Then Local $ConstructXPath = ".//*[@id='" & $thiselement & "']" $Element = _FFXPath($ConstructXPath) EndIf ; MsgBox(0, "", $Element) Local $ElementXPathTextContent = _FFCmd("FFau3.xpath.textContent") ; MsgBox(0, "", $ElementXPathTextContent) Local $ElementXPathInnerHTML = _FFCmd("FFau3.xpath.innerHTML") ; MsgBox(0, "", $ElementXPathInnerHTML) If $ElementXPathTextContent = "_FFCmd_Err" Or $ElementXPathInnerHTML = "_FFCmd_Err" Then $ElementFound = 0 Else $ElementFound = 1 EndIf If $elementtype = "text" Then $ElementFound = _FFSearch($thiselement) ; MsgBox(0, "", $ElementFound) EndIf $TimeoutCountdown += 1000 _FFDisConnect() _FFConnect($LocalHost, $BrowserPort, $TimeOut) WEnd Return $ElementFound EndFunc _FFConnect($LocalHost, $BrowserPort, $TimeOut) _FFOpenURL("https://www.site.com/page", True) _FFWaitForElement("Please Wait...","text", 60000) MsgBox(0,"","Page finished loading") It's pretty simple, hope it helps some of you who are working with FF.au3 :)
    • By noellarkin
      So I was trying to write a function that can find a button (or any other XPath Element) and scroll the page + move the mouse to the location of the button.
      My logic for this was:
      1. get position of button using _FFGetPosition
      2. get inner dimensions of browser window and total dimensions of page
      3. divide total dimensions by inner dimensions to get number of page down operations
      4. use Mod() to get remaining pixels offset
      5. MouseMove() and add requisite offsets for Titlebar etc (what the +5 and +54 is for in the last line)
      Example Code:
      _FFConnect($LocalHost, $BrowserPort, $TimeOut) Local $Button = _FFXPath(".//*[@id='thisbutton']") Local $ButtonPosition = _FFGetPosition($Button) Local $ElementWidth = $ButtonPosition[0] Local $ElementHeight = $ButtonPosition[1] Local $InnerWidth = _FFCmd("window.content.innerWidth") Local $InnerHeight = _FFCmd("window.content.innerHeight") Local $PageWidth = _FFCmd(".body.offsetWidth") Local $PageHeight = _FFCmd(".body.offsetHeight") Local $PGDNNo = Int($ElementHeight/$InnerHeight) Local $PGDNMod = Mod($ElementHeight, $InnerHeight) ; MsgBox(0,"","$ElementX: " & $ElementWidth & @CRLF & "$ElementY: " & $ElementHeight) ; MsgBox(0,"","$InnerWidth: " & $InnerWidth & @CRLF & "$InnerHeight: " & $InnerHeight) ; MsgBox(0,"","$PageWidth: " & $PageWidth & @CRLF & "$PageHeight: " & $PageHeight) ; MsgBox(0,"",$PGDNNo) ; MsgBox(0,"",$PGDNMod) Local $iter = 1 While $iter <= $PGDNNo WinActivate($BrowserWindowClass,"") _FFCmd("window.content.scrollByPages(1)") $iter += 1 WEnd MouseMove($ElementWidth + 5, $PGDNMod + 54) This isn't working. In some cases, it's not doing the page down operation the number of times needed, or not accurately pinpointing the location. I think there may be something wrong with the logic I'm using. What am I doing wrong?
      Thanks.
       
×
×
  • Create New...