Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBS-Script soll den IE öffnen - aber auch bei mehrmaligem Aufruf immer im gleichen Fenster starten!

Mitglied: Maikell84

Maikell84 (Level 1) - Jetzt verbinden

20.01.2014, aktualisiert 16:28 Uhr, 5289 Aufrufe, 2 Kommentare, 1 Danke

Hallo!

Ich habe eine Frage zu einem VBS-Script, welches ich aus dem Internet kopiert und etwas angepasst habe.
Das folgende Script ruft den Internetexplorer ohne Statuszeile, Menüleiste usw... auf und navigiert sofort zu der URL, die ich dem Script übergebe.

01.
Dim objExplorer, url
02.
url = WScript.Arguments.Named.Item("url")
03.
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
04.

05.
Do While (objExplorer.Busy)
06.
    Wscript.Sleep 250
07.
Loop
08.

09.
objExplorer.TheaterMode = False
10.
objExplorer.AddressBar = True
11.
objExplorer.MenuBar = False
12.
objExplorer.StatusBar = False
13.
objExplorer.ToolBar = False
14.
objExplorer.Resizable = True
15.

16.
' Hier die Fenstergröße definieren
17.
objExplorer.Height = 715
18.
objExplorer.Width = 650
19.
objExplorer.Left = 0
20.
objExplorer.Top = 0
21.
'objExplorer.FullScreen = True
22.
objExplorer.Silent = False
23.
objExplorer.Visible = True
24.

25.
objExplorer.Navigate url
26.

27.

28.
objShell.AppActivate objExplorer
29.

30.

31.
'WshShell.AppActivate oWshShell.ProcessID	
32.

33.
Set objExplorer = nothing
Soweit so gut. Funktioniert auch


Nun wird das Script jedes Mal in einem neuen Fenster aufgerufen, was schlecht ist. Es sollte einmal in einem neuen Fenster aufgehen, und dann sollte die Seite immer wieder im gleichen Fenster aufgerufen werden, wenn der Benutzer das Fenster noch nicht geschlossen hat.

Nun bin ich mit meinen bescheidenen vbs und batch-Kenntnissen am Ende, weswegen ich mich fragend an Euch wende.
Wie ist das zu realisieren?

Mein Gedanke war:
Erkennen ob das Fenster schon offen ist. Falls ja das Fenster killen und neu aufmachen.
Z.B.:

01.
   Set objWMIService = GetObject("winmgmts:\\localhost\root\CIMV2")
02.
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE CommandLine LIKE '%iexplore.exe%'  ", "WQL", _
03.
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
04.

05.
   For Each objItem In colItems
06.
 WScript.Echo "ProcessId: " & objItem.ProcessId
07.
next
Dadurch habe ich die Prozess-ID des IE Fensters, und kann sie dann mit taskkill killen.
Problem bei der Sache:
1.) Ich kann nicht herausfinden, welches das IE-Fenster ist, mit dem der Nutzer durch das Internet surft und welches das Fenster ist, welches ich durch das obige Script aufgemacht habe.
2.) Ich erhalte durch den Befehl 6 IE-PIDs, obwohl nur 2 Fenster offen sind?


Habt Ihr eine Idee, wie ich die Problemstellung lösen kann?

Viele Grüße
Maikell
Mitglied: colinardo
LÖSUNG 20.01.2014, aktualisiert um 16:28 Uhr
Hallo Maikell,
machs mal so:
01.
Dim objExplorer, url
02.
url = WScript.Arguments.Named.Item("url")
03.

04.
Set objShell = CreateObject("Shell.Application")
05.
Set WshShell = CreateObject("Wscript.Shell")
06.

07.
'Objekt mit allen aktuellen Fenstern holen
08.
Set objWindow = objShell.Windows()
09.
For Each objItem In objWindow
10.
    ' Wenn die Befehlszeile des Fensters 'iexplore' enthält und die Breite des Fensters 650 beträgt, dann setze objExplorer auf das Fenster-Objekt
11.
    If InStr(1,LCase(objItem.FullName),"iexplore",1) and objItem.Width = 650 Then
12.
    	Set objExplorer = objItem
13.
        Exit For
14.
    End If
15.
Next
16.

17.
' Wenn kein passendes IE-Fenster gefunden wurde, erzeuge ein neues IE-Object
18.
If IsEmpty(objExplorer) Then
19.
    Set objExplorer = CreateObject("InternetExplorer.Application")
