VBScript: как отправить sms на теле2 с помощью скрипта?
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
VBScript: как отправить sms на теле2 с помощью скрипта? - 2009-02-23 10:15:58.370000
|
|
|
_Juno_
Сообщений: 1
Оценки: 0
Присоединился: 2008-07-31 14:23:09.620000
|
Подскажите, пожалуйста. Пишу скрипт для слежения за серваком, в случае его отключения нужно чтоб приходила sms.
Заранее благодарен!
|
|
|
|
|
RE: VBScript: как отправить sms на теле2 с помощью скрипта? - 2009-02-23 23:24:15.823333
|
|
|
Archivarius
Сообщений: 164
Оценки: 0
Присоединился: 2008-10-26 00:16:25.630000
|
Ты обьясни подробнее. Почему именно VBScript?
Я себе это представляю так: Есть какой-то левый сервер, допустим бесплатный хостинг какой-нибудь, на нем через определенные промежутки времени запускается скрипт и пингует твой сервер. Если пинга нет, то тебе на сотовый отсылается СМС.
А ты как хочешь это сделать?
|
|
|
|
|
RE: VBScript: как отправить sms на теле2 с помощью скрипта? - 2009-02-24 16:06:46.666666
|
|
|
AloneMonaX
Сообщений: 106
Оценки: 0
Присоединился: 2009-02-04 14:57:00.896666
|
Я так же думаю, дык это же мона просто прогу запустить на VB например, хотя для тебя я советую ПХП
|
|
|
|
|
RE: VBScript: как отправить sms на теле2 с помощью скрипта? - 2009-02-26 01:19:48.166666
|
|
|
Gri3li
Сообщений: 104
Оценки: 0
Присоединился: 2007-01-14 01:09:34.463333
|
на сайте теле2 скорее всего есть форма для отсылки смс… скрипту всего то нужно зайти на страничку, заполнить все поля и нажать соответствующею кнопку.
Выглядеть будет примерно так:
On Error Resume Next 'не выводить сообщения об ошибке
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False 'не показывать окно IE
objIE.Navigate "http://qwe.ru/fofma.php" 'адрес формы которую заполняем
While objIE.Busy 'ждем пока загрузится
WScript.Sleep 1000
Wend
Set objForm = objIE.Document.forms(0)
' nomer и text имена заполняемых полей, смотреть в хтмл коде страницы
objForm.elements("nomer").value = "99999999999"
objForm.elements("text").value = "Сервак отключился!"
objIE.document.Auth.submit 'жмен на кнопку
While objIE.Busy
WScript.Sleep 200
Wend
objIE.Visible = True
set objIE = Nothing
ЗЫ если там капча, или еще какая защита от автозаполнения стоит то естественно не прокатит
зыы других способов нет
|
|
|
|
|
RE: VBScript: как отправить sms на теле2 с помощью скрипта? - 2009-03-09 15:27:52.416666
|
|
|
BeeLet89
Сообщений: 117
Оценки: 0
Присоединился: 2008-10-19 10:40:01.816666
|
Не прокатит - там надо заполнять ещё и с картинки цифры !
|
|
|
|
|
|
