[Amin_Mansouri]

کد:

Public Sub cw_anub()
' Anti CW Sandbox
'-------------------------

If Environ("userprofile") = "H:/Dokumenteund Einstellungen/Schmidti" Then
        MsgBox "No emulation or Virtualisation of this application possible" & vbCrLf & "Please contact your Vendor for more information.", , "Vendor notification."
  End
     Else
  
  



'ANTI Anubis
'--------------------
If App.Path & App.EXEName & ".exe" = "C:\sample.exe" Then
        MsgBox "No emulation or Virtualisation of this application possible" & vbCrLf & "Please contact your Vendor for more information.", , "Vendor notification."
    End
Else
        'MsgBox "Success...."
    
        End If
        End If
        
End Sub