<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form
    ...

Public Class Class1
 
End Class

Public Class Class1 : Inherits Form
 
End Class

        Try
            My.Computer.Network.Ping("www.google.com")
            TextBox1.Text = "Conexión Satisfactoria"
 
        Catch ex As Net.NetworkInformation.PingException
            TextBox1.Text = "Conexión Fallida"
 
        End Tryf

#Region " Imports "
 
Imports System.Runtime.Serialization
Imports System.Security.Permissions
Imports System.Xml.Serialization
Imports System.Xml
 
#End Region
 
''' <summary>
''' SerializableClassTest.
''' This class can be serialized.
''' </summary>
<Serializable>
<XmlRoot("SerializableClassTest")>
Public Class SerializableClassTest : Implements ISerializable : Implements IXmlSerializable
 
#Region "Properties"
 
    Public Property StrValue As String
    Public Property Int32Value As Integer
 
#End Region
 
#Region "Constructors"
 
    ''' <summary>
    ''' Prevents a default instance of the <see cref="SerializableClassTest"/> class from being created.
    ''' </summary>
    Private Sub New()
    End Sub
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="SerializableClassTest"/> class.
    ''' </summary>
    Public Sub New(ByVal StrValue As String,
                   ByVal Int32Value As Integer)
 
        Me.StrValue = StrValue
        Me.Int32Value = Int32Value
 
    End Sub
 
#End Region
 
