1. Куча / Говнокод #5195

    +132

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    <select name="select" id="planeSel" onChange="javascript:self.location.href=this.value;">
			 <option disabled selected>Выберите карту</option>
             <option value="http://172.23.67.36/ingeo/index.asp?db=Address">Адресный план</option>
             <option value="http://172.23.67.36/ingeo/index.asp?db=GenPlan">Генеральный план</option>
             <option value="http://172.23.67.36/ingeo/index.asp?db=PZZ">Правила землепользования</option>
             <option value="http://172.23.67.36/ingeo/index.asp?db=Building">Новое строительство</option>
        </select>

    www.eguar.ru/ingeo/index.asp?db=Building

    Запостил: Dummy, 10 Января 2011

    Комментарии (2) RSS

    • ava Lure Of Chaos 10.01.2011 16:12 # +1

      код случаем не генерированный?

      говно то, что все ссылки - внутренние.
      Ответить

    • ava guest 04.05.2012 10:53 # 0

      Я щас с этого говносайта пытаюсь кусочек генплана выдрать. Вот кусочек говнокогда в автоите если компу пригодится:
      #include <IE.au3>

      $x1 = 35000.874999999985;-3000-3000
      $y1 = 52000.55833333333;-3000-3000
      $width = 2500
      $height = 2500
      $NameX = 1
      $nameY = 1
      $prefix = "01."
      For $x = $x1 To $x1-2000 Step -1000
      For $y = $y1 To $y1+2000 Step 1000
      ;~ MsgBox(0,0,$x&@CR&$y)
      $link = "http://www.eguar.ru/ingeo/ingeoimage.asp?Db=GenPlan&Layers=%C6%E8% EB%FB%E5%20%E8%20%EE%E1%F9%E5%F1%F2%E2%E 5%ED%ED%EE%20%E4%E5%EB%EE%E2%FB%E5%20%E7 %EE%ED%FB,%C8%ED%E6%E5%ED%E5%F0%ED%E0%FF %20%E8%20%F2%F0%E0%ED%F1%EF%EE%F0%F2%ED% E0%FF%20%E8%ED%F4%F0%E0%F1%F2%F0%F3%EA%F 2%F3%F0%E0,%D0%E5%EA%F0%E5%E0%F6%E8%EE%E D%ED%FB%E5%20%E7%EE%ED%FB,%C7%E5%EC%EB%E 8%20%EF%F0%EE%E8%E7%E2%EE%E4%F1%F2%E2%E5 %ED%ED%FB%F5%20%E8%20%F1%E5%EB%FC%F1%EA% EE%F5%EE%E7%FF%E9%F1%F2%E2%E5%ED%ED%FB%F 5%20%EF%F0%E5%E4%EF%F0%E8%FF%F2%E8%E9,%C B%EE%E3%E8%F1%F2%E8%F7%E5%F1%EA%E8%E5%20 %F6%E5%ED%F2%F0%FB,%CA%EB%E0%E4%E1%E8%F9 %E0,%20%EA%F0%E5%EC%E0%F2%EE%F0%E8%E8,%2 0%F1%E2%E0%EB%EA%E8,%C3%E8%E4%F0%EE%E3%F 0%E0%F4%E8%FF,%CB%E5%E3%E5%ED%E4%E0,%C3% F0%E0%ED%E8%F6%E0%20%EC%F3%ED%E8%F6%E8%E F%E0%EB%FC%ED%EE%E3%EE%20%EE%E1%F0%E0%E7 %EE%E2%E0%ED%E8%FF,%CF%EE%E4%EF%E8%F1%E8 %20%ED%E0%F1%E5%EB%E5%ED%ED%FB%F5%20%EF% F3%ED%EA%F2%EE%E2&CenterX="&$x&"&CenterY ="&$y&"&Width="&$width&"&Height="&$heigh t&"&XAngle=1.5707963267948966&YMirror=tr ue&ZoomScale=0.0005&SelectedObject="
      $hDownload = InetGet($link, "D:\Офис\Документы\test\2500x2500\"&$pre fix&$NameX&"."&$NameY&".jpg")
      $NameY = $NameY + 1
      Next
      $nameX = $nameX + 1
      $NameY = 1
      Next
      MsgBox(0,0,"Finish")
      Exit

      Подставляем в ссылку нужные поправки на координаты и рипаем ГП с говносайта, быстро, дешего и сердито :)
      Ответить

    Добавить комментарий