Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
18.02.2008, 15:03
|
|
Новичок
Регистрация: 11.02.2008
Сообщений: 7
Провел на форуме:
34671
Репутация:
1
|
|
ListBox1.ScrollWidth:=256;
256 - длинна линейки прокрутки в пиксклях. и гуглом пользуйся хоть иногда, нельзя ж про каждое свойство и процедуру компонента спрашивать.
|
|
|
18.02.2008, 15:38
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Код:
SendMessage(ListBox1.Handle,LB_SETHORIZONTALEXTENT,256,0);
ну или через ListBox1.Perform, что то же самое |
|
|
|
Как узнать сколько людей на сайте? |
20.02.2008, 00:46
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Как узнать сколько людей на сайте?
Люди как можно узнать сколько людей на сайт?
Ну к примеру возьмём булку, как сделать так чтобы программа заходила на сайт смотрела сколько людей щас присуствует и отображала мне число в edit1 ???
Плиз народ ну попробуйте ктонебуть, если можно исходник
Буду вам очень блогодарен
|
|
|
|
20.02.2008, 01:07
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
если на сайте стоит мод для отображения статистики типа - На сайте - 777 человек, или имена присутствующих онлайн, то просто скачиваеш гетом страницу и парсиш хтмл, а если стата отлючена то имхо никак.
|
|
|
|
20.02.2008, 12:05
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Не почему, в булке есть  Сейчас посетителей: 255 (57 пользователей и 198 гостей))
еслибы я знал как это сделать, но я незнаю!
Кто может попробывать написать такую программку? |
|
|
|
20.02.2008, 13:52
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
сайт в студию... ща выложу исходник.
хочу сделать так:
1. загрузить страничку в txt-файл (API)
2. найти слова 'сайчас на сайте: '
3. вытащить от туда значения
|
|
|
|
20.02.2008, 14:10
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
2. найти слова 'сайчас на сайте: '
Этого недостаточно. А если кодировка сайта не CP1251, а KOI8-R или UTF-8?
|
|
|
|
20.02.2008, 14:21
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
Провел на форуме:
400001
Репутация:
111
|
|
Сообщение от dos999
сайт в студию... ща выложу исходник.
хочу сделать так:
1. загрузить страничку в txt-файл (API)
2. найти слова 'сайчас на сайте: '
3. вытащить от туда значения
грузи лучше не в файл, а в поток или строку, зачем лишние операции)) При гете указывай явно какая кодировка требуется; ну и на всякий может пригодится функция Utf8ToAnsi, так же оринетироваться при парсинге лучше по английским словам и тэгам 
|
|
|
|
20.02.2008, 16:08
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
Провел на форуме:
1843300
Репутация:
212
|
|
Ребят а как можно сменить пароль на email ? Вообще нигде ничего не могу найти по этому поводу.
Варианты типа: Парси страницу и находи поля ввода не катят.
Помогите плиз. С меня много много плюсов.
|
|
|
|
20.02.2008, 16:45
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
имхо , если у тебя нет прямого доступа к серверу , то как раз оптимален вариант:
"Парси страницу и находи поля ввода"
Хотя к конкретному сервису достаточно просто изучить сраницу редактирования и формировать соответствующий Post запрос...
простой например:
Код:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
tL: TStringList;
s: String;
begin
tL := TStringList.Create;
tL.Add('password=пароль');
tL.Add('NewPassword=Новый пароль');
try
s := IdHTTP1.Post('адрес формы смены пароля',tl);
finally
tL.Free;
end;
Последний раз редактировалось Jes; 20.02.2008 в 16:49..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
