WinXP / Internetexplorer VBScript

[Undying 11]

Hi!

 

Folgendes Problem:

 

Ich möchte den IE starten und eine Seite laden. Der IE soll ohne Toolbar gestartet werden und maximiert.

Funktioniert unter Win2000 perfekt mit dem VB Script:

 

'SCRIPT START

SET MYSHELL = CreateObject("Wscript.Shell")

SET IE = CreateObject("InternetExplorer.Application")

page = "http://sbs2003:82/"

WITH IE

.toolbar=0

.navigate page

.visible=true

END WITH

SET MyShell = CreateObject("Wscript.Shell")

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.AppActivate("Internet Explorer")

objShell.Sendkeys "% x"

'SCRIPT ENDE

 

Unter WinXP funzt es auch, allerdings nur solange kein anderes Internetexplorer Fenster offen ist. (denn da wird das 1ste offene maximiert und nicht das neu geöffnete)

 

Ideen? Oder andere LÖsungsvorschläge?

 

lg

 

Undying

[Undying 11]

Keiner eine Idee? Kennt eventuell wer ein gutes VBSript / Visualbasic / ASP Forum?

 

lg

 

Undying

[Egli 10]

Hallo,

 

also wenn du eventuell bereits geöffnete Fenster nicht brauchst, bau doch am Anfang deines Scriptes einfach ne Abfrage nach einem vorhandenen IE-Fenster ein und schliesse es bevor dein jetziger Aufruf kommt. ;)

 

Gruss Egli

[Operator 10]

Hi,

 

also bei mir unter XP mit IE und allen Hotfixes macht das Script genau das was es soll: ein neues IE Objekt erstellen (sprich: neues Fenster) und öffnet die Seite.

Was ich spontan nicht hinbekomme ich das maximieren des Fensters. Das könnte man vielleicht noch durch Setzen der Eigenschaften Width und Height hinbekommen und vorheriges Auslesen der Bildschirm-Höhe und Breite.

Eine Alternative wäre ".fullscreen=true", aber dann ist es wirklich fullscreen :)

 

Solltest Du bei Dir Virenscanner einsetzen könnte es passieren, daß der Alarm schlägt. Der Norton Antivirus meldet Sicherheitsrisiko bei den Sendkey-Commands...

 

Gruß

Andre

[Undying 11]

Hi!

 

Danke für die Antworten!

 

Das Script funktioniert auch und öffnet die Seite! Nur wenn bereits ein anderes Internetexplorerfenster offen ist, bekommt dieses via Sendkey das maximieren zugewiesen und stellt meine Seite in den Hintergrund,- natürlich nicht sinn der Sache! Genauso wie es nicht Sinn der Sache ist dem Benutzer zuvor alle anderen Internetseiten die er gerade offen hat zuzumachen : D

 

fullscreen bringt mir leider nix ;-(

 

Und soweit ich weiß gibt es keine Möglichkeit die "viewable" width und height auszulesen mit VBScript. Also ohne Taskleiste etc.

 

lg

 

Undying

[Operator 10]

Hi Undying,

 

versuch mal folgende zwei Sachen vor dem SendKey's Commad.

 

objShell.AppActivate(IE)

(oder)

objShell.AppActivate(IE.HWND)

 

Ich weiß nicht, ob das Objekt ausreicht und ich weiß nicht, ob er den Handle schluckt (weil er eigentlich ne Proces ID erwartet).

 

Aber für'n weiteren Test reicht das ja schon mal...

 

Andre

[Undying 11]

Original geschrieben von Operator

objShell.AppActivate(IE)

 

Damit funzt es zu 100% ... Danke ; ) Perfekt!

 

lg

 

Undying