Jump to content

Frage zum Script


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo,

 

habe hier ein Script. Leider funktoniert es nicht.

Ich habe es hiervom Forum, kann aber denjenigen nicht erreichen.

 

Sieht einer von euch den Fehler?

Fehlermeldung: Seite kann nicht angezeigt werden!

 

' launchurl.vbs, 15.1.2004, von mich ;-)
' Script zum Starten des IE im Vollbild ohne Contols o.ä.
' Gestetet mit WSH Version 5.6
' Aufruf: cscript.exe lauchurl.vbs /url:http://www.google.de
' Wscript.exe ist auch möglich, allerdings vom Fenster u.U. nicht in der Vordergrund.


Dim objExplorer, url

url = WScript.Arguments.Named.Item("http://www.google.de")

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

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

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


' Hier die Fenstergröße definieren

objExplorer.Height = 750
objExplorer.Width = 1024
objExplorer.Left = 0
objExplorer.Top = 0
'objExplorer.FullScreen = True
objExplorer.Silent = False
objExplorer.Visible = True

objExplorer.Navigate url

Set objExplorer = nothing

Link zu diesem Kommentar

Hallo woiza,

 

mein Script sieht so aus:

 

' launchurl.vbs, 15.1.2004, von mich ;-)
' Script zum Starten des IE im Vollbild ohne Contols o.ä.
' Gestetet mit WSH Version 5.6
' Aufruf: cscript.exe lauchurl.vbs /url= "http://google.de"
' Wscript.exe ist auch möglich, allerdings vom Fenster u.U. nicht in der Vordergrund.


Dim objExplorer, url

url = WScript.Arguments.Named.Item("url")

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

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

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


' Hier die Fenstergröße definieren

objExplorer.Height = 750
objExplorer.Width = 1024
objExplorer.Left = 0
objExplorer.Top = 0
'objExplorer.FullScreen = True
objExplorer.Silent = False
objExplorer.Visible = True

objExplorer.Navigate url

Set objExplorer = nothing

 

Immer noch die Fehlermeldung! Was ist falsch?

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...