Вопрос : Перезапишите сценарий VB (Висуал Басич) для посылки сообщения SMS от другого вебсайт Telco SMS

 
Currently я имею работая сценарий VB smog послать SMS от вебсайт Telco (codes
are показанного ниже) кто-то дало к мне:


I хотел было бы перезаписать Кодих ниже для того чтобы послать его через ie вебсайт другого Telco: target= " _blank " " http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession " href=
websmsn/usr/createMsgSessionPageShow.do http://websms.starhub.com/? сценарию method=initCreateSession

The VB будет нужно заполнить вверх 3 поля, ie
1) «
2) «ваше имя» - это может быть любое имя, препятствовало нам задает ему OpsDC
3) «сообщение»: до 140 характеров

Then свободного текста щелкают дальше «посылают» кнопку, делают паузу на 2 secs & после этого щелкают on
" встречей конца SMS». приложение

The 1-ого будет исходным текстом для 1-ого экрана (где мы входим друга
/номера назначения передвижных, имени прислужника & приложения message

The 2-ое будет исходным текстом для 2-ого экрана (где мы потребность will
щелкнуть «встречей»



strMobile = «97888888 "
strMessage = «это будем сообщением " objIE
Set
= CreateObject испытания («InternetExplorer. http://sms.singtel.com/in/>ternetsms/»» target= " http://sms.singtel.com/internetsms/ href= objIE.Navigate «
Application»)/>objIE.Visible = поистине
Do

пока
objIE.Document.LoginForm.Item objIE.Busy
WScript.Sleep 2000
Loop

(«email").Value =
objIE.Document.LoginForm.Item «[email protected]» («password»). Value =
Do
objIE.Document.LoginForm.submit

«mypasswd» пока
objIE.Document.startChatForm objIE.Busy
WScript.Sleep 2000
Loop

. Деталь («mobile»). Value = strMobile
objIE.Document.getElementByID («submit»).
WScript.Sleep 10000



/>strURL = «target=» _blank " " http://sms.singtel.com/internetsms/sendMsg.do?id=1&recipient=» href= ternetsms/sendMsg.do http://sms.singtel.com/in? id=1&recipient=»
intCounter = 0

Set =
Set CreateObject («Shell.Application») objShellWindows = objShell.Windows

Do пока <= 10
intCount для каждого objWindow в objShellWindows
если Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount If
Next

конца Do
выхода objWindow.LocationURL
= intCount + 1

, то если intCount = 10 Then
objIE.Navigate «> ternetsms/logoutAction.do "
WScript.Echo «http://sms.singtel.com/in сценарий не могло найти всплывающее окно. Сценарий прекращая " objIE_Pop сна 2000
Loop

Set If

конца
WScript.Quit
= CreateObject («InternetExplorer. strPopupURL

objIE_Pop.Navigate Application»)/>objIE_Pop.Visible = поистине
Do

пока objIE_Pop.Busy
WScript.Sleep 2000
Loop


objIE_Pop.Document.getElementByID («message»). Value = strMessage
objIE_Pop.Document.getElementByID («submit») .click


Do пока objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For каждое objWindow в objShellWindows
если


Do» _blank " > http://sms.singtel.com/in/>logoutActiternetsms/on.do "» target= " http://sms.singtel.com/internetsms/logoutAction.do href= Next


objIE.Navigate «конца Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
пока objIE objIE.Busy
WScript.Sleep 2000
Loop

objIE.Quit
set = objIE_Pop nothing
set = objShellWindows nothing
set = objShell nothing
set = nothing class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " createMsgSessionPageShow.txt (23 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
1-ый экран где мы вписываем чернь назначения, имя прислужника & email
class=
>
>
class= " fileInfo "
title= " " filename class= " webmsn-chat-do.txt (61 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
2-ой экран где мы щелкаем «встречей» button
конца SMS
class=
>
class=

Ответ : Перезапишите сценарий VB (Висуал Басич) для посылки сообщения SMS от другого вебсайт Telco SMS

Кодий ниже должно разрешить вашу проблему, извинения I если вы получили некоторые сообщения к вашему телефону, то по мере того как номер в сценарии испытания был инвалидн на сети поэтому я использовал одно от прикрепленных архивов HTML.

Это переход sms пошлет страницу, вписать детали, щелчок посылает, тогда щелкает дальше кнопкой встречи конца после того как оно пошлет.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

strMobile = «988888»
strSender = «испытание»
strMessage = «это будет сообщением испытания»
 
Установите objIE = CreateObject («InternetExplorer.Application»)
 
objIE.Navigate «http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession»
objIE.Visible = True

 
Сделайте пока objIE.Busy
      WScript.Sleep 2000
Петля

 
objIE.Document.frmMsgCreateSession.Item («получатели»). Значение = strMobile
objIE.Document.frmMsgCreateSession.Item («senderName»). Значение = strSender
objIE.Document.frmMsgCreateSession.Item («сообщение»). Значение = strMessage
objIE.Document.frmMsgCreateSession.submit

 
Сделайте пока objIE.Busy
      WScript.Sleep 2000
Петля

objIE.Document.getElementById («frmMsgSend») .getElementsByTagName («ВХОДНОЙ СИГНАЛ») (6).Click

Сделайте пока objIE.Busy
      WScript.Sleep 2000
Петля

objIE.Quit
установите objIE = ничего
установите objIE_Pop = ничего
установите objShellWindows = ничего
установите objShell = ничего
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us