Visual Basic

Description:
This program has potentially unwanted behavior.

Advice:
Permit this detected item only if you trust the program or the software publisher.

Resources:
regkey:
HKLM\Software\Microsoft\Windows\CurrentVersion\Run\\ABCD

runkey:
HKLM\Software\Microsoft\Windows\CurrentVersion\Run\\ABCD
file:

D:\Program Files\ABCD\ABCD.exe

Category:
Not Yet Classified

Public Class Form1

    Public trash As New Class1

    Private WithEvents eventsUpdateSSclass1 As UpdateStatusStrip.Class1

    Private Sub UpdateStatusStrip(ByVal msg As String, ByVal color As Color) Handles ventsUpdateSSclass1.UpdateStatusStrip

        Me.ToolStripStatusLabel1.Text = msg
        Me.ToolStripStatusLabel1.BackColor = color
        Me.StatusStrip1.Refresh()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        trash.runRunRun()
    End Sub

End Class 

Public Class Class1

    Public Sub New()
    End Sub

    Public Event UpdateStatusStrip(ByVal msg As String, ByVal color As Color)

    Public Sub runRunRun()
        Dim k As Integer = 0
        For i As Integer = 1 To 100
            For j As Integer = 1 To 1000
                k = j + i
                RaiseEvent UpdateStatusStrip(CStr(k), Color.Orange)
                'call UpdateStatusStrip(CStr(k), Color.Orange) is not working.

            Next
        Next
        RaiseEvent UpdateStatusStrip(String.Empty, Nothing) 'to check
    End Sub

End Class 

Dim varProcess As New System.Diagnostics.Process
        Dim varID As Integer
        Try
            If comboParams.Text = "" Then
                varProcess.StartInfo.FileName = txtPath.Text
                varProcess.Start()
                varID = varProcess.Id.ToString()
            Else
                varProcess.StartInfo.FileName = txtPath.Text
                varProcess.StartInfo.Arguments = comboParams.Text
                varProcess.Start()
                varID = varProcess.Id.ToString()
            End If
            Do Until System.Diagnostics.Process.GetProcessById(varID).HasExited = True
                cmdRun.Enabled = False
                Me.Text = "Launch " & "PID: " & varID
            Loop
            Me.Text = "Launch"

Private Sub createlblSlotArray()
     Dim i As Short
     ReDim lblSlot(3)
     For i = 1 To 3
         lblSlot(i) = New System.Windows.Forms.Label
         With lblSlot(i)
             .Tag = i
             .BackColor = System.Drawing.Color.Blue
             .BorderStyle = BorderStyle.Fixed3D
             AddHandler .MouseUp, AddressOf Me.Label1_MouseUp
         End With
     Next
     Me.Controls.AddRange(lblSlot)
     lblSlot(1).Location = New System.Drawing.Point(50, 50)
     lblSlot(2).Location = New System.Drawing.Point(100, 70)
     lblSlot(3).Location = New System.Drawing.Point(100, 90)
 End Sub

Private Sub Label1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
      If e.Button = MouseButtons.Right Then
          ContextMenu1.Show(sender, New Point(e.X, e.Y))
      End If
  End Sub