COMO CAPTAR LINKS IGUAL AO PROGRAMA JDOWNLOADER

PROGRAMADORVB6 21/06/2011 07:00:59
#377323
Olá pessoal.
Aguém sabe onde posso encontrar uma função que me possa detectar quando procedemos a um copy?

Já tenho esta função para reverter os link que estão ao contrario, mas ainda não consigo fazer com que seja detectada o procedimento de copy.
 Public Class Funcoes
    Public Shared Function ReverterString(ByVal TextoInicial As String) As String
        Dim Caracteres() As Char = TextoInicial.ToCharArray
        Array.Reverse(Caracteres)
        Return Caracteres
    End Function

End Class


Grato desde já pela vossa atenção.
Até uma próxima.
Programadorvb6
PROGRAMADORVB6 21/06/2011 09:57:18
#377346
Olá boa tarde.
Passo então a descrever :
O que pretendia é que a função capta-se quando fazemos um situação de copiar/colar em qualquer lado; como por exemplo em uma aplicação ; browser etc..
Sim +- deve ser isso que se consegue fazer; e o que o programa DOWNLOADER faz, mas não tenho conhecimento se consegue-se saber quando há novos valores que foram guardados.
FROSTYNHO 23/06/2011 14:40:27
#377602 Resposta escolhida
cria uma string onde vc vai salvar oque vc acabou de copiar, assim que vc copiar outra coisa manda verificar se o valor é igual a da string.
(mais tarde vou fazer um exemplo)
PROGRAMADORVB6 23/06/2011 16:11:54
#377618
Olá colega FROSTYNHO
Como poderemos saber se houve alguma modificação no clipboad?
Nota : O String Captado pelo Copiar tem que ser em qualquer lado; como por exemplo em uma aplicação ; browser etc..
Obrigado desde já pela vossa atenção.
Atenciosamente.
Programadorvb6
CAIO.FR.SP 23/06/2011 17:44:10
#377626
cara, eu fiz um projetinho para uso pessoal que realiza exatamente esse procedimento que voce quer. vou tentar postalo.
PROGRAMADORVB6 24/06/2011 11:56:04
#377673
Ok. obrigado.
Ficarei então á espera.
Grato desde já pela vossa atenção.
ProgramadorVB6
CAIO.FR.SP 24/06/2011 13:55:11
#377679
cara nao estou conseguindo postar o projeto. mas o codigo é bem simples:

  Private Sub Form_Load()
    Text1.Text = [Ô][Ô]
    Text2.Text = [Ô][Ô]
End Sub

Private Sub Timer1_Timer()
    If Clipboard.GetText <> Text1.Text And Clipboard.GetText <> Text2.Text Then
        Text1.Text = Clipboard.GetText
        Text2.Text = StrReverse(Text1.Text)
        If InStr(1, Text1.Text, [Ô]megaupload[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text1.Text
        If InStr(1, Text2.Text, [Ô]megaupload[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text2.Text
        If InStr(1, Text1.Text, [Ô]fileserve[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text1.Text
        If InStr(1, Text2.Text, [Ô]fileserve[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text2.Text
        If InStr(1, Text1.Text, [Ô]4shared[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text1.Text
        If InStr(1, Text2.Text, [Ô]4shared[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text2.Text
        If InStr(1, Text1.Text, [Ô]filesonic[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text1.Text
        If InStr(1, Text2.Text, [Ô]filesonic[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text2.Text
        If InStr(1, Text1.Text, [Ô]uploaded[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text1.Text
        If InStr(1, Text2.Text, [Ô]uploaded[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text2.Text
        If InStr(1, Text1.Text, [Ô]uploadstation[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text1.Text
        If InStr(1, Text2.Text, [Ô]uploadstation[Ô], vbTextCompare) > 0 Then Clipboard.Clear: Clipboard.SetText Text2.Text
    End If
End Sub
PROGRAMADORVB6 24/06/2011 16:48:34
#377698
Olá.
Estive a ver o código e não consigo que me capte só url, para além disso entra num ciclo sem retorno.
Fiz assim :

   Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Clipboard.GetText <> TextBox1.Text Then
            TextBox1.Text = Clipboard.GetText
            TextBox2.Text = Funcoes.ReverterString(TextBox1.Text) [ô]StrReverse(TextBox1.Text)
            If InStr(1, TextBox1.Text, [Ô]megaupload[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox1.Text)
            If InStr(1, TextBox2.Text, [Ô]megaupload[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox2.Text)
            If InStr(1, TextBox1.Text, [Ô]fileserve[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox1.Text)
            If InStr(1, TextBox2.Text, [Ô]fileserve[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox2.Text)
            If InStr(1, TextBox1.Text, [Ô]4shared[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox1.Text)
            If InStr(1, TextBox2.Text, [Ô]4shared[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox2.Text)
            If InStr(1, TextBox1.Text, [Ô]filesonic[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox1.Text)
            If InStr(1, TextBox2.Text, [Ô]filesonic[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox2.Text)
            If InStr(1, TextBox1.Text, [Ô]uploaded[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox1.Text)
            If InStr(1, TextBox2.Text, [Ô]uploaded[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox2.Text)
            If InStr(1, TextBox1.Text, [Ô]uploadstation[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox1.Text)
            If InStr(1, TextBox2.Text, [Ô]uploadstation[Ô], vbTextCompare) > 0 Then Clipboard.Clear() : Clipboard.SetText(TextBox2.Text)

        End If
    End Sub

Obrigado por tudo.
Grato desde já pela sua ajuda.
Programadorvb6
FROSTYNHO 24/06/2011 18:09:53
#377705
PROGRAMADORVB6
Tens msn? se tiver me adiciona, vou te passar o Codigo Fonte de um projeto meu, que creio eu, é exatamente oque vc precisa...
krazybeat@hotmail.com
RODRIGOFERRO 25/06/2011 03:07:33
#377721
FROST... posta no VBMANIA pra galera desfrutar =]

Abraços
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar