Öppna/Stänga program

[Niklas Björnström]

Kan nån skriva kod som gör följande hade jag varit mycket tacksam.

Ett program med en timer som etfter 30 sek öppnar ett program(tex internet explorer). när det har gått ytterligare 30 sek stänger programmet ner internet explorer. sen efter 30 sek öpnnas det igen......osv.

och så ska den hålla på tills man avlsutar det.

[-Patrik Johansson-]

Pellesoft.nu är en gratis vb och asp sajt. Bli bara medlem(gratis) och välj sedan "Tips & Tricks" och sök på explorer så får du upp två kodsnuttar som gör det du vill.

 

 

/Neox -(Patrik J)

"Gravitation can not be held responsible for people falling in love"

- citat av Albert Einstein

 

[inlägget ändrat 2002-09-28 18:28:10 av Patrik J Johansson]

[AERO1]

En Timer måste man ha, med interval 30 sek.

 

Private Sub Timer1_Timer()

Dim ToOpen as Boolean

ToOpen = True

if ToOpen then

StartExplorer

ToOpen = false

else

KillExplorer

ToOpen = true

end if

End Sub

 

Sub StartExplorer()

Shell "path to explorer"

Get ProcessId to explorer

End Sub

 

Sub KillExplorer()

Kill processId

End Sub

 

Private Declare Function GetTopWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As Long, ByVal wFlag As Long) As Long

 

De två funktioner kan du använda för att hämta handtaget. Har inte tid att testa nu, men skulle funka.

 

 

 

'I wonder if God really had a choice in the creation of the world.'----Einstein