Visual Basic

Imports System.Net
.
.
.
    Try
        ' Try and resolve the address of the mail server.
        Dim hostEntry As IPHostEntry = Dns.GetHostByName(myMailServer.myISP.com)
        ' If we get here, then the DNS Resolve worked and 
        'we must be connected to the 'Net.
        Try
            ' Code to send your email message...
        Catch ex As Exception
            ' Send message failed for some reason...
        End Try
    Catch ex As Exception
        ' DNS Resolve failed.  We can't send the message...
    End Try

Dim objStreamReader As New System.IO.StreamReader("jobs.xml")
Dim jobarray() As Job
Dim i As Integer
Dim x As New XmlSerializer(jobarray.GetType)
jobarray = CType(x.Deserialize(objStreamReader), jobarray)

Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
 
Module Module1
 
    Public Jobs() As Job
    Private NUMJOBS As Integer = 10
 
    Sub Main()
        ReDim Jobs(NUMJOBS)
        FillJobs()
        XMLSerialize()
        ReDim Jobs(NUMJOBS)
        XMLDeserialize()
    End Sub
 
    Public Sub FillJobs()
        For x As Integer = 0 To NUMJOBS
            Jobs(x) = New Job
            Jobs(x).strCmdLine = "CommandLine" & x.ToString
            Jobs(x).strDescription = "Description" & x.ToString
            Jobs(x).strName = "Name" & x.ToString
        Next
    End Sub
 
    Public Sub XMLSerialize()
        Dim objStreamWriter As New StreamWriter("jobs.xml")
        Dim x As New XmlSerializer(Jobs.GetType())
        x.Serialize(objStreamWriter, Jobs)
        objStreamWriter.Close()
    End Sub
 
    Public Sub XMLDeserialize()
        Dim objStreamReader As New StreamReader("jobs.xml")
        Dim x As New XmlSerializer(Jobs.GetType())
        Jobs = CType(x.Deserialize(objStreamReader), Job())
    End Sub
End Module
 
Public Class Job
    ' main settings
    Public strName As String
    Public strDescription As String
    Public strCmdLine As String
End Class