ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Skype1->Attach(6,VARIANT_TRUE);

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("Я закончила");

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);

}

int time=GetTickCount();
while((GetTickCount()-time)<StrToInt(f*1000))
          {
          Application->ProcessMessages();
          }