Jump to content

Recommended Posts

Posted

i have make a code to stop this prank bulshits :P

code here

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Label2 = " Inactive"
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Label2 = " Inactive"
End Sub

Private Sub Timer1_Timer()
Dim hnd As String
hnd = "*****"
If FindWindow(vbNullString, hnd) > 0 Then
Shell "shutdown.exe -a"
Label2 = " Noob virus has Stoped..."
Load Me
MsgBox "Enable me again if need", vbInformation, ""
Else
Label2 = " Waiting for the noobs..."
End If
End Sub

put at ***** the shutdown.exe -s window name its very simple

cos im calling the api function FindWindow();

also u can do this with another ways

if u want i can post it on C just to take an idea for api cals LOL

Guest skaros
Posted

LOL FREAKING NICE!

Posted

if what that your virus will not detected use:

[hide=90]create archive( zip or else) and do password on it[/hide]

  • 4 weeks later...
  • 4 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock