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;

прелагаю написать 1с-совместимое приложение с открытым кодом, которое должно будет заменить 1с-бухгалтерию.

Такой проект уже есть. Правда, видимо, заглох. Желающие погут подхватить.

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 бала. Прям на дне байкала напротив максимихи.