Ping em Vb.net

Fala, galera!!

Segue um código para executar uma operação de ping em um endereço remoto.
Essa funcionalidade é útil para testar a disponibilidade de um determinado serviço.


Dim Ping As Ping = New Ping()
Dim PingReply As PingReply = Ping.Send("127.0.0.1")
If PingReply.Status <> IPStatus.Success Then
     Response.Write("Serviço fora do ar")
End If

É necessário importar os seguintes Namespaces:

Imports System.net
Imports System.net.NetworkInformation

Um abraço e até próxima!!

Leitura automática de texto em .Net

Fala, galera!!

Vou postar aqui hoje uma classe muito interessante que foi disponibilizada na versão 3.0 do framework .net.
É a classe System.Speech.
Esta classe permite que você informe um texto e uma voz o leia!
Exatamente. O texto digitado é "convertido em voz".

Para utilizá-la adicione uma referência à classe System.Speech.
Adicione também no seu webform o atributo Async="true" na diretiva @Page.

A utilização da classe é bem simples.
Segue o código:

Dim Voz As New System.Speech.Synthesis.SpeechSynthesizer
Voz.Speak("Lendo o texto digitado pelo usuário")

Um abraço e até a próxima!!