Problem bei einem VisualBasic Skript

Problem bei einem VisualBasic Skript (6 Beiträge, 10 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

Ich kenn mich zwar nicht besonders in visual Basic aus, aber mir kommt das exit for etwas seltsam vor.

'(C) Harald
'(C) Gott

lg
Gott

ich kenn mich in VBS auch nicht aus, aber was mir komisch vorkommt ist:
counter = counter *1
sollte das nicht eigentlich +1 heißen

________________________________________________________________________________
This hint was presented by HeHo.

Ja, da könntest Du recht haben.

lg
Gott

Ich meine ich kenne mich auch nicht in VBS aus.. aber was ist denn Zeile 28 .. hast du schon versucht diese zu debuggen?
btw: counter = counter * 1 bringt ja nix

Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen.

-- Platon

www.hover.tk // dennis@chello.at

Wenn du uns die Zeile 28 verraten würdest wäre der Fehler möglicherweise zu finden

Ich rate mal:
statt
wshshell.SendKeys("%{TAB " & counter & " }")
dieses hier
wshshell.SendKeys("%{TAB " & str(counter) & " }")

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