Dispose of WebClient and Stream in examples (#8483)

Author: rzikm

snippets/cpp/VS_Snippets_Remoting/NCLWebClientUserAgent/CPP/useragent.cpp

@@ -25,6 +25,7 @@ int main()
    Console::WriteLine( s );
    data->Close();
    reader->Close();
+   delete client;
 }
 
 //</Snippet1>

snippets/csharp/System.Net/WebClient/Overview/useragent.cs

@@ -5,25 +5,25 @@
 
 public class Test
 {
-    public static void Main (string[] args)
+    public static void Main(string[] args)
     {
         if (args == null || args.Length == 0)
         {
-            throw new ApplicationException ("Specify the URI of the resource to retrieve.");
+            throw new ApplicationException("Specify the URI of the resource to retrieve.");
         }
-        WebClient client = new WebClient ();
+        using WebClient client = new WebClient();
 
         // Add a user agent header in case the
         // requested URI contains a query.
 
-        client.Headers.Add ("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)");
+        client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)");
 
-        Stream data = client.OpenRead (args[0]);
-        StreamReader reader = new StreamReader (data);
-        string s = reader.ReadToEnd ();
-        Console.WriteLine (s);
-        data.Close ();
-        reader.Close ();
+        using Stream data = client.OpenRead(args[0]);
+        StreamReader reader = new StreamReader(data);
+        string s = reader.ReadToEnd();
+        Console.WriteLine(s);
+        data.Close();
+        reader.Close();
     }
 }
 //</Snippet1>

snippets/visualbasic/VS_Snippets_Remoting/NCLWebClientUserAgent/VB/Project.vbproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFrameworks>net6.0</TargetFrameworks>
+  </PropertyGroup>
+
+</Project>

snippets/visualbasic/VS_Snippets_Remoting/NCLWebClientUserAgent/VB/useragent.vb

@@ -10,18 +10,19 @@ Public Class Test
         If args Is Nothing OrElse args.Length = 0 Then
             Throw New ApplicationException("Specify the URI of the resource to retrieve.")
         End If
-        Dim client As New WebClient()
-        
-        ' Add a user agent header in case the 
-        ' requested URI contains a query.
-        client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
-        
-        Dim data As Stream = client.OpenRead(args(0))
-        Dim reader As New StreamReader(data)
-        Dim s As String = reader.ReadToEnd()
-        Console.WriteLine(s)
-        data.Close()
-        reader.Close()
+        Using client As New WebClient()
+            
+            ' Add a user agent header in case the 
+            ' requested URI contains a query.
+            client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
+            
+            Dim data As Stream = client.OpenRead(args(0))
+            Dim reader As New StreamReader(data)
+            Dim s As String = reader.ReadToEnd()
+            Console.WriteLine(s)
+            data.Close()
+            reader.Close()
+        End Using
     End Sub
 End Class
 '</Snippet1>