var := SubStr(outputvar, var) StringGetPos, outputvarx, var,
var := SubStr(var, 1, outputvarx) IfInString, var, { first_page := outputvar } Loop ; PARSE the ids and put the links in "page" variables { If a_index <= 10 { ; Parsing method: from the first page it extracts the first 9 links. ; After that it loades the sites four by four starting from 10 ; (e.g. after 10 it loads 14, 18 after that, 22 after that etc.) ; and from each downloaded site it extracts the links to the next four pages ; (e.g. from 10 --> 11, 12, 13 14, from 14--> 15, 16, 17, 18 etc.) ; and it goes on until it's stopped by the limit stored in the "show_limit" variable ; There are 5 messages on one page. If a_index = 1 ; Start from the second page, cause page1 (if a_index=1 in page%a_index%) is the first page Continue StringGetPos, var2, var, page%a_index% := "http://openpaste.org" . SubStr(var, 1+10, var3-11) var := SubStr(var, var3) If page%a_index% = http://openpaste.org Break nr_of_pages := a_index If a_index = 10 { pnr = 10 URL := "http://openpaste.org/search2/author-" . Send_Group . "/page-10/" ;JAVITANI ALTALANOSABBRA httpAgent := "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.6pre) Gecko/2009011606 Firefox/3.1" httpQuery(HTML:="",URL) VarSetCapacity(HTML,-1) outputvar := html ; CHECKING HOW MANY PAGES THERE ARE StringGetPos, var, outputvar,var := SubStr(outputvar, var) StringGetPos, outputvarx, var,
var := SubStr(var, 1, outputvarx) StringGetPos, var2, var, var := SubStr(var, var2) Continue } } Else If a_index > %show_limit% Break Else if a_index > 10 { StringGetPos, var2, var, page%a_index% := "http://openpaste.org" . SubStr(var, 1+10, var3-11) var := SubStr(var, var3) If page%a_index% = http://openpaste.org Break nr_of_pages := a_index If (a_index = pnr+4) { pnr += 4 URL := "http://openpaste.org/search2/author-" . Send_group . "/page-" . pnr . "/" ;JAVITANI ALTALANOSABBRA httpAgent := "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.6pre) Gecko/2009011606 Firefox/3.1" httpQuery(HTML:="",URL) VarSetCapacity(HTML,-1) outputvar := html StringGetPos, var, outputvar,var := SubStr(outputvar, var) StringGetPos, outputvarx, var,
var := SubStr(var, 1, outputvarx) StringGetPos, var2, var, var := SubStr(var, var2) Continue } } } If nr_of_pages < 10 ;This operation is only necessary, if only the first page is being processed (that is if the total nr of pages is less than 10) { IfInString, outputvar, ">>> ; Only if the first page contains an additional link to the next page nr_of_pages -= 1 ;Cause of the additional ahref which points to the next page } page_nr = 1 node_nr = 0 ;Loading the first page URL := "http://openpaste.org/en/search2/" POSTDATA := "search_author=" . Send_group . "&advanced_search=0&action=Search&search_syntax=---&search_age_min=---&search_age_min_unit=---&search_age_max=---&search_age_max_unit=---&advanced_search=0" httpAgent := "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.6pre) Gecko/2009011606 Firefox/3.1" httpQuery(HTML:="",URL,POSTDATA) VarSetCapacity(HTML,-1) outputvar := html If remote_control <> 1 SB_SetText(gui_main_14) ;("Loading messages...") Loop ;Parsing the first page, extracting dates and IDs { StringGetPos, var, outputvar,