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

program SendSMS
var
  okCommand:command;
  TextSMS:integer;
  PhoneNumber : integer;

  nomer : string;
  s: string;
begin 
 // создать кнопку для отправки смс
okCommand :=  createCommand('OK' , CM_OK,1);
//объявить форму
chowForm;
//добавить на нее кнопку
addCommand(okCommand);
//поле для ввода смс (начинается с +7)
TextSMS:= formAddTextField('введите текст', ' ', 100,TF_ANY);
//поле ввода номера абонента
PhoneNumber := formAddTextField('введите номер ',' ',20,TF_PHONENUMBER);
//пока не нажата кнопка ОК отображается форма
while (getClickedCommand <> okCommand ) do delay (100);
//если кнопка нажата получаем текст смс
s:= formGetText (TextSms);
//номер 
nomer :=  formGetText (PhoneNumber);
//переключение обратно
ShowCanvas;
setColor(255,0,0);
repaint;

//отправка смс
if not smsStartSend('sms://' +nomer, s) then begin
//в противном случае
 drawText ('не удается отправить',2,2);
 repaint;
 delay(2000);
 halt;
end;

//если отправилось,ожидаем
while smsIsSending do
begin 
  drawText ('идет отправка смс',5,5);
  repaint;
 delay(5000);
end;

 //проверка ушло ли смс
if not smsWasSuccessfull then
begin 
 repaint;
 drawText ('смс не было отправлено',5,5);
 repaint;
 delay(2000);
end;
end.