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

  • 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...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..