Questo topic e' stato chiuso dal moderatore.
31/01/08 14:33
LucAStyle
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 terminasse il processo iexplore.exe ma nn so come fare.
'per aprire ie
Dim shell As Object
shell = CreateObject("shell.application"
shell.open("pompeiluca.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
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("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
Grazie per l'aiuto!!
Vi ringrazio anticipamente
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 terminasse il processo iexplore.exe ma nn so come fare.
'per aprire ie
Dim shell As Object
shell = CreateObject("shell.application"
shell.open("pompeiluca.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
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("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
Grazie per l'aiuto!!
Vi ringrazio anticipamente
aaa