20.
End If
21.

22.
objExplorer.TheaterMode = False
23.
objExplorer.AddressBar = True
24.
objExplorer.MenuBar = False
25.
objExplorer.StatusBar = False
26.
objExplorer.ToolBar = False
27.
objExplorer.Resizable = True
28.

29.
' Hier die Fenstergröße definieren
30.
objExplorer.Height = 715
31.
objExplorer.Width = 650
32.
objExplorer.Left = 0
33.
objExplorer.Top = 0
34.
objExplorer.Silent = False
35.
objExplorer.Visible = True
36.

37.
objExplorer.Navigate url
38.

39.
Do While (objExplorer.Busy)
40.
    Wscript.Sleep 250
41.
Loop
42.

43.
wshShell.AppActivate objExplorer
44.

45.
Set objExplorer = Nothing
46.
Set objShell = Nothing
Grüße Uwe
Bitte warten ..
Mitglied: Maikell84
20.01.2014 um 16:28 Uhr
Hallo Uwe,

Klasse, vielen Dank!!
Das funktioniert so genau wie es soll!
Perfekt!

Viele Grüße
Maikell
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Vbs Script Hilfe
gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

Webbrowser

IE 11 direkter Aufruf InPrivate Modus funktioniert nicht

Frage von 45455Webbrowser4 Kommentare

Hallo, auf einem aktuellen W7-64-System hab ich im IE11 folgendes Phänomen: - Rechtsklick auf Internet-Explorer in der Taskleiste bzw. ...

Windows Server

Batch Script bei Start ausführen

Frage von KEFHVDIWindows Server3 Kommentare

Hallo, wie kann ich bei einem Windows Server 2012 ein Batchscript, welches mir ein Laufwerk einbinden soll, beim start ...

Batch & Shell

Bash Script stoppt nach start

gelöst Frage von flooo89Batch & Shell4 Kommentare

Hallo, Ich habe mit viel gesuche in diesem Forum ein kleines Script zusammengestellt, welches bei Anmeldung in Windows zunächst ...

Neue Wissensbeiträge
Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 1 StundeInternet

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Windows Server
Windows Backup - FilterManager Event 3
Tipp von NixVerstehen vor 22 StundenWindows Server

Hallo zusammen, ich bin kein gelernter ITler und auch beruflich nicht in dem Feld tätig. Wir setzen in unserem ...

Windows 10

Windows 10 - Programme laufen schneller, wenn Sie mit Administratorrechten ausgeführt werden

Erfahrungsbericht von 1Werner1 vor 2 TagenWindows 1013 Kommentare

Moin, das wollte ich erst nicht glauben, aber es ist so. Wenn Ihr ein Programm mit Administratorrechten unter Windows ...

Sicherheits-Tools
Putty hat heftige Bugs korrigiert!
Information von Lochkartenstanzer vor 3 TagenSicherheits-Tools8 Kommentare

Moin, Wie man aus herauslesen kann, sind in den Versionen vor 0.71 gravierende Bugs, die es angeraten erscheinen lassen, ...

Heiß diskutierte Inhalte
Hardware
Telefonanlagen - Welche gibt es
Frage von Xaero1982Hardware38 Kommentare

Nabend Zusammen, ich suche eine neue TK Anlage und mein Auftraggeber will jetzt was völlig neues - State of ...

Server-Hardware
Kompatibilität Tray für HP Proliant DL385 G10 vs. G8, G9
Frage von chris123Server-Hardware19 Kommentare

Hallo, weiß einer der hier anwesenden, ob die Trays für 2,5 " HDDs zwischen einem DL 385 G10 und ...

Outlook & Mail
Office 365 mit Email-Profil installieren
gelöst Frage von 139221Outlook & Mail18 Kommentare

Hallo, kurz zu meiner Person: Vor ungefahr 10 Jahren habe ich eine Umschuldung zum Fachinformatiker für Systemintegration gemacht aber ...

LAN, WAN, Wireless
Intel(R) PRO Wireless 3945ABG
gelöst Frage von Leon509LAN, WAN, Wireless15 Kommentare

Hallo, habe ein Laptop Fujitsu (Intel, 4GB, 2GHz, Windos10, Intel(R) PRO/Wireless 3945ABG ) ein O2 DSL Anschluss Home50. Leider ...