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

Rispondi quotando