Oppure

Loading
15/11/06 19:33
jamby
Ho creato un form in primo piano in modo che se dovessi aprire un altro programma il form è sempre visibile!

...arrivo al dunque: come faccio a chiudere i programmi ad ogni clic del mouse? (...mi riferisco al clic del mouse xchè il clic permette l'apertura del programma)

Aiutatemi vi prego!
aaa
15/11/06 20:13
GoLDBeRG
che programmi intendi chiudere?
aaa
16/11/06 10:58
jamby
Postato originariamente da GoLDBeRG:

che programmi intendi chiudere?



INTERNET EXPLORER premetto che ho trovato questo codice

Dim myProcesses() As Process

Dim myProcess As Process

myProcesses = Process.GetProcesses()

For Each myProcess In myProcesses

If myProcess.ProcessName = "IEXPLORE" Then

myProcess.CloseMainWindow()

MsgBox("Inserire Login e Password prima di aprire l'applicazione!";)

End If

Next


...solo che non so in quale evendo devo inserire!
aaa
16/11/06 12:30
jamby
Mi spiego meglio! Vorrei terminare un progetto per la mia attività di InternetPoint.
Infatti ho da poco finito l'applicazione lato Server che permetterà di registrare utenti (navigatori) nell'archivio fatto in Access. La conclusione della registrazione di ogni utente prevede una Login e Password che permetterà di utilizzare un credito.

Adesso sto creando l'applicazione lato Client che dovrà impedire di utilizzare alcuni programmi se non è stato fatto un LogIn ...ecco perchè sto cercando di capire come devo bloccare l'apertura di un programma tipo Internet Explorer!

COME DOVREI FARE? ...aiutatemi vi prego accetto anche idee...
aaa
16/11/06 13:39
GoLDBeRG
ma scusa usa il taskkill che gia ti mette in mano windows
fai
Shell("taskkill explorer.exe";)
poi i parametri giusti li vedi digitando sul dos
taskkill /?
aaa
16/11/06 14:50
jamby
...forse non sono stato chiaro! Non ho bisogno di trovare un metodo come chiudere un'applicazione, sto impazzendo come logica dove inserire il codice per chiudere il programma!

Ho provato ad utilizzare l'oggetto Time ma il processore forse è più veloce dei secondi e mi crea 5/6 MsgBox() x avvertirmi che non sono loggato!

Cmq il codice è questo:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick

Dim myProcesses() As Process
Dim myProcess As Process
myProcesses = Process.GetProcesses()
For Each myProcess In myProcesses

If myProcess.ProcessName = "IEXPLORE" Then
myProcess.CloseMainWindow()
MsgBox("Inserire Login e Password prima di aprire l'applicazione!";)
End If

Next

End Sub

Private Sub home_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer.Enabled = True
End Sub
aaa