• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

freaklori

[Vb.net 2008] Listagem de Processos

5 mensagens neste tópico

Boas,

Andava com uma ganda virose no meu desktop lá de casa (VISTA)

O que me lembrei de fazer foi, criar um programita que me fornecesse os processos que estavam a correr naquele momento, o ficheiros associados e assim sim tentar descobrir o que me estava a LIXAR o sistema :P

Pois bem, consegui descobrir, nao sei que shit era aquela mas tava associada ao firefox, cada vez que iniciava o firefox era logo um bluescreen ( NO VISTA!!!!) enfim..

Por isso decidi partilhar com voces...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each vProcess In Process.GetProcesses
            LProcessos.Items.Add(vProcess.ProcessName)
        Next

    End Sub

    Private Sub LProcessos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LProcessos.SelectedIndexChanged
        LFicheirosProcesso.Items.Clear()
        tFicheiroProcessoFile.Text = ""

        For Each vProcess In Process.GetProcessesByName(LProcessos.SelectedItem.ToString)
            Try
                For Each vFileProcess As ProcessModule In vProcess.Modules
                    LFicheirosProcesso.Items.Add(vFileProcess.ModuleName)
                Next
            Catch ex As Exception
            End Try
        Next
    End Sub


    Private Sub LFicheirosProcesso_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LFicheirosProcesso.SelectedIndexChanged

        For Each vProcess In Process.GetProcessesByName(LProcessos.SelectedItem.ToString)
            Try
                tFicheiroProcessoFile.Text = vProcess.Modules.Item(LFicheirosProcesso.SelectedIndex + 1).FileName
            Catch ex As Exception
            End Try
        Next

    End Sub
End Class

Apartir dai consegue-se quase criar um TASK MANAGER pessoal hehehe

Cumps

Projecto Processos.rar

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tu desde que tenhas o nome do processo, podes fazer 1 shell(tskill "nome do processo sem .exe") e ele normalmente morre.

PS: Virus q dão bluescreen, é que nos gostamos :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

yah eu tambem, eu ia jurar q era um dos highlights do vista. :confused:

Lol, o vista não tem highlights. xD

Já agora esse virus impossibilitava-te de abrires o gestor de tarefas do windows?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora