10-20-2011، 05:19 PM
کد:
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