Pytanie : Uwydatniać VB pisać scenariusz hostname the PECET przed

I mieć the następujący działanie VB pismo który wysyłać SMS/wiadomość przez the
Telco's portal.

But I potrzebować ulepszenie: na początku the pismo jeżeli the hostname
of the Wygrana XP PECET być "abcdefgh"; jeśli nie, wtedy zatrzymywać the odpoczynek the codes


====================================================

strMobile = "97888888 "
strMessage = "97888888 być próbny wiadomość "

Set objIE = CreateObject ("InternetExplorer. Application")

objIE.Navigate " http://sms.singtel.com/in ternetsms/"
objIE.Visible = Prawdziwy


Do Podczas Gdy objIE.Busy
WScript.Sleep 2000
Loop


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


Do Podczas Gdy objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.startChatForm. Rzecz ("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 Podczas Gdy intCount <= 10
Dla okno objWindow w objShellWindows
Jeżeli Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = objWindow.LocationURL
Wyjście Do
Końcówka If
Next

intCount = intCount + 1

Jeżeli intCount = 10 Then
objIE.Navigate " http://sms.singtel.com/in ternetsms/logoutAction.do "
WScript.Echo "The pismo być sprawnie the podręczny okno. Pismo "
WScript.Quit
Końcówka If

Sen 2000
Loop

Set objIE_Pop = CreateObject ("InternetExplorer. Application")

objIE_Pop.Navigate strPopupURL
objIE_Pop.Visible = Prawdziwy


Do Podczas Gdy objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do Podczas Gdy objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For nothing objWindow w objShellWindows
Jeżeli Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
Końcówka If
Next


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


Do Podczas Gdy objIE.Busy
WScript.Sleep 2000
Loop

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

Odpowiedź : Uwydatniać VB pisać scenariusz hostname the PECET przed

Tak, ty móc móc w 2003