IE per vbs Script schließen

[Mediacenter 10]

Hallo Kollegen,
 
ich benutze ein VBS Script um den IE zu starten und eine definierte Webseite zu öffnen:
 

 

Dim objExplorer


Set objExplorer = WScript.CreateObject("InternetExplorer.Application")

Do While (objExplorer.Busy)
Wscript.Sleep 250
Loop

objExplorer.TheaterMode = False
objExplorer.AddressBar = True
objExplorer.MenuBar = True
objExplorer.StatusBar = True
objExplorer.ToolBar = False
objExplorer.Resizable = True


objExplorer.Height = 600
objExplorer.Width = 800
objExplorer.Left = 0
objExplorer.Top = 0
' objExplorer.FullScreen = True
objExplorer.Silent = False
objExplorer.Visible = True


objExplorer.Navigate "http://www.google.com"

wscript.sleep 6000


Set objExplorer = nothing

 
Wie kann ich es jetzt erreichen dass der IE am Schluss nicht einfach stehen bleibt, sondern sauber geschlossen wird? bearbeitet 2. Juni 2013 von Mediacenter

[Sunny61 773]

Gibt es .close vielleicht? Und erst dann mit = nothing das Objekt zerstören.

[wilgin 11]

Hi,

einfach mit objExplorer.quit

 

(siehe http://msdn.microsoft.com/en-us/library/ms970456.aspx)

 

vg

[PSA 0]

Hallo Mediacenter,

 

im MSDN habe ich im Artikel http://msdn.microsoft.com/en-us/library/ms970657.aspx in "Table 3-4.Window Object Methods" die Methode Close entdeckt. Möglicherweise hilft dir das weiter.

 

Vielleicht funktioniert auch einfach das Beenden des Prozesses...

 

Set objShell = CreateObject("Wscript.Shell")
objShell.Run("taskkill /F /IM iexplore.exe /T")

[Mediacenter 10]

Cool, danke!

 

objExplorer.quit funktioniert. :)

[Mediacenter 10]

Das klappt super! danke

 

Jetzt würde ich das gerne in einem Loop laufen lassen und dabei 5 oder 10 x laufen lassen und zwischen jeden Aufruf des Explorer so 5 Sekunden pausieren.

 

Wie kann ich das den hinbekommen?

[Cybquest 36]

?!? hast doch quasi schon mit drin... das WScript.Sleep 6000 am Ende. Musst doch jetzt nur noch die Schleife drumrum bauen.

10 x laufen lassen entw. z.B. mit nem

  For i=1 to 10

   ...

  Next

 

oder mit nem

Do

   ...

i=i+1

Loop until i >= 10

[Mediacenter 10]

Manno das ist echt easy. Bin ich nicht drauf gekommen.

 

Danke!

[jantrummel 0]

Hallo,

muss deiese Thema wieder öffnen.

 

Wenn ich statt google.de eine andere Seite wähle die er öffnen soll, in meinem Fall eine Coldfusion Seite, erhalte ich folgende Fehlermeldung:

Zeile: 8 (ist in meinem Fall: ieobj.quit)

Zeichen: 1

Fehler: Die Schnittstelle ist unbekannt.

Code: 800706B5

Quelle: (null)

 

Code:

set ieobj = createobject("internetexplorer.application")
ieobj.visible=true
ieobj.navigate "http://sweb/IE/Anwesenheit.cfm"
while ieobj.busy
'wait
wend
Wscript.sleep 3000
ieobj.quit

 

 

Hmmm woran liegt es?

bearbeitet 15. Oktober 2015 von jantrummel

[Sunny61 773]

muss deiese Thema wieder öffnen.

Bitte alte fremde Threads nicht kapern sondern ruhen lassen. Erstelle einen eigenen neuen Thread mit möglichst vielen Informationen und Details, Danke.