Problem bei einem VisualBasic Skript

Re: Problem bei einem VisualBasic Skript

TheWikkinger — Tue, 04 Jun 2002 08:16:44 GMT

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) & " }")

Re: Problem bei einem VisualBasic Skript

hover — Tue, 04 Jun 2002 06:43:01 GMT

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

Re(2): Problem bei einem VisualBasic Skript

Gott — Mon, 03 Jun 2002 18:44:20 GMT

Ja, da könntest Du recht haben.

Re: Problem bei einem VisualBasic Skript

HeHo — Mon, 03 Jun 2002 08:02:11 GMT

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

Re: Problem bei einem VisualBasic Skript

Gott — Mon, 03 Jun 2002 06:29:04 GMT

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

'(C) Harald
'(C) Gott

Problem bei einem VisualBasic Skript

Mrhary — Sun, 02 Jun 2002 18:23:11 GMT

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