Cuestión : Reescribir una escritura de VB (Visual Basic) para enviar el mensaje de SMS de otro Web site de Telco SMS

 el
Currently tengo una escritura de trabajo de VB que podría enviar SMS del Web site de un Telco (el codes
are demostrado abajo) cuál alguien me dio: el


I quisiera reescribir los códigos abajo para enviarlo vía el IE del Web site de otro Telco: ¿target= " _blank " de " http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession " del href= del
websmsn/usr/createMsgSessionPageShow.do de http://websms.starhub.com/? la escritura adaptada/>The del method=initCreateSession

1) de “el
2) “su nombre” - éste puede ser cualquier nombre, nos dejó le asigna OpsDC
3) “mensaje”: hasta 140 carácteres del text

Then chascan encendido “envían” el botón, se detienen brevemente por 2 secs y después chascan el on
" sesión del final SMS”. el accesorio del

The 1r es el texto original para la 1ra pantalla (donde entramos en número del amigo/de la destinación del
, nombre del remitente y el accesorio móviles del message

The 2do es el texto original para la 2da pantalla (donde necesidad del will
de chascar la “sesión”



strMobile = “97888888 "
strMessage = “esto estamos un mensaje de prueba " objIE del
Set del
= CreateObject (“InternetExplorer.
http://sms.singtel.com/in/>ternetsms/” del target= de " http://sms.singtel.com/internetsms/” del href= del objIE.Navigate “del
de Application”)/>objIE.Visible =
Do del

mientras que objIE.Busy
objIE.Document.LoginForm.Item (“email WScript.Sleep 2000
Loop

/>").Value = “
objIE.Document.LoginForm.Item (“password” de [email protected]”). Value =
Do del
objIE.Document.LoginForm.submit

del “mypasswd” mientras que
objIE.Document.startChatForm de objIE.Busy
WScript.Sleep 2000
Loop

. Artículo (“mobile”). Value = strMobile
objIE.Document.getElementByID (“submit”). ¿
WScript.Sleep 10000



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

Set = objShellWindows del
Set de CreateObject (“Shell.Application”) = objShell.Windows

Do mientras que <= 10
del intCount para cada objWindow en el objShellWindows
si Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount de If
Next

del final de Do
de la salida de objWindow.LocationURL
= intCount + 1

si el intCount = 10 Then
objIE.Navigate “> el ternetsms/logoutAction.do "
WScript.Echo “de http://sms.singtel.com/in la escritura no podía encontrar la ventana móvil. Escritura que para " el objIE_Pop = CreateObject (“InternetExplorer del sueño 2000
Loop

Set de If

del final del
WScript.Quit
. strPopupURL

objIE_Pop.Navigate de Application”)/>objIE_Pop.Visible =
Do del

mientras que objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do mientras que objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For cada objWindow en el objShellWindows
si


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


objIE.Navigate del “del final de Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
mientras que objIE de objIE.Busy
WScript.Sleep 2000
Loop

objIE.Quit
set = objIE_Pop del nothing
set = objShellWindows del nothing
set = objShell del nothing
set = nothing class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del createMsgSessionPageShow.txt el class= (23 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
1ra pantalla donde incorporamos el móvil de la destinación, el nombre del remitente y email
el class= de
del >
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del webmsn-chat-do.txt el class= (61 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
2da pantalla donde chascamos la “sesión” button
del final SMS
el class= de
del >
class= del

Respuesta : Reescribir una escritura de VB (Visual Basic) para enviar el mensaje de SMS de otro Web site de Telco SMS

El código abajo debe solucionar su problema, apologías de i si usted consiguió algunos mensajes a su teléfono pues el número en la escritura de la prueba era inválido en la red así que utilicé el que está de los archivos de HTML atados.

Esto indicado los sms enviará la página, incorporar los detalles, tecleo envía, después chasca encendido el botón de la sesión del final después de que haya enviado.
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 = “prueba”
el strMessage = “esto es un mensaje de prueba”
 
Fijar el objIE = CreateObject (“InternetExplorer.Application”)
 
objIE.Navigate “http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession”
objIE.Visible = verdad

 
Hacer mientras que objIE.Busy
      WScript.Sleep 2000
Lazo

 
objIE.Document.frmMsgCreateSession.Item (“recipientes”). Valor = strMobile
objIE.Document.frmMsgCreateSession.Item (“senderName”). Valor = strSender
objIE.Document.frmMsgCreateSession.Item (“mensaje”). Valor = strMessage
objIE.Document.frmMsgCreateSession.submit

 
Hacer mientras que objIE.Busy
      WScript.Sleep 2000
Lazo

objIE.Document.getElementById (“frmMsgSend”) .getElementsByTagName (“ENTRADA”) (6).Click

Hacer mientras que objIE.Busy
      WScript.Sleep 2000
Lazo

objIE.Quit
fijar el objIE = nada
fijar el objIE_Pop = nada
fijar los objShellWindows = nada
fijar el objShell = nada
Otras soluciones  
 
programming4us programming4us