REBOL [
	Title: "Google Link Extractor"
	Date: 10-Jan-2006
	Name: 'GLE
	Version: 0.0.1
	File: %google-getlinks.r
	Author: "LoO BiCK"
	Purpose: {Get links from Google and saves them into text file.}
	eMail: loobick@loobick.com
	Web: http://loobick.com/
	Note: {You can use and modify as you can. Just please don't sell it :-)}
	]
write-line: func [link] [
 write/append %links.txt reduce [link "^/"]
 prin "."
 ]

print "Use this script to get all links from Google for some search you want."
print "This is very first version of this script. I's my first. Before you use this script. Do this:"
print "1. open www.google.com"
print "2. search string you want to search"
print "3. look how many pages are there"
print "4. insert string you search to this script"
print "5. insert number of pages you can search (max. is 99 - it's Google limit)"
prin "Enter string you search: "
search2: input
prin "Zadej pocet stranek na Googlu ze kterych chces ziskat odkazy: "
count: input
search4: 0
;search2: "%22modules.php%3Fname%3DAvantGo%22"

loop to-integer count [

search1: "http://www.google.com/search?q="
search3: "&hl=en&lr=&c2coff=1&start="
search4: search4 + 10
search5: "&sa=N"

page: read to-url join search1 [search2 search3 search4 search5]
parse page [any [thru "a class=l href=^"" copy link to "^">" (write-line link)] to end]

]