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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...