Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao a tutti,
volevo il vostro aiuto per far eseguire una procedura ad un commandbutton;
in pratica vorrei che premendo il commandbutton mi si aprisse una pagina web e dopo qualche secondo il processo iexplore.exe terminasse ma nn so come fare.
'per aprire ie
Dim shell As Object
shell = CreateObject("shell.application")
shell.open("http://www.google.it")
'per terminare il processo
Dim procs As Object, proc As Object
procs = GetObject("winmgmts:").ExecQuery("Select * FROM Win32_Process WHERE Name='iexplore.exe'")
For Each proc In procs
proc.Terminate()
Next
Scusami mi spiego meglio:
i codici che ho postato funzionano perfettamente e ho scritto questo:
Private Sub ToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Dim shell As Object
shell = CreateObject("shell.application")
shell.open("http://www.pompeiluca.it")
'Qua praticamente dovrei inserire un timer che faccia attendere il form circa 2-3sec prima di eseguire l'operazione successiva
Dim procs As Object, proc As Object
procs = GetObject("winmgmts:").ExecQuery("Select * FROM Win32_Process WHERE Name='iexplore.exe'")
For Each proc In procs
proc.Terminate()
Next