Visual Basic.NET - Accesar imagenes de Camara IP en VB.NET

MJPEGStream videoSource = new MJPEGStream("http://admin:admin@192.168.1.227:81/videostream.cgi?rate=11")

VideoSourcePlayer1.VideoSource = videoSource

videoSource.Start()

Dim Stream As MJPEGStream = New MJPEGStream("http://192.168.0.45/axis-cgi/mjpg/video.cgi") '' cadena de ejemplo

Stream.RequestTimeout = 5000 '' 5 segundos de espera

Stream.ForceBasicAuthentication = True

vspImagenes.VideoSource = Stream

vspImagenes.Start()

Dim Stream As MJPEGStream = New MJPEGStream("http://192.168.0.45/axis-cgi/mjpg/video.cgi") '' cadena de ejemplo

Stream.RequestTimeout = 5000 '' 5 segundos de espera

Stream.Login= "usuario" '' Creo que así está la propiedad

Stream.Password= "clave" '' Creo que así está la propiedad

vspImagenes.VideoSource = Stream

vspImagenes.Start()

'' Utilizamos el espacio de nombres "System.Net" para obtener la captura (utiliza la URL que te sirve actualmente en el navegador) que mostramos en un control "PictureBox".

Dim sourceURL As Strimg = "http://ipaddress/jpg/image.jpg"

Dim buffer As Byte() = New Byte(10000000)

Dim read As Integer = 0

Dim total As Integer = 0

'' create HTTP request

Dim req As HttpWebRequest = CType(WebRequest.Create(sourceURL), HttpWebRequest) '' revisa esta línea

req.Credentials = New NetworkCredential("username", "pass") '' para usar autenticación

'' get response

Dim resp WebResponse = req.GetResponse()

'' get response stream

Dim stream Stream = resp.GetResponseStream()

'' read data from stream

Do While read = stream.Read(buffer, total, 1000)) > 0 '' revisa esta línea

	total = total + read

Loop

'' get bitmap

Dim bmp As Bitmap = Bitmap.FromStream(New MemoryStream(buffer, 0, total))

pictureBox1.Image = bmp

'Dim sourceURL As String = "http://192.168.0.45/web/admin.html"

Dim sourceURL As String = "http://192.168.0.45/jpg/image.jpg"

Dim buffer(10000000) As Byte

Dim read As Integer = 0

Dim total As Integer = 0

'' create HTTP request

Dim req As HttpWebRequest = CType(WebRequest.Create(sourceURL), HttpWebRequest) '' revisa esta línea

req.Credentials = New NetworkCredential("admin", "admin") '' para usar autenticación

'' get response

Dim resp As WebResponse = req.GetResponse()

'' get response stream

Dim stream As Stream = resp.GetResponseStream()

'' read data from stream

Do While read = stream.Read(buffer, total, 1000) > 0 '' revisa esta línea

	total = total + read

Loop

'' get bitmap

Dim bmp As Bitmap = Bitmap.FromStream(New MemoryStream(buffer, 0, total))

pbImagenes.Image = bmp