FACEBOOK TOOL

PROGRAMADORVB6 30/09/2011 13:02:38
#385596
Olá boa noite.
Estou a fazer um programa para que possa responder aos imensas respostas [ô]Like[ô] e post que me são respondidos na minha conta do Facebook.
Já tenho tudo praticamente feito, só me resta colocar as respostas dos meus amigos do facebok em uma Listview e escolher á qual desejo responder com um [ô]lLike[ô]
Já tentei de tudo como poderão constactar no meu programa e ainda não estou conseguindo resolver esta situação [ô]Cabeluda![ô]
Deixo aqui o meu código para que me possam ajudar.
Grato desde já pela vossa atenção.
com o melhores comprimentos.
Programadorvb6
PROGRAMADORVB6 03/10/2011 09:24:43
#385733
Olá mais uma vez.
Eu coloquei este código para comentar na minha conta do Facebook e funciona no sistema XP (Com o IE8 ), porém no win7 (64bits) com o IE9 não funfa.
O que poderá estar mal.

   Public Sub Send_Message()
        Dim htmlElementos As HtmlElementCollection = Form1.Facebook.Document.GetElementsByTagName([Ô]textarea[Ô])
        Dim Guarda_Elementos As HtmlElementCollection = Form1.Facebook.Document.All

        For Each el As HtmlElement In htmlElementos
            If el.GetAttribute([Ô]name[Ô]).Equals([Ô]xhpc_message[Ô]) Then
                el.Focus()
                el.SetAttribute([Ô]value[Ô], Form1.Frase.Text)
            End If
        Next

        For Each Elementos As HtmlElement In Guarda_Elementos
            [ô]Portugal.
            If Elementos.GetAttribute([Ô]value[Ô]).Equals([Ô]Publicar[Ô]) Then
                Elementos.InvokeMember([Ô]click[Ô])
            End If
            [ô]In E.U.A.
            If Elementos.GetAttribute([Ô]value[Ô]).Equals([Ô]Share[Ô]) Then
                Elementos.InvokeMember([Ô]click[Ô])
            End If
        Next
    End Sub


Grato desde já pela vossa atenção.
Programadorvb6
LUCASVAZ 04/10/2011 09:44:51
#385855
Existem muitas coisas que ainda não funcionam no IE 9 (Principalmente a versão 64b). Tente em outros navegadores: Firefox, Google Chrome, Safari, Opera ou até mesmo a versão IE 7 ou 8 para ver se funciona.
Tópico encerrado , respostas não são mais permitidas
Voltar