The latest standards and proposals aim at leading to the various browsers’ ability to deliver a wide variety of media and accessibility…

Sub AttachToWebServer()
System.Diagnostics.Process.Start(”tasklist”, “/FI “”Username eq bsi\Paul”" /FI “”imagename eq w3wp.exe”" /fo “”csv”" /nh”)
Dim pid As Integer = Run(”tasklist”, “/FI “”Username eq bsi\Paul”" /FI “”imagename eq w3wp.exe”" /fo “”csv”" /nh”).Split(”,”)(1).Replace(”"”", “”)
”Dim process As EnvDTE.Process
For Each DebugProcess As EnvDTE.Process In DTE.Debugger.LocalProcesses
If DebugProcess.ProcessID = pid Then
DebugProcess.Attach()
Return
End If
Next
MsgBox(”Could not find web server”)
End Sub
Private Function Run(ByVal path As String, ByVal args As String) As String
Try
Dim p As New System.Diagnostics.ProcessStartInfo(path, args)
p.RedirectStandardOutput = True
p.UseShellExecute = False
p.CreateNoWindow = True
p.RedirectStandardError = True
p.RedirectStandardInput = True
p.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden

Return System.Diagnostics.Process.Start(p).StandardOutput.ReadToEnd()
Catch ex As Exception
Throw New Exception(”RunX: File: ” & path & ” - Exception: ” & ex.Message)
End Try
End Function