Si tratta di un reminder che parte all'avvio. Niente di eccezionale
Me lo segnala come minaccia. Nessuno script o vbscript
Questo è il codice nell'evento load:
codice:
Thread.CurrentThread.CurrentCulture.ClearCachedData()
Try
Dim Fdataa As New FbDataAdapter("select*from reminder order by task", strConn)
' Choose Custom Format
DataSet1.Tables.Add("reminder")
Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
Me.DataGridView1.DataSource = DataSet1
Me.DataGridView1.DataMember = "reminder"
Fdataa.Fill(DataSet1, "reminder")
DataGridView1.Columns("contatore").Visible = False
DataGridView1.Columns("task").Width = 680
DataGridView1.Columns("task").HeaderText = "PROMEMORIA"
DataGridView1.Columns("ora").Width = 40
DataGridView1.Columns("giorno").Width = 60
DataGridView1.Columns("frequency").Width = 90
DataGridView1.Columns("frequency").HeaderText = "FREQUENZA"
With Me.DataGridView1.RowsDefaultCellStyle
.BackColor = Color.Yellow
.ForeColor = Color.DarkGreen
.Font = New Font("Times New Roman", 9, FontStyle.Bold)
End With
Me.DataGridView1.Columns("attivo").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridView1.Sort(DataGridView1.Columns("task"), System.ComponentModel.ListSortDirection.Ascending)
ResizeFormClass.SubResize(Me, 100, 100)
Me.CenterToScreen()
If IniRead(My.Application.Info.DirectoryPath & "\settings.ini", "sezione", "RegChecked") Then
Me.chkReg.Checked = True
Else
Me.chkReg.Checked = False
End If
Me.Timer1.Start()
' Hook up the Elapsed event for the timer.
' Set the Interval to 2 seconds (2000 milliseconds).
Me.Timer1.Interval = 4000
Me.Timer1.Enabled = True
Me.NotifyIcon1.ContextMenu = Me.ContextMenu
Me.Hide()
Me.ShowInTaskbar = False
' If the timer is declared in a long-running method, use
' KeepAlive to prevent garbage collection from occurring
' before the method ends.
'GC.KeepAlive(aTimer)
m_menu = New ContextMenu()
m_menu.MenuItems.Add(0, New MenuItem("Exit", New System.EventHandler(AddressOf Exit_Click)))
Me.NotifyIcon1.ContextMenu = m_menu
LostReminders()
Catch ex As Exception
MsgBox(ex.Message)
End Try