Hallo,
ich habe unter WIN XP dieses VB Script im Einsatz, was 1 A läuft.
Es wird geschaut, ob bereits ein Explorerfenster mit bestimmten Namen offen ist,
wenn ja soll dieses aktiviert werden, notfalls neu geöffnet werden.
Unter Windows 7 wird leider nicht mehr das bereits im Hintergrund offene Fenster erkannt,
kann mir jemand helfen, wo der Fehler liegt?
Windows 7 64bit macht nun lediglich Probleme.
ich habe unter WIN XP dieses VB Script im Einsatz, was 1 A läuft.
Es wird geschaut, ob bereits ein Explorerfenster mit bestimmten Namen offen ist,
wenn ja soll dieses aktiviert werden, notfalls neu geöffnet werden.
Unter Windows 7 wird leider nicht mehr das bereits im Hintergrund offene Fenster erkannt,
kann mir jemand helfen, wo der Fehler liegt?
Windows 7 64bit macht nun lediglich Probleme.
VB.NET-Quellcode
- Option Explicit
- Dim pc, programm, fenstername, path_proe_exports
- Dim wmi, system, process, objFSO, objTest, objFile
- Dim WshShell
- Set WshShell = CreateObject("WScript.Shell")
- Set wmi = GetObject("winmgmts:")
- Set system = wmi.instancesOf("win32_process")
- programm = "explorer.exe"
- path_proe_exports="C:\TEMP\path_proe_exports.tmp"
- Const ForReading = 1
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objTest = objFSO.GetFile(path_proe_exports)
- If objTest.Size > 0 Then
- Set objFile = objFSO.OpenTextFile(path_proe_exports, ForReading)
- fenstername = objFile.ReadAll
- wscript.echo fenstername
- objFile.Close
- end if
- WScript.Sleep 500
- For Each process In system
- If lcase(process.name)=programm Then
- WScript.Sleep 500
- WshShell.AppActivate fenstername
- Exit For
- End If
- Next
- If Not WshShell.AppActivate(fenstername) Then
- WshShell.Run programm & " /e," & fenstername
- End If