Renatao

É exatamente isso que preciso Sergio, porém na prática não funciona, se você tentar curtir a pagina do seu exemplo vai ver que não dá certo Se eu copiar o link https://www.facebook.com/plugins/like.php?href=https%3A%2F%2Fwww.facebook.com%2Femottasistemas&width&layout=button&action=like&show_faces=false&share=true&height=35 e abrir direto no navegador ao clicar na opção 'curtir' funciona corretamente e a pagina é curtida no facebook No seu exemplo se eu clicar no botão 'curtir' a pagina não é curtida, ou seja não apresenta o mesmo funcionamento quando o link é aberto direto pelo navegador (IE) Abraço

Boa tarde a todos, Tenho o seguinte link http://www.facebook.com/plugins/like.php?href=https%3A%2F%2Fwww.facebook.com%2Femottasistemas&width&layout=button&action=like&show_faces=true&share=true&height=80 que foi criado pelo pluguin do facebook no link https://developers.facebook.com/docs/plugins/like-button Ao carregar esse link direto no Internet Explorer ou qualquer outro navegador a opção 'Curtir' funciona normalmente. Ao carregar o mesmo link dentro de uma activex, carrega normalmente porém ao clicar no 'curtir' não funciona e nenhuma pagina é curtida A idéia é implementar a opção 'curtir' e 'compartilhar' dentro do sistema caso alguém já tenha passado por uma situação semelhante segue código de exemplo abaixo #include "FiveWin.ch" function ie() local oWnd, oWndChild, oActiveX local cEvents := "" DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" MDI DEFINE WINDOW oWndChild MDICHILD OF oWnd oActiveX = TActiveX():New( oWndChild, "Shell.Explorer" ) oWndChild:oClient = oActiveX oWndChild:Resize() oActiveX:Do( "Navigate2", "https://www.facebook.com/plugins/like.php?href=https%3A%2F%2Fwww.facebook.com%2Femottasistemas&width&layout=button&action=like&show_faces=false&share=true&height=35" ) oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo( event, aParams, pParams, oActiveX ) } ACTIVATE WINDOW oWnd ; VALID ( MemoEdit( cEvents ), .t. ) return nil function EventInfo( event, aParams, pParams, oActiveX ) local cMsg := "Event: " + cValToChar( event ) + CRLF local n cMsg += "Params: " + CRLF for n = 1 to Len( aParams ) cMsg += cValToChar( aParams[ n ] ) + CRLF next return cMsg + CRLF Abraços

Boa noite Pessoal, Primeiro peço desculpas pelos vários post's, esse é o primeiro e não percebi que mesmo gerando erro na hora da postagem elas estavam sendo feitas, enfim ... Consegui contornar o erro apenas renomeando a dll 'WININET.DLL' que fica na pasta do meu Sistema. O erro até o momento só ocorreu em máquinas Windows 8.1 Pro 64 bits Teste em uma máquina Windows Server 2008 Enterprise 64 bits e o problema não ocorre mesmo com a dll 'WININET.DLL' na pasta do Sistema Não fui afundo ainda para descobrir o porque do problema, caso tenha alguma novidade eu posto aqui Abraços

Boa tarde Pessoal, Tenho uma página simples em html com as opções 'Curtir' e 'Compartilhar' do Facebook, estou carregando está página dentro do meu programa utilizando activex, conforme código e imagem abaixo ... oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\face_curti.html" ) ... Funciona normalmente, porém em algumas máquina acontece o erro conforme imagem abaixo O erro ocorre logo que crio o objeto 'TActiveX():New( oDlg, "Shell.Explorer")' Obrigado

Boa tarde Pessoal, Tenho uma página simples em html com as opções 'Curtir' e 'Compartilhar' do Facebook, estou carregando está página dentro do meu programa utilizando activex, conforme código e imagem abaixo ... oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\face_curti.html" ) ... Funciona normalmente, porém em algumas máquina acontece o erro conforme imagem abaixo O erro ocorre logo que crio o objeto 'TActiveX():New( oDlg, "Shell.Explorer")' Obrigado

Boa tarde Pessoal, Tenho uma página simples em html com as opções 'Curtir' e 'Compartilhar' do Facebook, estou carregando está página dentro do meu programa utilizando activex, conforme código e imagem abaixo ... oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\face_curti.html" ) ... Funciona normalmente, porém em algumas máquina acontece o erro conforme imagem abaixo O erro ocorre logo que crio o objeto 'TActiveX():New( oDlg, "Shell.Explorer")' Obrigado

Boa tarde Pessoal, Tenho uma página simples em html com as opções 'Curtir' e 'Compartilhar' do Facebook, estou carregando está página dentro do meu programa utilizando activex, conforme código e imagem abaixo ... oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\face_curti.html" ) ... Funciona normalmente, porém em algumas máquina acontece o erro conforme imagem abaixo O erro ocorre logo que crio o objeto 'TActiveX():New( oDlg, "Shell.Explorer")' Obrigado

Boa tarde Pessoal, Tenho uma página simples em html com as opções 'Curtir' e 'Compartilhar' do Facebook, estou carregando está página dentro do meu programa utilizando activex, conforme código e imagem abaixo ... oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\face_curti.html" ) ... Funciona normalmente, porém em algumas máquina acontece o erro conforme imagem abaixo O erro ocorre logo que crio o objeto 'TActiveX():New( oDlg, "Shell.Explorer")' Obrigado

Boa tarde Pessoal, Tenho uma página simples em html com as opções 'Curtir' e 'Compartilhar' do Facebook, estou carregando está página dentro do meu programa utilizando activex, conforme código e imagem abaixo ... oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\face_curti.html" ) ... Funciona normalmente, porém em algumas máquina acontece o erro conforme imagem abaixo O erro ocorre logo que crio o objeto 'TActiveX():New( oDlg, "Shell.Explorer")' Obrigado

Boa tarde Pessoal, Fiz uma pagina simples em html com as opções de 'Curtir' e 'Comparilhar' do Facebook, e carrego a pagina dentro do meu programa utilizando ActiveX, conforme código e imagem abaixo oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\curti.html" ) Funciona normalmente, porém em algumas máquinas acontece o erro abaixo logo na criação 'TActiveX():New( ....' Obrigado

Boa tarde Pessoal, Fiz uma pagina simples em html com as opções de 'Curtir' e 'Comparilhar' do Facebook, e carrego a pagina dentro do meu programa utilizando ActiveX, conforme código e imagem abaixo oActiveX := TActiveX():New( oDlg, "Shell.Explorer") oActiveX:Do("Navigate2", "c:\curti.html" ) Funciona normalmente, porém em algumas máquinas acontece o erro abaixo logo na criação 'TActiveX():New( ....' Obrigado