VB .NET - Procurando conteúdo no YouTube

Que tal procurar conteúdo no YouTube usando um programa Visual Basic ?

Pois o YouTube Desktop faz exatamente isso.

Basta informar um critério de busca, selecionar o navegador e mandar o danado procurar...

Estamos usando um string de busca do YouTube: Private Const stringBusca As String = "http://www.youtube.com/results?search_query="

O código do evento Click do botão Procurar é o seguinte:

Private Sub cmdProcurar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProcurar.Click
        Dim p As New System.Diagnostics.Process()

        If (txtCriterio.Text.Trim().Length > 0) Then

            Try
                With p
                    .StartInfo.FileName = BroswerExe
                    .StartInfo.Arguments = stringBusca & Encode(txtCriterio.Text)
                    'Inicia o Navegador
                    p.Start()
                    'Minimiza a janela na barra de tarefas
                    Me.WindowState = FormWindowState.Minimized
                End With
            Catch ex As Exception
                MessageBox.Show("Navegador Não Encontrado '" & NomeNavegador & "'", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        End If

    End Sub

O código usa a classe Process do namespace System.Diagnostics para criar uma instância do navegador e executar o processo de sua execução abrindo a janela do navegador.

Usando a classe Process você pode obter informações sobre processos e aplicações , pode também usá-la para criar uma instância de uma aplicação ou parar um processo que esta sendo executado. A grosso modo poderíamos dizer que a classe Process é a sucessora do comando Shell do VB6 (lembra dele ?)

Assim o programa vai abrir a janela usando o navegador escolhido exibindo o conteúdo encontrado.

Tudo muito simples como só o VB .NET é capaz de fazer.

Abra o projeto no VB .NET 2010 Express ou superior.

Pegue o projeto completo aqui: YoutubeSearch.zip

Veja os Destaques e novidades do SUPER CD VB 2012 (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET  no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# 2012 com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

 

Heb 3:13 antes exortai-vos uns aos outros todos os dias, durante o tempo que se chama Hoje, para que nenhum de vós se endureça pelo engano do pecado;

Heb 3:14 porque nos temos tornado participantes de Cristo, se é que guardamos firme até o fim a nossa confiança inicial;

Heb 3:15 enquanto se diz: Hoje, se ouvirdes a sua voz, não endureçais os vossos corações, como na provocação;

Heb 3:16 pois quais os que, tendo-a ouvido, o provocaram? Não foram, porventura, todos os que saíram do Egito por meio de Moisés?

Referências:

José Carlos Macoratti