Fråga : Förhöja en VB skriva för att kontrollera hostnamen av PC:N för spring

Jag har efter arbetet VB att skriva att ska överför SMS/meddelandet via the
Telco portal.

But som jag behöver en förbättring: att att kontrollera på början av skriva, om hostnameof PC:N för segern XP är ”abcdefgh”; stoppa därefter utförande vila av codes

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

strMobile = ”97888888 "
strMessage = ”detta är ett testameddelande " objIE för
Set för
= CreateObject (”InternetExplorer, om inte. För http://sms.singtel.com/internetsms/” för href= för objIE.Navigate ”för Application”)

http://sms.singtel.com/in/>ternetsms/” för rel=” för _blank” target=/>objIE.Visible = riktig
Do för

fördriver
objIE.Document.LoginForm.Item (”email” för objIE.Busy
WScript.Sleep 2000
Loop

). Värdera = ”[email protected]”
objIE.Document.LoginForm.Item (”password”). Value =
Do ”för mypassword”
objIE.Document.LoginForm.submit

fördriver
objIE.Document.startChatForm för objIE.Busy
WScript.Sleep 2000
Loop

. Objekt (”mobile”). Value = strMobile
objIE.Document.getElementByID (”submit”). Click


WScript.Sleep 10000


strURL = rel= " nofollow " för _blank” ”för http://sms.singtel.com/in ternetsms/sendMsg.do? id=1&recipient=”
intCounter = för 0

Set objShell = objShellWindows för CreateObject (”Shell.Application”)
Set = objShell.Windows

Do fördriver intCount<= 10
för varje objWindow i objShellWindows
, om Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = objWindow.LocationURL
går ut Do
avslutar If
Next

intCount = intCount + 1

, om intCount = 10 Then
objIE.Navigate ”" för http://sms.singtel.com/internetsms/logoutAction.do” rel= " nofollow "” för _blank” target= > http://sms.singtel.com/in ternetsms/logoutAction.do "
WScript.Echo ”skriva inte var kompetent att finna det popup fönstret. Skriva avsluta "
WScript.Quit
avslutar objIE_Pop för If

sömn 2000
Loop

Set = CreateObject (”InternetExplorer. strPopupURL
cation”)

objIE_Pop.Navigate/>objIE_Pop.Visible = riktig
Do för

fördriver objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do fördriver objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For varje objWindow i objShellWindows
, om Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
avslutar för http://sms.singtel.com/internetsms/logoutAction.do för If
Next


objIE.Navigate ” WScript.Sleep 2000
Loop

objIE.Quit
set för


Do för nofollow " > http://sms.singtel.com/in/>logoutActiternetsms/on.do "” för rel= " för _blank” target=” = objIE_Pop för nothing
set = objShellWindows för nothing
set = objShell för nothing
set = nothing " klar "

Svar : Förhöja en VB skriva för att kontrollera hostnamen av PC:N för spring

Ja du kan inte göra det i 2003