[Amin_Mansouri]

کد:

'##############################################
'#      Anti CW Sandbox & Anubis Module       #
'#   -------------------------------------    #
'#  Module by haZl0oh for Os-Gentlemen.6x.to  #
'#  Shoutz to EvAriZzl , h0yt3r,Mastermaefju  #
'#  Ic3drag0n and OS-Gentlemen.6x.to Staff    #
'#  If u sue it gimme some shoutZ....         #
'##############################################


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