[VB 2010] condizioni di avvio del programma

[lobbo]

salve vorrei che il programma scritto in visual basic esegua quello che deve eseguire solo se la connessione internet è presente altrimenti deve restare in attesa di quest'ultima per procedere. mi date una mano ?

If My.Computer.Network.IsAvailable = true Than
il programma continua
Else
il programma resta in attesa della connessione per poi continuare

[Jeremy75]

Ciao
Nelle proprietà di progetto --> Scheda Application ---> Clicca su "View Application Event".
Tra gli eventi disponibili c'è anche "NetworkAvailabilityChanged"

Facci sapere....
Ciao

[lobbo]

trovato ma ho difficoltà con la sintassi
siccome è un programma che invia una email, non trovando la connessione va in errore.

[lobbo]

e non solo va in errore, se non c'è la connessione non rispetta nemmeno il

Me.Visible = False

perché ?

[Jeremy75]

Prova a postare il codice che hai scritto

[lobbo]

Imports System.IO
Imports System.Net.Mail
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.Visible = False
            Dim mail As New MailMessage()
            Dim smtpServer As New SmtpClient()
            smtpServer.Credentials = New Net.NetworkCredential("email", "pass")
            smtpServer.Port = 587
            smtpServer.Host = "smtp.xxxx.it"
            smtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("email")
            mail.To.Add("email")
            mail.Subject = "oggetto"
            Dim msgatt As FileInfo = New FileInfo("C:\...\..")
            If msgatt.Exists = True Then
                Dim allegato As New Attachment("C:\...\..")
                mail.Attachments.Add(allegato)
                mail.Body = "il file è allegato!"
            Else
                mail.Body = "il file non esiste"
            End If
            smtpServer.Send(mail)
End Sub

[Jeremy75]

Non dicevo questo codice .... ma quello relativo alla gestione dell'avvio del programma in funzione della presenza o meno della connessione .... non era quello il problema?

[lobbo]

si praticamente è quello del primo post
perché quell'altra cosa che mi hai suggerito non riesco a metterla in pratica..

[Jeremy75]

In realtà il mio intento era quello di capire cosa effettivamente vuoi che accada qualora non fosse presente la connessione alla rete.
Il programma cosa deve fare? Si deve chiudere? Deve dare um messaggio e rimanere in attesa? Non si deve avviare per nulla? O cos'altro.

Ti faccio tutte queste domande perchè non posso pensare che non hai provato a fare una cosa del genere:

Private Sub Timer1_Tick() Handles Timer1.Tick
           If Not My.Computer.Network.IsAvailable = true Than
           Me.Text="Nessuna connesione attiva""
           else
            timer1.enabled=false
            Me.Visible = False
            Dim mail As New MailMessage()
            Dim smtpServer As New SmtpClient()
            smtpServer.Credentials = New Net.NetworkCredential("email", "pass")
            smtpServer.Port = 587
            smtpServer.Host = "smtp.xxxx.it"
            smtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("email")
            mail.To.Add("email")
            mail.Subject = "oggetto"
            Dim msgatt As FileInfo = New FileInfo("C:\...\..")
            If msgatt.Exists = True Then
                Dim allegato As New Attachment("C:\...\..")
                mail.Attachments.Add(allegato)
                mail.Body = "il file è allegato!"
            Else
                mail.Body = "il file non esiste"
            End If
            smtpServer.Send(mail)
            End If
End Sub

quindi deve esserci qualcosa che non hai detto ....

Facci sapere...
Ciao

[lobbo]

l'avevo scritto nel primo post che deve attendere la presenza di una connessione per proseguire. altrimenti deve stare fermo non chiudersi o andare in errore.

il timer !?