🚀 go-pugleaf

Frits, de code die je geeft gebruikt SendKeys om instructies naar het
toetsenbord te sturen. Werkt inderdaad zonder probleem bij de rekenmasjieentje
van Windows, maar is geen serieuze manier om het openen / sluiten van
applicaties vanuit VB te beheren.

Wat je nodig hebt zijn API-calls (zie MSDN-lib op Microsoft site), die je in VB
kan gebruiken om de Windows omgeving te ondervragen... en de GetObject en
CreateObject functies indien Microsoft producten open/dicht moeten...

waldo smets
software solutions


Frits van Bommel wrote:

> Steven Wuyts <wuyts.steven@pandora.be> schreef in berichtnieuws
> F_%j4.2239$CP1.18338@afrodite.telenet-ops.be...
> > Hallo,
> >
> > een klein visual basic-vraagje : als je een programma opent in visual
> basic
> > (bvb met het shell commando), hoe sluit je het dan ook weer af  (het
> > programma dat geopend is moet terug gesloten worden vanuit visual basic) ?
>
> Het volgende komt rechtstreeks uit de VB 3.0 helpfile (example bij shell, te
> pasten in Form_Click() )
> Ik hoop dat je er wat aan hebt.
>
>     Frits van Bommel
>
> Dim I, X, Msg ' Declare variables.
>  AppActivate "Microsoft Visual Basic" ' Change focus to Visual Basic.
>  SendKeys "%{ }{Down 3}{Enter}", True ' Minimize Visual Basic.
>  X = Shell("Calc.exe", 1) ' Shell Calculator.
>  For I = 1 To 100 ' Set up counting loop.
>   SendKeys I & "{+}", True ' Send keystrokes to Calculator
>
> Next I ' to add each value of I.
>
> SendKeys "=", True ' Get grand total.
>  AppActivate "Microsoft Visual Basic" ' Return focus to Visual Basic.
>  Msg = "Choose OK to close the Calculator.
>  MsgBox Msg ' Display OK prompt.
>  AppActivate "Calculator" ' Return focus to Calculator.
>  SendKeys "%{F4}", True ' Alt+F4 to close Calculator.
>  AppActivate "Microsoft Visual Basic" ' Return focus to Visual Basic.
>  SendKeys "%{ }{Enter}", True ' Restore Visual Basic to size.