Skip to content

Instantly share code, notes, and snippets.

@lefthandedgoat
Created October 17, 2015 17:14
Show Gist options
  • Save lefthandedgoat/b5eed28f046ae98dbed3 to your computer and use it in GitHub Desktop.
Save lefthandedgoat/b5eed28f046ae98dbed3 to your computer and use it in GitHub Desktop.
jon
open canopy
open runner
start firefox
pin types.FullScreen
url "https://www.google.com/?gws_rd=ssl#q=cats"
let elems = elements ".g .r a"
elems |> List.iter (fun e -> printfn "%s || %s" e.Text (e.GetAttribute("href")))
click "#pnnext"
sleep 0.2
let elems2 = elements ".g .r a"
elems2 |> List.iter (fun e -> printfn "%s || %s" e.Text (e.GetAttribute("href")))
System.Console.ReadKey() |> ignore
quit()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment