
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
15.01.2008, 16:03
|
|||
|---|---|---|---|
|
|||
почему скрипт отправить SMS не работает? |
|||
|
#18+
Dim objIE Dim objDoc Dim objForm Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False objIE.Silent = False objIE.Navigate("http://www.spb.mts.ru/sendform_sms.htm") While objIE.ReadyState < 4 Wend Set objDoc = objIE.Document Set objForm= objDoc.Forms(0) objForm.elements("To").value = "7910..........." objForm.elements("Msg").value = "Сообщение" objForm.submit() Set objForm = Nothing Set objDoc = Nothing Set objIE = Nothing ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.01.2008, 16:11
|
|||
|---|---|---|---|
|
|||
почему скрипт отправить SMS не работает? |
|||
|
#18+
objForm.elements("To").value = "7910..........." ругается на эту строчку ......пишет требуется объект elements ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.01.2008, 16:32
|
|||
|---|---|---|---|
почему скрипт отправить SMS не работает? |
|||
|
#18+
Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=22&mobile=1&tid=1457063]: |
0ms |
get settings: |
5ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
132ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
24ms |
get tp. blocked users: |
1ms |
| others: | 244ms |
| total: | 428ms |

| 0 / 0 |
