Вопрос по Midlet Pascal

[skagen]

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

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

[][yZ]

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

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

[skagen]

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

[Ildon]

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

[skagen]

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

[NekitoSP]

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

[GhostOnline]

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

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

[=Zeus=]

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