COMO CAPTAR LINKS IGUAL AO PROGRAMA JDOWNLOADER

FROSTYNHO 25/06/2011 12:58:26
#377732
tae zero... desculpa a ignorancia =/
PROGRAMADORVB6 25/06/2011 14:01:40
#377733
Olá + 1 vez a todos.
Estive a ver os vossos exemplos para retirar algumas ideias.
Para verificar se o link precisa de ser invertido(porque alguns não precisam ) tenho que saber se o Link original contem determinada frase como por ex : http://www.megaupload.com
Caso seja detectado não precisará de ser invertido.
Outra situação que pensei, foi procurar em um ficheiro com o nome Links.txt para reter certos valores, valores esses que iriam servir para fazer funcionar certas funções isto para evitar fazer vários If...
Passo então a explicar :
O ficheiro : Links.txt iria conter os seguintes dados :

http://www.megaupload.com;/?d=;29;37
http://www.fileserve.com;/file/;30:37
Etc...

Primeiramente quando iriamos verificar o link original, se era necessário ser invertido ; Como? : procedia-mos ao varimento do ficheiro Links.txt, lendo o primeiro separador (;) que contem por (ex:http://www.megaupload.com ) e comparavamo-lo com o link original, caso essa url original (a captar) contivesse alguma url (.com) que está gravada no ficheiro, não seria necessário proceder á inversão de link, caso o seu conteudo=false então aí sim procedia-mos á inversão .
Basicamente tenho esta rotina no timer para captar qualquer link que seja válido, mas falta-me fazer o procedimento em cima descrito.
Passo então a expôr o código para que me possam ajudar :

Na classe :

 
Imports System.IO
Imports System.Net
Public Class Funcoes
Public Shared Function Gettok(ByVal GettokText As String, ByVal GettokStr As String, ByVal GettokNum As Integer) As String
        Dim GettokTmp As String() = Nothing
        GettokNum = GettokNum - 1
        GettokTmp = GettokText.Split(CChar(GettokStr))
        Gettok = GettokTmp(GettokNum)
    End Function
[ô] URL validation
    Public Shared Function UrlIsValid(ByVal url As String) As Boolean
        If url.ToLower().StartsWith([Ô]www.[Ô]) Then url = [Ô]http://[Ô] & url
        Dim webResponse As Net.HttpWebResponse = Nothing
        Try
            Dim webRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
            webResponse = DirectCast(webRequest.GetResponse(), Net.HttpWebResponse)
            Return True
        Catch
            Return False
        Finally
            If webResponse IsNot Nothing Then webResponse.Close()
        End Try
    End Function
End Class


No Form :

  

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TopMost = False
            If Me.Button1.Text = [Ô]Formatar[Ô] AndAlso Me.Button1.Text = [Ô]Formatar[Ô] Then
            TextBox2.Text = Mid(Funcoes.Gettok(TextBox2.Text.Replace([Ô]http://www.megaupload.com[Ô], [Ô]☻http://www.megaupload.com[Ô]), [Ô]☻[Ô], 2), 1, 37)
            If Mid(TextBox2.Text, 1, 29) = [Ô]http://www.megaupload.com/?d=[Ô] And TextBox2.Text.Length = 37 Then
                WebBrowser1.Navigate(TextBox2.Text)
                WebBrowser1.ScriptErrorsSuppressed = True
                If Funcoes.DuplicadoLView(Quadro, TextBox2.Text.ToString) = False Then
                    Quadro.Items.Add(TextBox2.Text.ToString)
                    TextBox1.Text = Nothing
                    TextBox2.Text = Nothing
                    TextBox1.Focus()
                    Clipboard.Clear()
                End If
            Else
                MsgBox([Ô]O link encontra-se sem ligação ! [Ô], MsgBoxStyle.Critical, [Ô]Informação :[Ô])
                Exit Sub
            End If
        End If
        If Funcoes.DuplicadoLView(Quadro, TextBox2.Text.ToString) = True Then
            MsgBox([Ô]O link já se encontra adicionado ! [Ô], MsgBoxStyle.Critical, [Ô]Informação :[Ô])
            TextBox1.Text = Nothing
            TextBox2.Text = Nothing
            TextBox1.Focus()
            Clipboard.Clear()
            Exit Sub
        End If
        Timer1.Start()
    End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Diz_Url_Valida As Boolean = Funcoes.UrlIsValid(Clipboard.GetText.ToString)
        If Diz_Url_Valida = True AndAlso Diz_Url_Valida = True Then
            TextBox1.Text = Nothing
            Me.TopMost = True
            [ô]Procurar no txt os megaupload....
            TextBox1.Text = Clipboard.GetText
            Clipboard.Clear()
        End If
    End Sub


Grato desde já pela vossa atenção
Atenciosamente
Programadorvb6
PROGRAMADORVB6 27/06/2011 19:35:56
#377880
Olá a todos.
Depois de terminar resolvi postar aqui o programa:
Ele ainda só trabalha com o :
- Megaupload.com
- Fileserve.com

Obrigado a todos pela a ajuda prestada.

Até+
ProgramadorVB6
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar