Simpele vraag: calculator meerdere keren openen

[bbniels]

Dit moet niet moeilijk wezen, 5 jaar geleden wist ik nog hoe het moest
Nu ben ik er al uren mee bezig en kom er niet uit
Wie kan me helpen?
ik wil graag in een word doc een aantal msg-boxen openen (dat lukt wel) en daarna 5 x de calculator opstarten
of notepad in ieder windows applicatie

mijn script is:

Private Sub Document_Open()
MsgBox "euh.. ik wil ff wat uit rekenen," + a, vbExclamation
MsgBox "Heb je zin om te rekenen?", vbYesNo
MsgBox "FOUT ANTWOORD!!", vbCritical

For X = 3 To calc.exe

Next X

End Sub

 

[Wigi]

Voilà, hier is een voorbeeldje

Sub calc()
    Dim ProcID As Integer
    ProcID = Shell("CALC.EXE", vbMaximizedFocus)
    AppActivate (ProcID)
    SendKeys "10", True
    SendKeys "*", True
    SendKeys "15", True
    SendKeys "=", True
End Sub

Wigi

 

[bbniels]

Voilà, hier is een voorbeeldje

Sub calc()
    Dim ProcID As Integer
    ProcID = Shell("CALC.EXE", vbMaximizedFocus)
    AppActivate (ProcID)
    SendKeys "10", True
    SendKeys "*", True
    SendKeys "15", True
    SendKeys "=", True
End Sub

Wigi

bedankt
alleen is dit een code voor 10 x 15 uit te laten rekenen op het scherm.
hij opent maar 1 x
en ik wil juist dat hij bijv. 5 x opent maar niet door middel van 5 x dezelfde regel door een opdracht te geven dat de regel bijv. 50 keer wordt uitgevoerd

weet iemand trouwens waarom text in .vbs bestand fouten geeft als ik het in word visual basic plak

 

[Wigi]

Gebruik er een lus rond:

Dim X As Integer
For X = 1 To 5
'doe de code van het rekenprogje
Next X

Wigi

 

[bbniels]

Gebruik er een loop rond:

Dim X As Integer
For X = 1 To 5
'doe de code van het rekenprogje
Next X

Wigi

TNX Wigi
OPGELOST :thumb:

 

[Wigi]

TNX Wigi
OPGELOST :thumb:

Zet de vraag dan ook op opgelost, behouden we het overzicht.