Форум АНТИЧАТ

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

- Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)

- - Skype FAQ (https://forum.antichat.xyz/showthread.php?t=205767)

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

Для создания был использован С++ Builder , в Делфи будет все то же самое только не много другой синтаксис
1)
Для начала нужно установить ACTIVEX элемент для этого переходим на вкладку

Component->Import Activex Control и ищем там строку Skype4Com, выбираем ее и нажимаем Install

Если все прошло успешно то во в кладке ActiveX появится элемент

Кидаем его на форму , перед этим включаем Skype, он спросит разрешение на использование , говорим Да

2)

Кидаем на форму кнопку и прописываем в ее обрабочик такой код

Код:

Skype1->Attach(6,VARIANT_TRUE);

Это позволит нам подсоединится к Skype.

Теперь напишим цикл который и будет осуществлять рассылку

Кидаем Кнопку и 2 Мемо

В обрабочике кнопки пишем такую код

Код:



for(int x=0;x<Form1->Memo2->Lines->Count;x++) //Пока не кончатся строки в Мемо2, x - увеличивать 

{



AnsiString  atxt(Form1->Memo2->Lines->Strings[x]); //Берем ник из Мемо2 ковертируем в понятный формат

WideString wtxt(atxt);

BSTR txt=wtxt.c_bstr();



AnsiString  btxt(Form1->Memo1->Text); //Берем текст из Мемо1  и ковертируем в понятный формат

WideString ztxt(btxt);

BSTR rtxt=ztxt.c_bstr();

Sleep(100);



Form1->Skype1->SendMessage(txt,rtxt); //Посылаем сообщение

}

ShowMessage("Я закончила");

Memo2 - ники тех люде которых будем спамить

Memo1 - Текст который будем рассылать

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

Кидаем на форму кнопку , едит и мемо

Обработчик кнопки

Код:

for(int x=0;x<Memo3->Lines->Count;x++)  //Пока не кончатся строки в Мемо3, x - увеличивать 

{

AnsiString  atxt(Memo3->Lines->Strings[x]);   //Берем ник из Мемо2 ковертируем в понятный формат

WideString wtxt(atxt);

BSTR txt=wtxt.c_bstr();





   ICallPtr call=Skype1->PlaceCall(txt, L"", L"", L""); //Звоним 



 //Продолжительность звонка  







AnsiString f=Edit1->Text; 

int time=GetTickCount();

while((GetTickCount()-time)<StrToInt(f*1000))

          {

          Application->ProcessMessages();

          }



   call->Finish();  //Бросить трубку  





   Sleep(1000);



}

В едит находится время через которое нужно оборвать звонок и начать новый

В мемо список людей которым звонить

Эту вещь можно не писать если вы делаете в отдельном потоке

Она лучше чем Sleep потому как форма не застывает.

Код:

int time=GetTickCount();

while((GetTickCount()-time)<StrToInt(f*1000))

          {

          Application->ProcessMessages();

          }

Всем спасибо кто прочел , если есть вопросы пишите всем отвечу

Зачем так говнокодить?
1 полнейший бред... 2е тоже...
И еще...нельзя полагаться на то, что функция ProcessMessages() будет выполняться одинаковое кол-во времени, оно не постоянно!

Я тебя прошу, не лезь писать программы, статьи, пока не научишься делать это как минимум грамотно!

как раз есть ламерский вопрос по скайпу :D
когда ишещь пользователя по нику(он находит) как узнать его статус ОНЛАЙН/ОФЛАЙН ?

Цитата:

Сообщение от B1t.exe

нельзя до авторизации пользователем получить его онлайн статус

Цитата:

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

Давай я сам буду решать )

Цитата:

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

Давай я сам буду решать )

ну а смысл писать то, что ты сам даже не можешь не то что описать грамотно, а объяснить без ошибок...

новичек же здесь ничего не поймет, а будет глупо копипастить кривой код

Цитата:

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

Алекс, не будь таким самоуверенным, от тебя тоже никто не видел хороших релизов.

Twoster а скажи кто сделал хороший релиз ? Кроме воланда с его брутом.

Релизы нужны?? Скажите что написать.. А потом говорите уже.

Цитата:

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

Twoster а скажи кто сделал хороший релиз ? Кроме воланда с его брутом.

Очень много людей, можешь посмотреть тут - ТЫЦ!1

Цитата:

Очень много людей, можешь посмотреть тут - ТЫЦ!1

Если чесно (без обид) . Там темы 2007-2008 года. Кто там нормально пишет это воланд. Его проги есть на ][ за это можно уважать его и его проги. А остальное неочень.

Цитата:

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

Алекс, не будь таким самоуверенным, от тебя тоже никто не видел хороших релизов.

Не могу назвать конечно прям РЕЛИЗАМИ, но кто-то смотрел?

Чем мне так не везет то , в любой моей теме начинается сразу флуууууд ))

Алекс давай щас все будут выкладывать ссылки на свой софт , хватит мерится письками

Ildon сорри чесно =)

Цитата:

Не могу назвать конечно прям РЕЛИЗАМИ, но кто-то смотрел?

Алекса можно уважать только за то что он старается!
Twoster я не прав?

Цитата:

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

Ildon сорри чесно =)

Да ладно ))

Ildon наш оффтоп почистят!

Цитата:

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

Ildon наш оффтоп почистят!

Ок , но это все равно не повод флудить )

Ну, вам виднее... сейчас уже боюсь что либо говорить в кодинг-разделе... сотни людей написав "Hello world" или кинув на форму компонент IE думают что они кодеры... совершенствуйтесь! а всякие спамеры, флудеры (софт типа хрумера, естественно в расчет не беру) и прочее - это не софт, это просто развлечение школоты\студентоты...

Цитата:

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

Хм , абсолютно с вам согласен)) Вот токо вопрос что по вашему Хороший софт ?

Цитата:

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

Ildon сорри чесно =)
Алекса можно уважать только за то что он старается!
Twoster я не прав?

Я не запрещаю тебе его уважать, это личное право каждого, просто я к нему отношусь субъективно, я помню как он флудил своими поделками на ИРЦ, откуда его уже матом выгоняли, у него мегазавышенное ЧСВ, а это не есть гуд... скромнее нужно быть.

Цитата:

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

Хм , абсолютно с вам согласен)) Вот токо вопрос что по вашему Хороший софт ?

Хороший софт - это тот, глядя на который говоришь - да, этот софт хороший.

З.Ы. Что то мне подсказывает что ты мультиакк...

Twoster понимаешь, когда я написал софт свой для ачата (писал 3 месяца) его удалили нарушение правил (я не спорю). Просто обидно пишешь для ачата и тут его удалили, а тут чел проги каждый час новые клепает. Вот как - то это не правильно.

Цитата:

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

БИНГО!1111
Каждый час [!]

Пускай клепает одну прогу, но качественную и пишет её месяц, два, год! Зато потом он сможет и через пять лет с гордостью сказать что это ЕГО РЕЛИЗ!11

З.Ы. От темы ушли очень сильно, наши посты либо дропнут, либо тему спустят в болталку, посему я удаляюсь, что мне было сказать - я сказал. Не в обиду никому, просто советы на будущее.

Twoster +1

Главное что б не забанили =))

Clear offtop pliz!

Цитата:

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

З.Ы. Что то мне подсказывает что ты мультиакк...

Это не так ))