Este código tem como objetivo listar e matar determinados processos que estão carregados na memória. Porém ele está dando um erro (em vermelho): "'Sub' ou 'Function' não definida". Não sei como resolvê-lo, alguém pode me ajudar?
Aí vai parte do código:
Sub ListaProgMem()
hSnapShot = _
CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot <> 0 Then
uProcess.dwSize = Len(uProcess)
rProcess = ProcessFirst(hSnapShot, uProcess)
Do While rProcess
tPID = uProcess.th32ProcessID
tMID = uProcess.th32ModuleID
ComparaLista (Trim(RemoveChr0(uProcess. _
szExeFile))), Hex&(uProcessID)
rProcess = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
End If
End Sub
Function ComparaLista(Processo As String, _
ProcessoCodeHex As String)
Dim Posicao As Integer
Dim NomeArq As String
Lista = "CALC.EXE NOTEPAD.EXE"
Posicao = Strings.InStr(1, Strings.StrReverse _
(Processo), "\", vbBinaryCompare)
NomeArq = Strings.Right(Processo, Posicao - 1)
If Strings.InStr(1, Lista, NomeArq, vbTextCompare) _
Pergunta
Guest - Alexandre -
Este código tem como objetivo listar e matar determinados processos que estão carregados na memória. Porém ele está dando um erro (em vermelho): "'Sub' ou 'Function' não definida". Não sei como resolvê-lo, alguém pode me ajudar?
Aí vai parte do código:
Sub ListaProgMem()
hSnapShot = _
CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot <> 0 Then
uProcess.dwSize = Len(uProcess)
rProcess = ProcessFirst(hSnapShot, uProcess)
Do While rProcess
tPID = uProcess.th32ProcessID
tMID = uProcess.th32ModuleID
ComparaLista (Trim(RemoveChr0(uProcess. _
szExeFile))), Hex&(uProcessID)
rProcess = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
End If
End Sub
Function ComparaLista(Processo As String, _
ProcessoCodeHex As String)
Dim Posicao As Integer
Dim NomeArq As String
Lista = "CALC.EXE NOTEPAD.EXE"
Posicao = Strings.InStr(1, Strings.StrReverse _
(Processo), "\", vbBinaryCompare)
NomeArq = Strings.Right(Processo, Posicao - 1)
If Strings.InStr(1, Lista, NomeArq, vbTextCompare) _
Then
RemoveProgMem (ProcessoCodeHex)
End If
End Function
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.