и скрипт снимается с выполнения...
Что там не так?
function OnPrivateMessage(iCID, iUINFrom, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
sMessage, s, sResultGet: string;
iBalance, y, x: integer;
bFlag: boolean;
begin
// получаем последнее сказанное приватное сообщение
bFlag := true;
if iUINTo=0 then begin // если получатель - Elisa (UIN=0)
// смотрим, сколько в текстовом файле строк
x := pos('rs', sMsg);
if (x>0) then begin
//Металлургов
sResultGet := mHTTPSendGetMessage('https://my.rs.net.ua/sms_login.html?rs_login=***&rs_password=***', 'Content-Type:application/x-www-form-urlencoded', 1000);
x := pos('<span>На вашому', sResultGet);
y := pos('грн </b></span>', sResultGet);
//mLogScript(sResultGet, 'sResultGet');
s := copy(sResultGet, x+6, y-x-3);
x := pos('<b>', s);
iBalance := trunc(StrToFloat(copy(s, x+3, length(s)-x-6))); //Баланс в цифре
//mLogScript(copy(s, x+3, length(s)-x-6), '');
s := ReplaceString(s, '<b>', '', true, false);
sMessage := 'Привет! ' + CRLF + 'Радиосистемы на Металлургов: ' + s;
//Ахтырская
sResultGet := mHTTPSendGetMessage('https://my.rs.net.ua/sms_login.html?rs_login=***&rs_password=****', 'Content-Type:application/x-www-form-urlencoded', 1000);
x := pos('<span>На вашому', sResultGet);
y := pos('грн </b></span>', sResultGet);
s := copy(sResultGet, x+6, y-x-3);
x := pos('<b>', s);
iBalance := trunc(StrToFloat(copy(s, x+3, length(s)-x-6))); //Баланс в цифре
s := ReplaceString(s, '<b>', '', true, false);
mSendPrivateMessage(iUINTo, iUINFrom, sMessage + CRLF + 'Радиосистемы на Ахтырской: ' + s, 1, false);
bFlag := false;
end;
end;
result := bFlag;
end;
begin
end.
В коде в целях безопасности пароли запикал "***"