03.06.2010, 23:19
|
|
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
С нами:
8599678
Репутация:
22
|
|
Вопрос по Midlet Pascal
Собственно появилась надобность в написании так называемого "аларма".нужен совсем простенький,а именно.я открываю приложение,вылазит предложение отправить смс на один префикс-я нажимаю да.вылазит второе предложение отправить смс-тоже нажимаю да и так до бесконечности.вопрос в том,с помощью какого кода это осуществить?Знаю как отправить сообщение на один номер:
Код:
begin if not SmsStartSend('sms://номер', 'текст') then Halt;
while SmsIsSending do // Ждем пока отправится... Delay(100);
if not SmsWasSuccessfull then Halt; // Проверка отправки сообщения
end.
но не знаю как прилепить второе сообщение и сделать так,чтобы не было написано "Подождите,пока отправится SMS"
Надеюсь на помощь.спасибо |
|
|
04.06.2010, 18:04
|
|
Познающий
Регистрация: 03.03.2009
Сообщений: 62
С нами:
9047413
Репутация:
106
|
|
если тебе нужно, чтобы бесконечно смски отправлялись, делай так:
begin
while true do begin
if not SmsStartSend('sms://номер', 'текст') then Halt;
while SmsIsSending do // Ждем пока отправится... Delay(100);
if not SmsWasSuccessfull then Halt; // Проверка отправки сообщения
end;
end.
п.с. прого для фрода?
|
|
|
|
04.06.2010, 18:28
|
|
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
С нами:
8599678
Репутация:
22
|
|
спасибо,но мне нужно чтобы каждый раз номер и текст были разными.как это осуществить?
|
|
|
|
04.06.2010, 18:59
|
|
Познающий
Регистрация: 13.04.2010
Сообщений: 66
С нами:
8463444
Репутация:
2
|
|
Как вариант брать по очереди из списка текст а номер random
|
|
|
|
06.06.2010, 15:44
|
|
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
С нами:
8599678
Репутация:
22
|
|
Неужели никто не знает?
|
|
|
|
06.06.2010, 16:31
|
|
Новичок
Регистрация: 14.05.2010
Сообщений: 2
С нами:
8418290
Репутация:
0
|
|
неужели сложно почитать статьи в инете?!
Последний раз редактировалось NekitoSP; 06.06.2010 в 16:33..
|
|
|
|
06.06.2010, 21:12
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Некоторые версии антивирусных программ (Norton, McAfee, …) сообщают о любой программе, написанной на MidletPascal, как о вирусе «Trojan.Redbrowser.A».
Это вызвано тем, что с помощью MidletPascal была написана троянская программа RedBrowser, тайно рассылающая SMS-сообщения[1].
Так-то!
|
|
|
|
06.06.2010, 22:49
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Тс, сформулируй нормально вопрос. Что за номера? Пробуй сделать массив, а в цикле брать номера оттуда. Если не знаешь как- то подучи сначала обычный паскаль.
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для ][yZ](/avatars/avatar78498.jpg?2185577){kind=avatar}
Похожие темы
Комбинированный вид
