ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Вопрос по Midlet Pascal
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Вопрос по Midlet Pascal
  #1  
Старый 03.06.2010, 23:19
skagen
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
Провел на форуме:
1008872

Репутация: 22
Отправить сообщение для skagen с помощью ICQ
По умолчанию Вопрос по Midlet Pascal
Собственно появилась надобность в написании так называемого "аларма".нужен совсем простенький,а именно.я открываю приложение,вылазит предложение отправить смс на один префикс-я нажимаю да.вылазит второе предложение отправить смс-тоже нажимаю да и так до бесконечности.вопрос в том,с помощью какого кода это осуществить?Знаю как отправить сообщение на один номер:
Код:
begin    if not SmsStartSend('sms://номер', 'текст') then Halt;
 while SmsIsSending do // Ждем пока отправится...        Delay(100);
if not SmsWasSuccessfull then Halt; // Проверка отправки сообщения     
end.
но не знаю как прилепить второе сообщение и сделать так,чтобы не было написано "Подождите,пока отправится SMS"
Надеюсь на помощь.спасибо
 
Ответить с цитированием

  #2  
Старый 04.06.2010, 18:04
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253

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

п.с. прого для фрода?
 
Ответить с цитированием

  #3  
Старый 04.06.2010, 18:28
skagen
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
Провел на форуме:
1008872

Репутация: 22
Отправить сообщение для skagen с помощью ICQ
По умолчанию
спасибо,но мне нужно чтобы каждый раз номер и текст были разными.как это осуществить?
 
Ответить с цитированием

  #4  
Старый 04.06.2010, 18:59
Ildon
Познающий
Регистрация: 13.04.2010
Сообщений: 66
Провел на форуме:
183788

Репутация: 2
По умолчанию
Как вариант брать по очереди из списка текст а номер random
 
Ответить с цитированием

  #5  
Старый 06.06.2010, 15:44
skagen
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
Провел на форуме:
1008872

Репутация: 22
Отправить сообщение для skagen с помощью ICQ
По умолчанию
Неужели никто не знает?
 
Ответить с цитированием

  #6  
Старый 06.06.2010, 16:31
NekitoSP
Новичок
Регистрация: 14.05.2010
Сообщений: 2
Провел на форуме:
6970

Репутация: 0
По умолчанию
неужели сложно почитать статьи в инете?!
Последний раз редактировалось NekitoSP; 06.06.2010 в 16:33..
 
Ответить с цитированием

  #7  
Старый 06.06.2010, 21:12
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081

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

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

  #8  
Старый 06.06.2010, 22:49
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939

Репутация: 108
Отправить сообщение для =Zeus= с помощью ICQ
По умолчанию
Тс, сформулируй нормально вопрос. Что за номера? Пробуй сделать массив, а в цикле брать номера оттуда. Если не знаешь как- то подучи сначала обычный паскаль.
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос про секретный вопрос к почтовому ящику :) [12]qwerty Болталка 9 06.04.2010 20:46
Proxy FAQ foreva Чужие Статьи 12 04.01.2008 12:15
Интернетчики задали российскому президенту очень странные вопросы podkashey Мировые новости 4 07.07.2006 16:53
Вопрос по Php и Html Archie PHP, PERL, MySQL, JavaScript 9 26.05.2006 16:43



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