Thursday 8 October 2015

Web Crawler


Basic program style:
n = 0
for i = 0 To 26
  For j = 0 To 26
    For k = 0 To 26
      a[n][1] = Text.GetCharacter(97+k)
      a[n][2] = Text.GetCharacter(97+j)
      a[n][3] = Text.GetCharacter(97+i)
      TextWindow.WriteLine(a[n][1] + " " + a[n][2] + " " + a[n][3])
      url = a[n][1] + a[n][2] + a[n][3]
      TextWindow.WriteLine(url)
      c[n] = Network.GetWebPageContents("http://"+url+".com")
      TextWindow.WriteLine(c[n])
      n = n + 1     
    EndFor
  EndFor
EndFor

No comments:

Post a Comment