Frage : Einen VB Index (Visual Basic) neu schreiben um SMS Mitteilung von einer anderen Telco SMS Web site zu senden

 
Currently habe ich einen Arbeits-VB Index, der SMS eines Telcos von der Web site (das codes
are senden könnte unten gezeigt) welches jemand mir gab:


I möchte die Codes unten neu schreiben, um es über eines anderen Telcos site-IE zu senden:
http://websms.starhub.com/ websmsn/usr/createMsgSessionPageShow.do? method=initCreateSession

The angepasster VB Index muss 3 Felder, ie
1) „Starhub Ihres Freunds bewegliche Zahl“
2) „Ihr Name“ - dieser kann jeder möglicher Name sein, ließ uns zuweisen ihm OpsDC
3) „Mitteilung“: bis 140 Buchstaben freier Text

Then klicken an „senden“ Knopf, pausieren für 2 sek u. klicken dann on
" Lernabschnitt des Endes SMS“ an.

The 1. Zubehör ist der Ausgangstext für den 1. Schirm (wo wir
mobile Zahl des Freunds/des Bestimmungsortes betreten, Absendernamen u. message

The 2. Zubehör der Ausgangstext für den 2. Schirm (wo wir will
Notwendigkeit, anzuklicken Lernabschnitt“ Knopf



strMobile = „97888888 "
strMessage = „dieses eine Testmeldung "

Set objIE = CreateObject sind („InternetExplorer. Application“)

objIE.Navigate „ http://sms.singtel.com/in/>ternetsms/“
objIE.Visible = zutreffendes


Do während objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.LoginForm.Item („email").Value = „[email protected]“
objIE.Document.LoginForm.Item („password“). Value = „mypasswd“
objIE.Document.LoginForm.submit


Do während objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.startChatForm. Einzelteil („mobile“). Value = strMobile
objIE.Document.getElementByID („submit“). Click


WScript.Sleep 10000


strURL = „ http://sms.singtel.com/in ternetsms/sendMsg.do? id=1&recipient=“
intCounter = 0

Set objShell = CreateObject („Shell.Application“)
Set objShellWindows = objShell.Windows

Do während intCount <= 10
für jedes objWindow im objShellWindows
wenn Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = objWindow.LocationURL
Ausgang Do
Ende If
Next

intCount = intCount + 1

, wenn intCount = 10 Then
objIE.Navigate „ http://sms.singtel.com/in ternetsms/logoutAction.do "
WScript.Echo „der Index nicht in der Lage war, das Popup- Fenster zu finden. Index, der "
WScript.Quit
Ende If

Schlaf 2000
Loop

Set objIE_Pop = CreateObject („InternetExplorer beendigt. Application“)

objIE_Pop.Navigate strPopupURL
objIE_Pop.Visible = zutreffendes


Do während objIE_Pop.Busy
WScript.Sleep 2000
Loop


objIE_Pop.Document.getElementByID („message“). Value = strMessage
objIE_Pop.Document.getElementByID („submit“) .click


Do während objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For jedes objWindow im objShellWindows
wenn Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
Ende If
Next


objIE.Navigate „ http://sms.singtel.com/in/>logoutActiternetsms/on.do "


Do während objIE.Busy
WScript.Sleep 2000
Loop

objIE.Quit
set objIE = nothing
set objIE_Pop = nothing
set objShellWindows = nothing
set objShell = nothing

Attachments:

createMsgSessionPageShow.txt (23 KBS)  (Akten-Art Details)  

1. Schirm, wo wir Bestimmungsortmobile, Absendernamen u. email

eintragen

webmsn-chat-do.txt (61 KBS)  (Akten-Art Details)  

2. Schirm, wo wir Lernabschnitt“ button

„des Endes SMS anklicken

Antwort : Einen VB Index (Visual Basic) neu schreiben um SMS Mitteilung von einer anderen Telco SMS Web site zu senden

Der Code unten sollte Ihr Problem, i-Entschuldigungen lösen, wenn Sie einige Mitteilungen zu Ihrem Telefon erhielten, da die Zahl im Testindex im Netz unzulässig war, also ich das von den angebrachten HTML-Akten verwendete.

Dieses Goto- die sms sendet Seite, die Details, Klicken einzutragen senden, dann klicken an den Endenlernabschnittknopf, nachdem es gesendet hat.

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: 6:

strMobile = „988888“ strSender = „Test“ strMessage = „dieses ist eine Testmeldung“ objIE = CreateObject („InternetExplorer.Application“) einstellen objIE.Navigate „http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession“ objIE.Visible = richten aus Tun während objIE.Busy WScript.Sleep 2000 Schleife objIE.Document.frmMsgCreateSession.Item („Empfänger“). Wert = strMobile objIE.Document.frmMsgCreateSession.Item („senderName“). Wert = strSender objIE.Document.frmMsgCreateSession.Item („Mitteilung“). Wert = strMessage objIE.Document.frmMsgCreateSession.submit Tun während objIE.Busy WScript.Sleep 2000 Schleife objIE.Document.getElementById („frmMsgSend“) .getElementsByTagName („EINGANG“) (6).Click Tun während objIE.Busy WScript.Sleep 2000 Schleife objIE.Quit objIE einstellen = nichts objIE_Pop einstellen = nichts objShellWindows einstellen = nichts objShell einstellen = nichts