moris

Я - робот! Добавлено спустя 4 минуты 52 секунды: У меня получилось Не знаю то или не то тебе нужно. Вообщем вот: uses MSHTML_TLB; procedure TForm1.Button1Click(Sender: TObject); procedure Delay(ms : longint); var TheTime : LongInt; begin TheTime := GetTickCount + ms; while GetTickCount < TheTime do Application.ProcessMessages; end; var ShellWindow: IShellWindows; WB: IWebbrowser2; spDisp: IDispatch; IDoc1: IHTMLDocument2; Document: Variant; k, m: Integer; ovElements: OleVariant; i: Integer; begin WB:=CoInternetExplorer.Create; WB.Visible:=True; WB.Navigate('http://ulanovka.ru/forum/', EmptyParam, EmptyParam, EmptyParam, EmptyParam); Delay(2000); WB:=nil; ShellWindow := CoShellWindows.Create; for k := 0 to ShellWindow.Count do begin spDisp := ShellWindow.Item(k); if spDisp = nil then Continue; spDisp.QueryInterface(iWebBrowser2, WB); if WB <> nil then begin WB.Document.QueryInterface(IHTMLDocument2, iDoc1); if iDoc1 <> nil then begin WB := ShellWindow.Item(k) as IWebbrowser2; begin //==========выполняем вход============== Document := WB.Document; ovElements := Document.forms.Item(1).elements; for i := 0 to ovElements.Length - 1 do begin try if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'text') = 0) then begin ovElements.item(i).Value := Edit1.Text;//логин end; except end; try if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'Password') = 0) then begin ovElements.item(i).Value := Edit2.Text;//пароль end; except end; try if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and (ovElements.item(i).Value = 'Вход') then begin ovElements.item(i).Click; end; except end end; end; end; //========================================== Delay(1000); WB.Navigate('http://ulanovka.ru/forum/viewtopic.php?t=42459', EmptyParam, EmptyParam, EmptyParam, EmptyParam); Delay(1000); Document := WB.Document; for m := 0 to Document.forms.Length - 1 do begin ovElements := Document.forms.Item(m).elements; for i := 0 to ovElements.Length - 1 do begin try if (CompareText(ovElements.item(i).type, 'Textarea') = 0) then begin ovElements.item(i).Value := Memo1.Text; // Текст сообщения end; except end; try if(CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and (ovElements.item(i).Value = 'Предв. просмотр') then begin ovElements.item(i).Click; end; except end; end; end; end; end; end;

Такой проект уже есть. Правда, видимо, заглох. Желающие погут подхватить. http://www.gpl2c.ru/ (разум. внешка)

Ну чтож... Значит таких, как мы - много!

Думаю, что могу кинуть свои пять копеек. Еще не стар, но уже вроде и не молод. Чистое ИМХО. Никто не хочет учиться на чужих ошибках, но ты, Ци.ник, все же попробуй. Самая большая ошибка. Не заводи семью для престижа. Твоя жизнь - это не Санта-Барбара. Ты не обязан жить на картинку. Если ты считаешь, что прав, плюй на всех, родственников, друзей, обычаи и предрассудки. Твоя жизнь - только твоя. Другой нету. ...а примерами ничего нельзя доказать, как и опровергнуть (с) Пользуясь современным слэнгом, респект им и уважуха. Внимание!, Циник, Женщины меркантильны по своей природе. Но они панически боятся одиночества. Согласен! Будь осторожен, Циник! Я возьму временно смысловое наполнение твоего ника и скажу, что что у матери на первом месте ее ребенок, он для нее император, на втором она сама, как особа наиболее приближенная к императору. Тебе будет отведено в лучшем случае третье место. Готов? Тогда вперед!А теперь скажу как романтик цинику: влюбишься - не бойся. Кидайся с головой. Потом разберешься.

Япония!!! Город-остров заселили в 1810 году, когда там нашли уголь. В течении 50 лет, это город был самым густонаселённым местом на планете, его население состовляло 53000 человек, при радиусе самого острова 1 км. Природные ресурсы кончились, и к 1974 году город покинул последний житель и он опустел. Из за построек, остров напоминает военный корабль. Ганкаджима (Gunkajima) в переводе с японского означает крейсер. В настоящий момент, посещение острова запрещено.

Ну нах накой экстрим. Лучше угадайте, в какой стране находится заброшеный город на фото?

Вам сюда: http://www.chernobylzone.com.ua/

Генштабовская карта Чернобыля с границей зоны отселения: Нашел его на гуглмапс: Кому интересно может посмотреть на все это безобразие сверху :-) Детализация позволяет: http://maps.google.com/?ie=UTF8&ll=51.273837,30.190258&spn=0.039198,0.074844&t=k&z=14

Еще ссылка по теме. Существет проект/международное исследование "Убывающие города": http://www.shrinkingcities.com/?id=&L=2 "В четырех разных странах выбраны четыре региона – Детройт (США), Иваново (Россия), Манчестер/Ливерпуль (Великобритания) и Галле/Лейпциг (Германия), в разной степени страдающих от последствий деиндустриализации, субурбанизации или постсоциализма. Там работают междисциплинарные команды исследователей, ангажированные проектом Убывающие города для изучения и документирования происходящих процессов с учетом всех демографических и экономических особенностей."

Похожие проблемы имеют место не только у нас. Вот, посмотрите(внешка. много фоток): http://egland.livejournal.com/93045.html

Вся инфа тут (внешка): http://earthquake.usgs.gov/eqcenter/recenteqsww/Quakes/us2008sgck.php 5.2 бала. Прям на дне байкала напротив максимихи.