Questione : Riscrivere uno scritto di VB (Visual Basic) per trasmettere il messaggio di SMS da un altro Web site di Telco SMS

 
Currently ho uno scritto di funzionamento di VB che potrebbe trasmettere SMS dal Web site del Telco (il codes
are indicato sotto) quale qualcuno ha dato me: il


I vorrebbe riscrivere i codici qui sotto per trasmetterlo via lo IE di Web site di un altro Telco: target= " _blank " " di http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession " del href= del
websmsn/usr/createMsgSessionPageShow.do di http://websms.starhub.com/? lo scritto adattato/>The del method=initCreateSession

1) “
2) “il vostro nome„ - questo può essere tutto il nome, li ha lasciati gli assegna OpsDC
3) “messaggio„: fino a 140 caratteri del

Then del testo scattano sopra “trasmettono„ il tasto, fanno una pausa per 2 sec & allora scattano il on
" sessione di conclusione SMS„. il collegamento del

The primo è il testo originale per il primo schermo (dove entriamo nel numero dell'amico/destinazione del
, nel nome del mittente & nel collegamento mobili del message

The secondo è il testo originale per il secondo schermo (dove necessità del will
di scattare “la sessione„ il



strMobile = “97888888 "
strMessage = “questo siamo un messaggio test " objIE del
Set del
= CreateObject (“InternetExplorer. http://sms.singtel.com/in ternetsms/„„ del target= " di http://sms.singtel.com/internetsms/ del href= di objIE.Navigate “del
di Application„)/>objIE.Visible = vero
Do del

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

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

“del mypasswd„ mentre
objIE.Document.startChatForm di objIE.Busy
WScript.Sleep 2000
Loop

. Articolo (“mobile„). Value = strMobile
objIE.Document.getElementByID (“submit„).
WScript.Sleep 10000



/>strURL = “target=„ _blank " " di http://sms.singtel.com/internetsms/sendMsg.do?id=1&recipient=„ del href= di ternetsms/sendMsg.do di http://sms.singtel.com/in? id=1&recipient=„
intCounter/>
Set = objShellWindows del
Set di CreateObject (“Shell.Application„) = objShell.Windows

Do mentre <= 10
del intCount per ogni objWindow nel objShellWindows
se Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount di If
Next

di conclusione di Do
dell'uscita di objWindow.LocationURL
= intCount + 1

se il intCount = 10 Then
objIE.Navigate “> ternetsms/logoutAction.do " il
WScript.Echo “di http://sms.singtel.com/in lo scritto non possa trovare la finestra a finestra. Scritto che rinuncia " il objIE_Pop di sonno 2000
Loop

Set di If

di conclusione del
WScript.Quit
= CreateObject (“InternetExplorer. strPopupURL

objIE_Pop.Navigate di Application„)/>objIE_Pop.Visible = vero
Do del

mentre objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do mentre objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For ogni objWindow nel objShellWindows
se


Do„ del _blank " > http://sms.singtel.com/in ternetsms/logoutAction.do "„ del target= " di http://sms.singtel.com/internetsms/logoutAction.do del href= di Next


objIE.Navigate “di conclusione di Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
mentre objIE di 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 " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di createMsgSessionPageShow.txt il class= (23 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
primo schermo dove entriamo nel mobile della destinazione, nel nome del mittente & in email
il class= di
del >
il
class= " fileInfo " del
il title= " " di nome di schedario del class= " di webmsn-chat-do.txt il class= (61 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
secondo schermo dove scattiamo “la sessione„ button
di conclusione SMS
il class= di
del >
class= del

Risposta : Riscrivere uno scritto di VB (Visual Basic) per trasmettere il messaggio di SMS da un altro Web site di Telco SMS

Il codice qui sotto dovrebbe risolvere il vostro problema, scuse di i se otteneste alcuni messaggi al vostro telefono poichè il numero nello scritto della prova era non valido sulla rete in modo da ho usato quello dalle lime di HTML allegate.

Ciò di avanzamento gli sms trasmetterà la pagina, entrare nei particolari, scatto trasmette, quindi scatta sopra il tasto di sessione di conclusione dopo che ha trasmesso.
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 = “prova„
lo strMessage = “questo è un messaggio test„
 
Regolare il objIE = CreateObject (“InternetExplorer.Application„)
 
objIE.Navigate “http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession„
objIE.Visible = allineano

 
Fare mentre objIE.Busy
      WScript.Sleep 2000
Ciclo

 
objIE.Document.frmMsgCreateSession.Item (“destinatari„). Valore = strMobile
objIE.Document.frmMsgCreateSession.Item (“senderName„). Valore = strSender
objIE.Document.frmMsgCreateSession.Item (“messaggio„). Valore = strMessage
objIE.Document.frmMsgCreateSession.submit

 
Fare mentre objIE.Busy
      WScript.Sleep 2000
Ciclo

objIE.Document.getElementById (“frmMsgSend„) .getElementsByTagName (“INPUT„) (6).Click

Fare mentre objIE.Busy
      WScript.Sleep 2000
Ciclo

objIE.Quit
regolare il objIE = niente
regolare il objIE_Pop = niente
regolare i objShellWindows = niente
regolare il objShell = niente
Altre soluzioni  
 
programming4us programming4us