www.nsoft-s.com

// ---------------------------------------
// Script created by СергейАхт (UIN 1)
// 12.02.2018 7:32:20
// ---------------------------------------
var
  sMessage, s, sResultGet, sResultPost, sJSON: string;
  iBalance, y, x: integer;
  
begin
  sResultGet := mHTTPSendGetMessage('https://my.rs.net.ua/sms_login.html?rs_login=tehnolog&rs_password=*********', 'Content-Type:application/x-www-form-urlencoded', 1000);
  x := pos('На вашому', sResultGet);
  y := pos('грн </b></span>', sResultGet);
  //mLogScript(sResultGet, 'sResultGet');
  s := copy(sResultGet, x, y-x+3);
  x := pos('<b>', s);
  iBalance := trunc(StrToFloat(copy(s, x+3, length(s)-x-9))); //Баланс в цифре
  //mLogScript(copy(s, x+3, length(s)-x-6), '');
  s := ReplaceString(s, '<b>', '', true, false);
  //mLogScript(s, '');
  //mLogScript(inttostr(iBalance), 'iBalance');
  if (iBalance < 10) then begin
      sMessage := 'Пакет на Металлургов: ' + s + CRLF;
        //mSendConfMessage(1, 0, 'Всем привет! ' + CRLF + 'Стесняюсь Вас побеспокоить, НО ' + CRLF + 'интернет на металлургов не мешало бы пополнить! ' + CRLF + s, 1);
  end;
  
 //Ахтырская
  sResultGet := mHTTPSendGetMessage('https://my.rs.net.ua/sms_login.html?rs_login=rk6&rs_password=*********', 'Content-Type:application/x-www-form-urlencoded', 1000);
  x := pos('На вашому', sResultGet);
  y := pos('грн </b></span>', sResultGet);
  //mLogScript(sResultGet, 'sResultGet');
  s := copy(sResultGet, x, y-x+3);
  x := pos('<b>', s);
  //mLogScript(s, '');
  iBalance := trunc(StrToFloat(trim(copy(s, x+3, length(s)-x-9)))); //Баланс в цифре
  //mLogScript(copy(s, x+3, length(s)-x-9), '');
  s := ReplaceString(s, '<b>', '', true, false);
  //mLogScript(s, '');
  //mLogScript(inttostr(trunc(strtofloat('192.16'))), 'iBalance');
  if (iBalance < 10) then begin
      sMessage := sMessage + 'Пакет на Ахтырской: ' + s;
        //mSendConfMessage(1, 0, 'Всем привет! ' + CRLF + 'Стесняюсь Вас побеспокоить, НО ' + CRLF + 'интернет на металлургов не мешало бы пополнить! ' + CRLF + s, 1);
  end;
  
  if (length(sMessage) > 0) then begin
      mSendConfMessage(3, 0, 'Всем привет! ' + CRLF + 'Стесняюсь Вас побеспокоить, НО интернет не мешало бы пополнить! ' + CRLF + sMessage, 1);
        //mLogScript('Всем привет! ' + CRLF + 'Стесняюсь Вас побеспокоить, НО интернет не мешало бы пополнить! ' + CRLF + sMessage, 'iBalance');
  end;
  
end.

mLogScriptToDisk(sResultGet);