Vraag : Herschrijf een manuscript VB (Visuele Basis) om Sms- bericht van een andere van Telco Sms- website te verzenden

 
Currently heb ik een werkend manuscript VB dat SMS van de website van een Telco kon verzenden (hieronder getoonde codes
are) die iemand aan me gaf:


I zou de codes willen hieronder herschrijven om het via de website van een andere Telco te verzenden d.w.z.:
http://websms.starhub.com/ websmsn/usr/createMsgSessionPageShow.do? manuscript method=initCreateSession

The aangepaste VB 3 gebieden, ie
1) het Mobiele aantal“
2) „Uw naam“ - dit kan om het even welke naam zijn, ons laten het OpsDC
3) „Bericht“ toewijzen: tot 140 karakters van vrije text

Then klikken op de „Send“ knoop, pauzeren voor 2 seconden & klikken dan on
de " zitting van het Eind SMS“. de gehechtheid

The eerste is de brontekst voor het 1st scherm (waar wij/> vriend

The tweede de brontekst voor het 2de scherm (waar wij will
behoefte om de zittings“ knoop



strMobile = „97888888 "
strMessage = „dit een testbericht "

Set objIE = CreateObject zijn („/>orer InternetExplcation“)

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


Do terwijl objIE.Busy
WScript.Sleep 2000
Loop


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


Do terwijl objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.startChatForm. Punt („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 terwijl intCount <= 10
voor elke objWindow in objShellWindows
als Instr (objWindow.LocationURL, strURL) Then
StrPopupURL =/> het Eind van Do
If
Next

intCount = intCount + 1

als intCount = 10 Then
objIE.Navigate „ http://sms.singtel.com/in ternetsms/logoutAction.do "
WScript.Echo „het manuscript niet het popup venster kon vinden. Manuscript die " met de Slaap 2000
Loop

Set ophouden van If

WScript.Quit
/> objIE_Pop = CreateObject („InternetExplorer. Application“)

objIE_Pop.Navigate strPopupURL
objIE_Pop.Visible = Ware


Do terwijl objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do terwijl objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For elke objWindow in objShellWindows
het Eind If
Next


objIE.Navigate „ http://sms.singtel.com/in ternetsms/logoutAction.do "


Do terwijl objIE.Busy
WScript.Sleep 2000
Loop

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

Attachments:

van

createMsgSessionPageShow.txt (23 KB)  (de Details van het Type van Dossier)  

het 1st scherm waar wij mobiele bestemming, afzendernaam & email

ingaan

van

webmsn-chat-do.txt (61 KB)  (de Details van het Type van Dossier)  

het 2de scherm waar wij zitting“ button

de „van het Eind SMS klikken

Antwoord : Herschrijf een manuscript VB (Visuele Basis) om Sms- bericht van een andere van Telco Sms- website te verzenden

De code zou hieronder uw probleem, Iverontschuldigingen moeten oplossen als u sommige berichten aan uw telefoon kreeg aangezien het aantal in het testmanuscript op het netwerk ongeldig was zodat gebruikte ik van de HTML- dossiers in bijlage.

Dit zal goto sms pagina, ingaan de details verzenden, verzendt de klik, dan klik op de knoop van de eindzitting nadat het heeft verzonden.

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 = „Test“ strMessage = „dit is een testbericht“ Reeks objIE = CreateObject („InternetExplorer.Application“) objIE.Navigate „http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession“ objIE.Visible = Waar Doe terwijl objIE.Busy WScript.Sleep 2000 Lijn objIE.Document.frmMsgCreateSession.Item („ontvangers“). Waarde = strMobile objIE.Document.frmMsgCreateSession.Item („senderName“). Waarde = strSender objIE.Document.frmMsgCreateSession.Item („bericht“). Waarde = strMessage objIE.Document.frmMsgCreateSession.submit Doe terwijl objIE.Busy WScript.Sleep 2000 Lijn objIE.Document.getElementById („frmMsgSend“) .getElementsByTagName („INPUT“) (6).Click Doe terwijl objIE.Busy WScript.Sleep 2000 Lijn objIE.Quit reeks objIE = niets reeks objIE_Pop = niets reeks objShellWindows = niets reeks objShell = niets