Question : Récrire un manuscrit de VB (Visual Basic) pour envoyer le message de SMS d'un autre site Web de Telco SMS

 le
Currently j'ai un manuscrit fonctionnant de VB qui pourrait envoyer SMS du site Web d'un Telco (le codes
are montré ci-dessous) ce que quelqu'un m'a donné : le


I voudrait récrire les codes ci-dessous pour l'envoyer par l'intermédiaire de l'IE du site Web d'un autre Telco : target= " _blank " de " http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession " de href= du
websmsn/usr/createMsgSessionPageShow.do de http://websms.starhub.com/ ? le manuscrit adapté par/>The du method=initCreateSession

1) le
2) « votre nom » - ceci peut être n'importe quel nom, nous a laissés lui assignent OpsDC
3) « message » : jusqu'à 140 caractères de

Then de texte libre cliquent dessus « envoient » le bouton, font une pause pendant 2 sec et cliquent alors l'on
" session de la fin SMS ». l'attachement du

The ęr est le texte source pour le ęr écran (où nous entrons dans le nombre d'ami/destination du
, le nom d'expéditeur et l'attachement mobiles de message

The 2ème est le texte source pour le 2ème écran (où nous le besoin du will
de cliquer session » le



strMobile = « 97888888 "
strMessage = « ceci est un message-test " objIE du
Set du
= CreateObject (« InternetExplorer.
http://sms.singtel.com/in/>ternetsms/ » de target= de " http://sms.singtel.com/internetsms/ » de href= de objIE.Navigate « du
d'Application »)/>objIE.Visible = véritable
Do du

tandis qu'objIE.Busy
objIE.Document.LoginForm.Item (« email WScript.Sleep 2000
Loop

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

de « mypasswd » tandis que
objIE.Document.startChatForm d'objIE.Busy
WScript.Sleep 2000
Loop

. Article (« mobile »). Value = strMobile
objIE.Document.getElementByID (« submit »).
WScript.Sleep 10000



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

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

Do tandis que <= d'intCount 10
pour chaque objWindow dans l'objShellWindows
s'Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount d'If
Next

de fin de Do
de sortie d'objWindow.LocationURL
= intCount + 1

si l'intCount = 10 Then
objIE.Navigate « > le ternetsms/logoutAction.do le "
WScript.Echo « de http://sms.singtel.com/in le manuscrit ne pouvait pas trouver la fenêtre automatique. Manuscrit stoppant " l'objIE_Pop du sommeil 2000
Loop

Set d'If

de fin du
WScript.Quit
= le CreateObject (« InternetExplorer. strPopupURL

objIE_Pop.Navigate d'Application »)/>objIE_Pop.Visible = véritable
Do du

tandis qu'objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do tandis qu'objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For chaque objWindow dans l'objShellWindows
si


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


objIE.Navigate de fin d'Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
tandis qu'objIE d'objIE.Busy
WScript.Sleep 2000
Loop

objIE.Quit
set = objIE_Pop du nothing
set = objShellWindows du nothing
set = objShell du nothing
set = nothing class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

>