Oppure

Loading
15/07/09 13:32
dolange
Ciao a tutti!!

Avrei bisogno di un programmino che una volta aperto mi permetta di inserire tramite form una lista di titoli di finestre che potrebbero aprirsi e che lui dovrebbe chiudere automaticamente.
Una volta inserita la lista dei titoli delle finestre tramite l' api per la notify icon mettere in ascolto il software e andare a chillare solo ed esclusivamente le finestre che si aprono con quel titolo.

Come posso fare?
Grazie mille anticipatamente

Ciao!
aaa
15/07/09 18:37
GrG
Bhe, hai descritto il tipo di programma che vorresti, ma il forum serve per aiutarti, non fa programmi su ordinazione, quindi spiega meglio cosa non sai fare...

comunque usa questa funzione per terminare i processi:
Dim Processo As Variant

Function TerminaProcesso(NomeProcesso As String)
On error resume next 
   For Each Processo In GetObject("winmgmts:").InstancesOf("win32_process")
       If Processo.Name = NomeProcesso Then Processo.Terminate
   Next
End Function
aaa
16/07/09 8:30
dolange
Ciao.. avevo bisogno praticamente di un qualcosa per chiudere finestre windows solo tramite il nome in alto nella bar che rimanga in ascolto in background.

Come faccio per riconoscere il nome delle finestre?

Grazie in anticipo per la risposta...
Ultima modifica effettuata da dolange 16/07/09 8:33
aaa
16/07/09 16:21
Alceus
Dichiarate le due API
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

necessarie per ottenere il nome della finestra attiva (la prima, GetWindowText, serve ad ottenere il nome di una finestra dato l'handle, e la seconda, GetForegroundWindow, ottiene l'handle della finestra attiva), puoi utilizzare la seguente funzione:
Private Function FinestraAttiva() As String
    Dim Stringa As String * 256
    GetWindowText GetForegroundWindow, Stringa, 256
    FinestraAttiva = Stringa
End Function

In questo modo puoi richiamare la funzione con un semplice MsgBox:
MsgBox FinestraAttiva

Ultima modifica effettuata da Alceus 16/07/09 16:23
aaa