Куча говна / Говнокод #5195 0 1234567 <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> http://www.eguar.ru/ingeo/index.asp?db=Building Запостил: Dummy, 09.01.2011 (Updated 25.03.2018) Комментарии (2) RSS Lure Of Chaos 13 лет ago # 0 код случаем не генерированный? говно то, что все ссылки - внутренние. Ответить guest 12 лет ago # 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 Подставляем в ссылку нужные поправки на координаты и рипаем ГП с говносайта, быстро, дешего и сердито 🙂 Ответить Добавить комментарий Отменить ответ Семь раз отмерь — один отрежь, guest! А не использовать ли нам bbcode? [b]жирный[/b] — жирный [i]курсив[/i] — курсив [u]подчеркнутый[/u] — подчеркнутый [s]перечеркнутый[/s] — перечеркнутый [blink]мигающий[/blink] — мигающий [color=red]цвет[/color] — цвет (подробнее) [size=20]размер[/size] — размер (подробнее) [code=<language>]some code[/code] (подробнее)
Lure Of Chaos 13 лет ago # 0 код случаем не генерированный? говно то, что все ссылки - внутренние. Ответить
guest 12 лет ago # 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 Подставляем в ссылку нужные поправки на координаты и рипаем ГП с говносайта, быстро, дешего и сердито 🙂 Ответить
Lure Of Chaos # 0
говно то, что все ссылки - внутренние.
guest # 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
Подставляем в ссылку нужные поправки на координаты и рипаем ГП с говносайта, быстро, дешего и сердито 🙂