Problem bei einem VisualBasic Skript

Problem bei einem VisualBasic Skript (6 Beiträge, 9 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Ich habe in folgendes Problem in diesem Skript:

' Fenster.VBS

set windows = CreateObject("window.tobtools")
set wshshell = CreateObject("WScript.Shell")

' Alle geöffneten Fenster ermitteln:
liste = Split(windows.EnumMainWindows, vbCrLf)

' alle Fenster der Reihe durchgehen:
for each wnd in liste
     ' Infomationen aufsplitten:
     ' in wnd(0) steht nun der Name des Fensters:
     wnd = Split(wnd, vbTab)
     ' zu diesem Fenster umschalten
     ActivateApp wnd(0)
     ' ALT*F4, Fenster schließen:
     wshshell.SendKeys("%{F$}")
     ' kurz warten:
     WScript.Sleep 500
next

sub ActivateApp(name)
   fenster = Split(windows.EnumMainWindows, vbCrLf)
   counter = 0
   for each eintrag in fenster
     details = Split(eintrag, vbTab)
     if lcase(details(0))=lcase(name) then
          wshshell.SendKeys("%{TAB " & counter & " }")
          exit for
     else
          counter = counter * 1
     end if
   next
end sub
'(C) Harald

Zeile: 28
Zeichen: 11
Fehler: Ungültiger Prozeduraufruf oder ungülitiges Argument
Code: 800A0005

MFG Mrhary

Re: Problem bei einem VisualBasic Skript (Gott am 03.06.2002, 08:29:04)

Re: Problem bei einem VisualBasic Skript (HeHo am 03.06.2002, 10:02:11)

Re(2): Problem bei einem VisualBasic Skript (Gott am 03.06.2002, 20:44:20)

Re: Problem bei einem VisualBasic Skript (hover am 04.06.2002, 08:43:01)

Re: Problem bei einem VisualBasic Skript (TheWikkinger am 04.06.2002, 10:16:44)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung