Hallo,
ich versuche mich seit ein paar Tagen in Schleifen einzuarbeiten, aber irgendwie klappt das vorne und hinten nicht....
Ich hoffe, dass ich mich gleich verständlich genug ausdrücke:
Mein bisheriger Code besteht daraus, dass in einem anderen Tool verschiedene
Von dieser VBS soll ein bestimmter Teil als Schleife genutzt werden. Innerhalb dieser Schleife muss ein Wert mit 1 Addiert (Letzte Stelle der Variablen
Hier ein Teil von meinem Code der als Schleife genutzt werden soll:
Meine Überlegung ist es nun über die schon genutzte Loop Funktion den Code wiederzugeben:
Ich hoffe der Teil war nachvollziehbar.
Meine Überlegung um die +1 Bei der Slot Angabe zu erreichen wäre:
Hierbei scheine ich aber einen Fehler zu machen, es kommt zu keiner Ausgabe….
kann mir bitte jemand auf die Sprünge helfen?
ich versuche mich seit ein paar Tagen in Schleifen einzuarbeiten, aber irgendwie klappt das vorne und hinten nicht....
Ich hoffe, dass ich mich gleich verständlich genug ausdrücke:
Mein bisheriger Code besteht daraus, dass in einem anderen Tool verschiedene
Sendkeys-Befehle
ausgeführt werden. Von dieser VBS soll ein bestimmter Teil als Schleife genutzt werden. Innerhalb dieser Schleife muss ein Wert mit 1 Addiert (Letzte Stelle der Variablen
Slot
) und ausgegeben werden.Hier ein Teil von meinem Code der als Schleife genutzt werden soll:
VB.NET-Quellcode
- set E = CreateObject("WScript.Shell")
- ENTER = "{ENTER}"
- set PfeilU = CreateObject("WScript.Shell")
- PfeilU.SendKeys ("{DOWN}")
- Set S = CreateObject("WScript.Shell")
- Slot = "0/21/0/0" 'Bei Diesem Wert soll in der Schleife die Letzte Stelle immer um +1 Addiert werden
- Set T = CreateObject("WScript.Shell")
- TAB = "{TAB}"
- n = 0
- Do
- n = n + 1
- T.SendKeys Tab
- WScript.Sleep 200
- Loop Until n = 13
- WScript.Sleep 500
- min=5 'Mindestwert
- step=1 'increment-Wert
- y=Split(Slot,"/") 'Splittet die Eingabe bei Slash
- value=y(uBound(y)-1) 'Vorletzter Wert in diesem Array
- count = min
- for i=1 to value
- count = count + step
- next
- PfU.SendKeys "{DOWN " & count & "}"
- WScript.Sleep 500
- E.SendKeys ENTER
Meine Überlegung ist es nun über die schon genutzte Loop Funktion den Code wiederzugeben:
Ich hoffe der Teil war nachvollziehbar.
Meine Überlegung um die +1 Bei der Slot Angabe zu erreichen wäre:
Hierbei scheine ich aber einen Fehler zu machen, es kommt zu keiner Ausgabe….
kann mir bitte jemand auf die Sprünge helfen?