Unnamed

Loop
{
page += 10

URLDownloadToFile, http://search.msn.com/results.aspx?q=index.php?include=&format=rss&first=%page%, C:\Temp.html


FileRead, html, C:\Temp.html
;grep(html, "http://[^""'\s\?]+?index.php\?cmd=[^""'\s]+", urls)

grep(html, "(?<=<link>)http://[^<]+(?=</link>)", urls)
StringSplit, url, urls, `,
Loop, 10
 {
    num++
    element := url%num%
    StringSplit, element, element, =
    newstring = %element1%= ;Ive edited this out a link go's here but dont worry about this.
	Runwait, %comspec% /c curl.exe -o C:\Temp1.html %newstring%,, hide
	FileRead, Shell, C:\Temp1.html
	If Shell contains w4ck1ng
    FileAppend, %newstring%`n, Extracted.txt
	
}
}











;===============================================================================
RegExMatchAll(h, n, v, p = 1, s = "", x = 250) {
	local c = 0, t, t1, b, b0, b1, i, f, j, a
	Loop
		If p := RegExMatch(n, "si)(?<!\\)\((?:\?P<(\w+)>)?.+?(?<!\\)\)", t, p)
			c++, b .= t1 . "#", p += StrLen(t)
		Else Break
	StringSplit, b, b, #
	p := 1, s .= Chr(!s * 35)
	Loop, %x%
		If (i := A_Index) and %v%[%i%]%s% := p := RegExMatch(h, n, f, p)
			, p += StrLen(f), %v%[%i%] := f
			Loop, %c%
				j := A_Index, a := v . "[" . i . "]["
					. (b := b%j% ? b%j% : j) . "]", %a% := f%b%
		Else Return, i - 1
}



grep(h, n, ByRef v, # = 1) {
	s = ,
	Loop
		If # := RegExMatch(h, n, t, #)
			p .= # . s, v .= t . s, # += StrLen(t)
		Else Return, p
}
;===============================================================================