#Region "ISerializable implementation" ' For Binary serialization.
 
    ''' <summary>
    ''' Populates a <see cref="T:SerializationInfo"/> with the data needed to serialize the target object.
    ''' </summary>
    ''' <param name="info">The <see cref="T:SerializationInfo"/> to populate with data.</param>
    ''' <param name="context">The destination (see <see cref="T:StreamingContext"/>) for this serialization.</param>
    <SecurityPermissionAttribute(SecurityAction.LinkDemand, Flags:=SecurityPermissionFlag.SerializationFormatter)>
    Protected Overridable Sub GetObjectData(ByVal info As SerializationInfo,
                                            ByVal context As StreamingContext) Implements ISerializable.GetObjectData
 
        If info Is Nothing Then
            Throw New ArgumentNullException("info")
        End If
 
        With info
 
            .AddValue("PropertyName1", Me.StrValue, Me.StrValue.GetType)
            .AddValue("PropertyName2", Me.Int32Value, Me.Int32Value.GetType)
 
        End With
 
    End Sub
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="SerializableClassTest"/> class.
    ''' This constructor is used to deserialize values. 
    ''' </summary>
    ''' <param name="info">The information.</param>
    ''' <param name="context">The context.</param>
    Protected Sub New(ByVal info As SerializationInfo,
                      ByVal context As StreamingContext)
 
        If info Is Nothing Then
            Throw New ArgumentNullException("info")
        End If
 
        Me.StrValue = info.GetString("PropertyName1")
        Me.Int32Value = info.GetInt32("PropertyName2")
 
    End Sub
 
#End Region
 
#Region "IXMLSerializable implementation" ' For XML serialization.
 
    ''' <summary>
    ''' This method is reserved and should not be used.
    ''' When implementing the IXmlSerializable interface, you should return null (Nothing in Visual Basic) from this method, 
    ''' and instead, if specifying a custom schema is required, apply the <see cref="T:XmlSchemaProviderAttribute"/> to the class.
    ''' </summary>
    ''' <returns>
    ''' An <see cref="T:Xml.Schema.XmlSchema"/> that describes the XML representation of the object 
    ''' that is produced by the <see cref="M:IXmlSerializable.WriteXml(Xml.XmlWriter)"/> method 
    ''' and consumed by the <see cref="M:IXmlSerializable.ReadXml(Xml.XmlReader)"/> method.
    ''' </returns>
    Public Function GetSchema() As Schema.XmlSchema Implements IXmlSerializable.GetSchema
 
        Return Nothing
 
    End Function
 
    ''' <summary>
    ''' Converts an object into its XML representation.
    ''' </summary>
    ''' <param name="writer">The <see cref="T:Xml.XmlWriter"/> stream to which the object is serialized.</param>
    Public Sub WriteXml(ByVal writer As XmlWriter) Implements IXmlSerializable.WriteXml
 
        writer.WriteElementString("PropertyName1", Me.StrValue)
        writer.WriteElementString("PropertyName2", CStr(Me.Int32Value))
 
    End Sub
 
    ''' <summary>
    ''' Generates an object from its XML representation.
    ''' </summary>
    ''' <param name="reader">The <see cref="T:Xml.XmlReader"/> stream from which the object is deserialized.</param>
    Public Sub ReadXml(ByVal reader As XmlReader) Implements IXmlSerializable.ReadXml
 
        With reader
 
            .ReadStartElement(MyBase.GetType.Name)
 
            Me.StrValue = .ReadElementContentAsString
            Me.Int32Value = .ReadElementContentAsInt
 
        End With
 
    End Sub
 
#End Region
 
End Class

#Region " Instructions "
 
 
' 1. Create a new WinForms project targeting .NET Framework 4.5.
 
 
' 2. Close VisualStudio, open the 'YourProjectName.vbproj' file in a text-editor and add this property:
' *****************************************************************************************************
'<PropertyGroup>
'    ...
'    <TargetPlatformVersion>8.0</TargetPlatformVersion>
'    ...
'</PropertyGroup>
 
 
' 3. Load the project in VisualStudio, open the 'References' menu and add these references:
' *****************************************************************************************
' C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\Facades\System.Runtime.dll
' C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\Facades\System.Runtime.InteropServices.WindowsRuntime.dll
 
 
' 4. In the 'References' menu, go to 'Windows > Core' tab and add these references:
' *********************************************************************************
' Windows.Devices
' Windows.Foundation
 
 
#End Region
 
#Region " Imports "
 
Imports Windows.Devices.Enumeration
Imports Windows.Foundation
 
#End Region
 
Public Class DeviceWatcher_Test
 
    Friend WithEvents dw As DeviceWatcher = DeviceInformation.CreateWatcher
 
    Private Sub Test() Handles MyBase.Load
 
        dw.Start()
 
    End Sub
 
    ''' <summary>
    ''' Event that is raised when a device is added to the collection enumerated by the DeviceWatcher.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/apps/windows.devices.enumeration.devicewatcher.added.aspx
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="DeviceInformation"/> instance containing the event data.</param>
    Private Sub dw_Added(ByVal sender As DeviceWatcher, ByVal e As DeviceInformation) _
    Handles dw.Added
 
        Dim sb As New System.Text.StringBuilder
 
        With sb
            .AppendLine("dw_added")
            .AppendLine("********")
            .AppendLine(String.Format("Interface ID.: {0}", e.Id))
            .AppendLine(String.Format("Friendly Name: {0}", e.Name))
            .AppendLine(String.Format("Is Enabled?..: {0}", e.IsEnabled))
 
            If e.Properties IsNot Nothing Then
 
                For Each item As KeyValuePair(Of String, Object) In e.Properties
 
                    If item.Value IsNot Nothing Then
 
                        .AppendLine(String.Format("TKey:{0}, TVal:{1} (TVal Type:{2})",
                                                  item.Key, item.Value.ToString, item.Value.GetType.Name))
 
                    End If
 
                Next
 
            End If
 
        End With
 
        Debug.WriteLine(sb.ToString)
 
    End Sub
 
    ''' <summary>
    ''' Event that is raised when a device is removed from the collection of enumerated devices.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/apps/windows.devices.enumeration.devicewatcher.removed.aspx
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="DeviceInformationUpdate"/> instance containing the event data.</param>
    Private Sub dw_Removed(ByVal sender As DeviceWatcher, ByVal e As DeviceInformationUpdate) _
    Handles dw.Removed
 
        Dim sb As New System.Text.StringBuilder
 
        With sb
            .AppendLine("dw_Removed")
            .AppendLine("**********")
            .AppendLine(String.Format("Interface ID:{0}", e.Id))
 
            For Each item As KeyValuePair(Of String, Object) In e.Properties
                .AppendLine(String.Format("TKey:{0}, TVal:{1} (TVal Type:{2})",
                                          item.Key, item.Value.ToString, item.Value.GetType.Name))
            Next
 
        End With
 
        Debug.WriteLine(sb.ToString)
 
    End Sub
 
    ''' <summary>
    ''' Event that is raised when a device is updated in the collection of enumerated devices.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/apps/windows.devices.enumeration.devicewatcher.updated.aspx
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="DeviceInformationUpdate"/> instance containing the event data.</param>
    Private Sub dw_Updated(ByVal sender As DeviceWatcher, ByVal e As DeviceInformationUpdate) _
    Handles dw.Updated
 
        Dim sb As New System.Text.StringBuilder
 
        With sb
            .AppendLine("dw_Updated")
            .AppendLine("**********")
            .AppendLine(String.Format("Interface ID: {0}", e.Id))
 
            For Each item As KeyValuePair(Of String, Object) In e.Properties
 
                If item.Key.EndsWith("InterfaceEnabled", StringComparison.OrdinalIgnoreCase) Then
                    Dim Result As Boolean = CBool(item.Value)
                    .AppendLine(String.Format("The device is accessible?:{0}", CStr(Result)))
 
                Else
                    .AppendLine(String.Format("TKwy:{0}, TVal:{1} (TVal Type:{2})",
                                              item.Key, item.Value.ToString, item.Value.GetType.Name))
 
                End If
 
            Next
 
        End With
 
        Debug.WriteLine(sb.ToString)
 
    End Sub
 
    ''' <summary>
    ''' Event that is raised when the enumeration operation has been stopped.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/apps/windows.devices.enumeration.devicewatcher.stopped.aspx
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The object containing the event data.</param>
    Private Sub dw_Stopped(ByVal sender As DeviceWatcher, ByVal e As Object) _
    Handles dw.Stopped
 
        Dim sb As New System.Text.StringBuilder
 
        With sb
            .AppendLine("dw_Stopped")
            .AppendLine("**********")
            .AppendLine(String.Format("e:{1} (e Type:{2})",
                                      e.ToString, e.GetType.Name))
 
        End With
 
        Debug.WriteLine(sb.ToString)
 
    End Sub
 
    ''' <summary>
    ''' Event that is raised when the enumeration of devices completes.
    ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/apps/windows.devices.enumeration.devicewatcher.enumerationcompleted.aspx
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The object containing the event data.</param>
    Private Sub dw_EnumerationCompleted(ByVal sender As DeviceWatcher, ByVal e As Object) _
    Handles dw.EnumerationCompleted
 
        If e IsNot Nothing Then
 
            Dim sb As New System.Text.StringBuilder
 
            With sb
                .AppendLine("EnumerationCompleted")
                .AppendLine("********************")
                .AppendLine(String.Format("e:{1} (e Type:{2})",
                                          e.ToString, e.GetType.Name))
 
            End With
 
            Debug.WriteLine(sb.ToString)
 
        End If
 
    End Sub
 
End Class
 

Dim w As New MemoryStream()

        Dim TextEncoding As System.Text.Encoding = System.Text.Encoding.Default
        Dim UnformattedXMLDocument As String = IO.File.ReadAllText("C:\Unformatted Document.xml", TextEncoding)
        Dim FormattedXMLDocument As String = XMLBeautify(XMLText:=UnformattedXMLDocument,
                                                         IndentChars:=New String(" "c, 2),
                                                         IndentOnAttributes:=False,
                                                         TextEncoding:=TextEncoding)
 
        IO.File.WriteAllText("C:\Formatted Document.xml", FormattedXMLDocument, TextEncoding)

    ''' <summary>
    ''' Beautifies the contents of an unindented XML document.
    ''' </summary>
    ''' <param name="XMLText">
    ''' The XML text content.
    ''' It can be an entire document or a fragment.
    ''' </param>
    ''' <param name="IndentChars">
    ''' The string that is used to indent the XML. 
    ''' Default value is: <see cref="ControlChars.Tab"/>
    ''' </param>
    ''' <param name="IndentOnAttributes">
    ''' If set to <c>true</c>, attributes will be separated by newlines.
    ''' Default value is: <c>false</c>
    ''' </param>
    ''' <param name="TextEncoding">
    ''' The XML text encoding to use. 
    ''' Default value is: <see cref="System.Text.Encoding.Default"/>.
    ''' </param>
    ''' <returns>The beautified XML text.</returns>
    ''' <exception cref="System.ArgumentNullException"></exception>
    Public Shared Function XMLBeautify(ByVal XMLText As String,
                                       Optional ByVal IndentChars As String = Nothing,
                                       Optional ByVal IndentOnAttributes As Boolean = False,
                                       Optional ByVal TextEncoding As System.Text.Encoding = Nothing) As String
 
        If String.IsNullOrEmpty(XMLText) Then
            Throw New ArgumentNullException(XMLText)
        End If
 
        Dim sb As New System.Text.StringBuilder
        Dim doc As New Xml.XmlDocument()
        Dim settings As New Xml.XmlWriterSettings
 
        With settings
            .Indent = True
            .CheckCharacters = True
            .OmitXmlDeclaration = False
            .ConformanceLevel = Xml.ConformanceLevel.Auto
            .NamespaceHandling = Xml.NamespaceHandling.Default
            .NewLineHandling = Xml.NewLineHandling.Replace
            .NewLineChars = ControlChars.NewLine
            .NewLineOnAttributes = IndentOnAttributes
            .IndentChars = If(IndentChars IsNot Nothing, IndentChars, ControlChars.Tab)
            .Encoding = If(TextEncoding IsNot Nothing, TextEncoding, System.Text.Encoding.Default)
        End With
 
        Using writer As Xml.XmlWriter = Xml.XmlWriter.Create(sb, settings)
            doc.LoadXml(XMLText)
            doc.WriteContentTo(writer)
            writer.Flush()
            Return sb.ToString
        End Using
 
    End Function
 
    ''' <summary>
    ''' Beautifies the contents of an unindented XML document.
    ''' </summary>
    ''' <param name="XMLFile">
    ''' An <see cref="T:IO.FileInfo"/> that contains the XML info.
    ''' It can be an entire document or a fragment.
    ''' </param>
    ''' <param name="IndentChars">
    ''' The string that is used to indent the XML. 
    ''' Default value is: <see cref="ControlChars.Tab"/>
    ''' </param>
    ''' <param name="IndentOnAttributes">
    ''' If set to <c>true</c>, attributes will be separated by newlines.
    ''' Default value is: <c>false</c>
    ''' </param>
    ''' <param name="TextEncoding">
    ''' The XML text encoding to use. 
    ''' Default value is: <see cref="System.Text.Encoding.Default"/>.
    ''' </param>
    ''' <returns>The beautified XML text.</returns>
    ''' <exception cref="System.ArgumentNullException"></exception>
    Public Shared Function XMLBeautify(XMLFile As IO.FileInfo,
                                       Optional ByVal IndentChars As String = Nothing,
                                       Optional ByVal IndentOnAttributes As Boolean = False,
                                       Optional ByVal TextEncoding As System.Text.Encoding = Nothing) As String
 
        Return XMLBeautify(IO.File.ReadAllText(XMLFile.FullName, TextEncoding), IndentChars, IndentOnAttributes, TextEncoding)
 
    End Function

<savedata>
  <SoftwareType>Freeware</SoftwareType>
  <SoftwareID>Moo0 FileMonitor</SoftwareID>
  <Version>1.11</Version>
  <MainWindow>
    <SoftwareType>Freeware</SoftwareType>
    <SoftwareID>Moo0 FileMonitor</SoftwareID>
    <Version>1.11</Version>
    <View F="0" E="0" D="0" RefreshFrequency="500" LogUpTo="20000" EasyDrag="1" Maximized="0" X="958" Y="453" Width="962" Height="585" KeepOnTop="0"></View>
    <ChangesColumnOrder length="6" _0="0" _1="1" _2="2" _3="3" _4="4" _5="5"></ChangesColumnOrder>
  </MainWindow>
  <Skin>Classic LG</Skin>
</savedata>

<savedata>
  <SoftwareType>Freeware</SoftwareType>
  <SoftwareID>Moo0 FileMonitor</SoftwareID>
  <Version>1.11</Version>
  <MainWindow>
    <SoftwareType>Freeware</SoftwareType>
    <SoftwareID>Moo0 FileMonitor</SoftwareID>
    <Version>1.11</Version>
    <View
      F="0"
      E="0"
      D="0"
      RefreshFrequency="500"
      LogUpTo="20000"
      EasyDrag="1"
      Maximized="0"
      X="958"
      Y="453"
      Width="962"
      Height="585"
      KeepOnTop="0"></View>
    <ChangesColumnOrder
      length="6"
      _0="0"
      _1="1"
      _2="2"
      _3="3"
      _4="4"
      _5="5"></ChangesColumnOrder>
  </MainWindow>
  <Skin>Classic LG</Skin>
</savedata>