Quote Originariamente inviata da giorgiogio48 Visualizza il messaggio
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
Leggere sopra