• Реклама
Идет набор заявок на регистрацию в конкурсе "Тупая Пизда Galaxy 2017". Голосование начнется, как только наберется 10 заявок. За первые три места - призы от нашего с вами форума. Какие? Еще не придумали, но вы можете внести свои предложения в теме конкурса. Если есть кого предложить, или предложения по призам - вам сюда

  • Последние темы
    Ответов
    Просмотров
    Последнее сообщение

Делаем добавлялку в друзья

Все, что связано с программированием на данных
языках .

Делаем добавлялку в друзья

Сообщение Bratik » 16 июн 2012, 17:34

кидаем на форму 2-edit`a 3-button.listbox,таймер,1штуку IdHTTP1,1штуку IdAntiFreeze1 и OpenDialog1
ДАЛЕЕ---
в 1 бутон добавляем
if OpenDialog1.Execute then Listbox1.items.LoadFromFile(OpenDialog1.FileName);
Listbox1.ItemIndex:=0;
в3бутон добавляем код
if ListBox1.ItemIndex= ListBox1.Items.Count-1 then exit;
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
Timer1.Enabled:=True
во 2бутон кидаем код
idhttp1.get('http://galaxy.mobstudio.ru/services/index.php?userID='+Edit1.text+'&password='+Edit2.text+'&usercur='+ListBox1.Items[ListBox1.Itemindex]+'&a=add_friend&&kbv=73&lngg=ru&dbl=2');
sButton3.Click
ЩЁЛКАЕМ ПО ФОРМЕ И ПРОПИСЫВАЕМ
TS:=TStringList.Create;
TS.Delimiter:='&';
Timer1.Enabled:=False
ТЕПЕРЬ ЖМЁМ НА ТАЙМЕР И ВВОДИМ
sButton2.Click
ПОТОМ ВВЕРХУ
ПОСЛЕ СТРОКИ
var
Form1: TForm1;
ПИШЕМ ТУТ TS:TStringList;

ВСЁ ДОБАВЛЯЛКА ГОТОВА ТОЛЬКО В ТАЙМЕРЕ ИНТЕРВАЛ СТАВИМ 8500, ЖМЁМ СПАСИБО :-):
Bratik

 

Re: Делаем добавлялку в друзья

Сообщение Bratik » 16 июн 2012, 18:38

если что не правильно или не получилось дополните или напиште :-):
Bratik

 

Re: Делаем добавлялку в друзья

Сообщение ВЕТЕР » 16 июн 2012, 23:49

:-): а как сделать что бы узнать заявка принита или ошибка ? :-D :-D :-D :-D
pessimist is a well-informed optimist
Заказать программу
сайт на заказ
программист

За это сообщение автора ВЕТЕР поблагодарил:
nestr666(04 окт 2013, 23:27)
Рейтинг:1.56%
 
Аватар пользователя
ВЕТЕР
Пользователи
 
Сообщений: 1114
Темы: 187
Зарегистрирован: 12 ноя 2010, 15:47
Откуда: Samali
Благодарил (а): 111 раз.
Поблагодарили: 1012 раз.

Re: Делаем добавлялку в друзья

Сообщение ВЕТЕР » 16 июн 2012, 23:52

[spoiler]625076002 (22:44:22 17/05/2012)
что сниффер?

ВЕТЕР (22:44:40 17/05/2012)
по сниферу посмотри чт окуда отправляет и куда

625076002 (22:47:21 17/05/2012)
команды посадки нет почему та

ВЕТЕР (22:47:34 17/05/2012)
значит условия не выполнены

625076002 (22:47:45 17/05/2012)
а как их сделать?

ВЕТЕР (22:47:57 17/05/2012)
оооо.... удали делфи[/spoiler] и этот человек пытаеться вас учить писать проги
pessimist is a well-informed optimist
Заказать программу
сайт на заказ
программист

За это сообщение автора ВЕТЕР поблагодарил:
nestr666(04 окт 2013, 23:27)
Рейтинг:1.56%
 
Аватар пользователя
ВЕТЕР
Пользователи
 
Сообщений: 1114
Темы: 187
Зарегистрирован: 12 ноя 2010, 15:47
Откуда: Samali
Благодарил (а): 111 раз.
Поблагодарили: 1012 раз.

Re: Делаем добавлялку в друзья

Сообщение ВЕТЕР » 16 июн 2012, 23:57

минимум 10сек ...
pessimist is a well-informed optimist
Заказать программу
сайт на заказ
программист

За это сообщение автора ВЕТЕР поблагодарил:
nestr666(04 окт 2013, 23:27)
Рейтинг:1.56%
 
Аватар пользователя
ВЕТЕР
Пользователи
 
Сообщений: 1114
Темы: 187
Зарегистрирован: 12 ноя 2010, 15:47
Откуда: Samali
Благодарил (а): 111 раз.
Поблагодарили: 1012 раз.

Re: Делаем добавлялку в друзья

Сообщение Delete » 17 июн 2012, 00:03

Взято все отсюда [url]http://in-gala.com/viewtopic.php?f=9&t=10658[/url] *ROFL* всегда узнаю лень было нажать ctrl+shift+c *ROFL* что и кинута процедура на 3 кнопку которая там некчему *ROFL*
[img]http://lines.akusherstvo.ru/lineika/705905.gif[/img]
Delete
Друзья
Друзья
 
Сообщений: 362
Темы: 32
Зарегистрирован: 06 янв 2011, 03:03
Благодарил (а): 34 раз.
Поблагодарили: 93 раз.

Re: Делаем добавлялку в друзья

Сообщение Bratik » 17 июн 2012, 00:07

[quote="GAMSTARSS"]Взято все отсюда [url]http://in-gala.com/viewtopic.php?f=9&t=10658[/url] *ROFL* всегда узнаю лень было нажать ctrl+shift+c *ROFL* что и кинута процедура на 3 кнопку которая там некчему *ROFL*
не лёх не с твоего исхода :-): у тебя он даже не работает не дописана процедура :hi_hi_hi:
Bratik

 

Re: Делаем добавлялку в друзья

Сообщение ВЕТЕР » 17 июн 2012, 00:12

:-D :-D :-D что там дописывать!!!!!!!!!!!!!!!!! вы плять гении 1 гет запрос 100 тем ....
pessimist is a well-informed optimist
Заказать программу
сайт на заказ
программист

За это сообщение автора ВЕТЕР поблагодарил:
nestr666(04 окт 2013, 23:27)
Рейтинг:1.56%
 
Аватар пользователя
ВЕТЕР
Пользователи
 
Сообщений: 1114
Темы: 187
Зарегистрирован: 12 ноя 2010, 15:47
Откуда: Samali
Благодарил (а): 111 раз.
Поблагодарили: 1012 раз.

Re: Делаем добавлялку в друзья

Сообщение zief[bot] » 17 июн 2012, 00:55

Полезная статья для новичков, все сделано так) На счет интервала 1000 - теперь стоит защита 10 сек если не ошибаюсь на добавление.
zief[bot]

 

Re: Делаем добавлялку в друзья

Сообщение Bratik » 17 июн 2012, 09:08

[quote="startus"]Полезная статья для новичков, все сделано так) На счет интервала 1000 - теперь стоит защита 10 сек если не ошибаюсь на добавление.
да(10сек) :-):
Bratik

 

Re: Делаем добавлялку в друзья

Сообщение Wanderer » 22 сен 2012, 13:19

а для чего служит лист бокс? я так и не понял.
Wanderer
Пользователи
 
Сообщений: 62
Темы: 15
Зарегистрирован: 24 мар 2012, 18:04
Благодарил (а): 0 раз.
Поблагодарили: 5 раз.

Re: Делаем добавлялку в друзья

Сообщение FIKE » 22 сен 2012, 13:44

я думаю для списка идов
[img]http://www.speedtest.net/result/2961730869.png[/img]
FIKE
Пользователи
 
Сообщений: 308
Темы: 63
Зарегистрирован: 03 фев 2012, 18:43
Благодарил (а): 18 раз.
Поблагодарили: 53 раз.

Re: Делаем добавлялку в друзья

Сообщение Wanderer » 22 сен 2012, 13:45

я попробовал, он в едит кидает и всё.
Wanderer
Пользователи
 
Сообщений: 62
Темы: 15
Зарегистрирован: 24 мар 2012, 18:04
Благодарил (а): 0 раз.
Поблагодарили: 5 раз.

Re: Делаем добавлялку в друзья

Сообщение tetris » 22 сен 2012, 13:46

[quote="Wanderer"]а для чего служит лист бокс? я так и не понял.

для id
Аватар пользователя
tetris
Пользователи
 
Сообщений: 39
Темы: 7
Зарегистрирован: 25 янв 2012, 20:47
Благодарил (а): 22 раз.
Поблагодарили: 1 раз.

Re: Делаем добавлялку в друзья

Сообщение FIKE » 22 сен 2012, 13:47

[quote="Wanderer"]я попробовал, он в едит кидает и всё.

Значит что то не так я прав оказался
[img]http://www.speedtest.net/result/2961730869.png[/img]
FIKE
Пользователи
 
Сообщений: 308
Темы: 63
Зарегистрирован: 03 фев 2012, 18:43
Благодарил (а): 18 раз.
Поблагодарили: 53 раз.
Вернуться наверх

След.

Вернуться в С/С++, C#, Delphi, .NET, Asm

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron