• Реклама
Если это ваш первый визит, рекомендуем почитать FAQ по форуму, а также правила форума. Для размещения своих сообщений необходимо ЗАРЕГИСТРИРОВАТЬСЯ.

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

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

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

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

Сообщение VizzerS » 28 июл 2016, 15:17

[quote="Bratik"]кидаем на форму 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');
[color=#FF0000]Буква(s)Лишняя[/color]Button3.Click
ЩЁЛКАЕМ ПО ФОРМЕ И ПРОПИСЫВАЕМ
TS:=TStringList.Create;
TS.Delimiter:='&';
Timer1.Enabled:=False
ТЕПЕРЬ ЖМЁМ НА ТАЙМЕР И ВВОДИМ
[color=#FF0000]Тут тоже самое[/color]sButton2.Click
ПОТОМ ВВЕРХУ
ПОСЛЕ СТРОКИ
var
Form1: TForm1;
ПИШЕМ ТУТ TS:TStringList;

ВСЁ ДОБАВЛЯЛКА ГОТОВА ТОЛЬКО В ТАЙМЕРЕ ИНТЕРВАЛ СТАВИМ 8500, ЖМЁМ СПАСИБО :-):
VizzerS
КсениЯ
КсениЯ
 
Сообщений: 42
Темы: 6
Зарегистрирован: 26 июл 2013, 00:32
Благодарил (а): 5 раз.
Поблагодарили: 1 раз.

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

Сообщение Dolphin » 28 июл 2016, 15:30

[quote]Буква(s)Лишняя


это компонент из альфа скинов sButton и нифига она не лишняя! Прогеры мля

то есть нах тут вообще StringList никто не заметил, а "лишнюю" s спалили
[b]Шпионко[/b] - скидывайте у кого есть галактический мусор) спс заранее
Аватар пользователя
Dolphin
Пользователи
 
Сообщений: 163
Темы: 2
Зарегистрирован: 10 ноя 2010, 19:47
Благодарил (а): 9 раз.
Поблагодарили: 23 раз.

Пред.

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

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

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