Abrir O Internet Explorer no VFP com classe wbrowse

[alceu11]

Abrir O Internet Explorer no VFP com classe wbrowse
** leia o caption do form principal aberto antes de adaptar ao seu sistema
link

[Você precisa estar registrado e conectado para ver este link.]

topico relacionado
[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver esta imagem.]

[Marcos Guedes]

Reputado!

[alceu11]

Obrigado M.Guedes
- link para baixar

[coconaithy]

boa tarde,

alguem poderia me ajudar, como faço para abrir o internet explorer com usuario de rede de outra pessoa.
ex. hoje vc clicar com botão direito do mouse no icone do explorer e pede para abrir com outro usuario. preciso abrir o explorer dentro dos exemplos citados desta forma e não com usuario de rede logado na maquina.

[alceu11]

neste topico nao se resolveu esta situacao.
[Você precisa estar registrado e conectado para ver este link.]

Nao entendi o ke vc ker, esta sem logica, o ke esta pedindo.

1 usuario logado na maquina, e vem outro, usuario ke nao o ke esta logado,
e clica com o direito. e abre comO outro usuario O IE ???


"ESTRANHO" MUITO estranho, Explique melhor esta situacao!!

Este click e na area do desktop da maquina ?,
SE for isto,!!
resposta
Isto nao e permissoes que o admistrador da rede, libera AO usuario, ou nao, O acesso ao IE????????


Este click e dentro do seu aplicativo desenvolvido em VFP , em um botao ?

Se for so usuario logado ke , tera o direito conforme topico citado, no link indicado no inicio desta respota.

[coconaithy]

Boa tarde Alceu.
Deixa-me tentar explicar melhor.
Ainda sou novo com VFP, mas vamos lá.
Hoje trabalho numa empresa com 20 funcionários que é prestadora de serviço logístico para uma grande empresa. Esta grande empresa liberou acesso a internet somente para dois funcionários, o meu e do meu Gerente. E hoje solicitei a TI da grande empresa incluir na lista branca 3 endereço sendo googlemaps, o site da empresa que trabalho e o site de RH. para que os demais usuários possam ter acesso. e com isto estou enfrentando uma burocracia.
E como estamos com uma atividade nova que precisa realizar consultas no google maps e google doc, tive que passar minha senha de rede para outro funcionário para realizar as consultas.
Como este funcionário faz este acesso?
Ele clica com botão direito do mouse sobre o ícone do Explorer e pede para abrir o Explorer com outro usuário de rede, neste caso o meu usuário de rede, so que desta forma não é seguro, pois não consigo controlar seu acesso.
Pesquisando na programação Brasil, vi este recurso de integração do VFP com Explorer, então pergunto existe a possibilidade desta classe Wbrose abrir o Explorer com outro usuário/senha de rede cadastrado em uma tabela ou linha de comando?
Tentei o recurso do tópico [Você precisa estar registrado e conectado para ver este link.] mais não consegui, mais apliquei o exemplo nos sistema que utilizamos, pois não havia tela de login na abertura do sistema.

[Marcos Guedes]

boa tarde,

alguem poderia me ajudar, como faço para abrir o internet explorer com usuario de rede de outra pessoa.
ex. hoje vc clicar com botão direito do mouse no icone do explorer e pede para abrir com outro usuario. preciso abrir o explorer dentro dos exemplos citados desta forma e não com usuario de rede logado na maquina.

veja se isto lhe ajuda:

[Você precisa estar registrado e conectado para ver este link.]

[coconaithy]

Marco, obrigado, estou estudando o exemplo citado.
testando no projeto deu certo, quando gero o execultavel a pagina apresenta erro pq a pagina está sem acesso a internet.

[alceu11]

Deixa eu ver se entendi tua explicacao anteiror resposta dada anterior a esta em 8/8/2011 as 17hs36min.

abrir o Explorer com outro usuário/senha de rede cadastrado em uma tabela

Voce esta dizendo ke nao tem experiencia em vfp, e nao sabe fazer um cadastro de Senhas em vfp.?
E ke por isto o teu sistema em vfp nao tem uma solicitacao de login e senha para ke possa verificar o nivel, daquele usuario, ke daria o acesso, ao menu para ir ao google maps, ou nao, dependendo. do cadastro de senhas?

Vamos por mao a obra, Para criar a tabela e facil"""!!!"""
if not file("usuario.dbf")
Create table usuario (usuario c(10), senha c(10), nivel n(1))
Select usuario
index on usuario tag usuario
**para inserir dados. O NIVEL DEFINIRA O ACESSO. 1 TEM 2 NAO TEM
insert into usuario values('supervisor','123', 1)
insert into usuario values('AUXILIAR1','456', 2) && ESTE NAO TEM ACESSO
****browse
endif

Para fazer o cadastro e simples e so pegar inumeros exemplos no forum,,,,,,,,,
mais acredito ke vc tera ke por a mao na massa....."""!!!""
Pois se quiser aprender,,,tem ke comecar. e na duvida pergunte....

Acho,,,,,,,ke sera mais facil vc dizer nao sabe fazer""!!"", e isto, te levara a solucao do teu problema.

Pois nao vejo dificuldades, no ke vc esta kerendo, desde ke vc seja franco"!!"

[coconaithy]

Alceu,
Em relação ao sistema feito no VFP, ok, criar a tela de login e senha e verificar o nível do usuário, sem problemas, inclusive usei seu exemplo e adaptei .
Programar usando classe, sou muito cru e estou apresento neste fórum muitas coisas.
Em fim, o que preciso é dribla a segurança de usuário de rede do micro e não usuário de sistema.
conforme já diz anteriormente, para usuário de rede alguns funcionários tem acesso a internet e outros não.
no Exemplo que o Marcos Guedes passou no link esta bem claro o que preciso.
testando funciona no projeto, fiz os teste com vários usuários e deu certo, mais quando compilo e coloco o executável na rede não funciona, não sei se agora o problema esta com as DLL, própria segurança do Windows ou da formar que inclui na classe.
Não sei se desta forma ficou claro.
Mas muito obrigado pela atnção.

[Marcos Guedes]

Marco, obrigado, estou estudando o exemplo citado.
testando no projeto deu certo, quando gero o execultavel a pagina apresenta erro pq a pagina está sem acesso a internet.

Depois de compilado, qual a mensagem de erro?

Se funciona pelo projeto, também funcionará pelo executável.
Só temos que achar qual a dependência para o funcionamento do código compilado.

[coconaithy]

Então, estou usando o codigo abaixo.

Código:

#define LOGON32_PROVIDER_DEFAULT 0
#define LOGON32_LOGON_INTERACTIVE      2
#define LOGON32_LOGON_NETWORK          3
#define LOGON32_LOGON_BATCH            4
#define LOGON32_LOGON_SERVICE          5
#define LOGON32_LOGON_UNLOCK            7

DECLARE integer LogonUser IN AdvApi32.DLL;
string szUsername,;
string lpszDomain,;
  string lpszPassword,;
integer dwLogonType,;
integer dwLogonProvider,;
integer @phToken

DECLARE integer ImpersonateLoggedOnUser IN AdvApi32.DLL integer hToken
DECLARE integer RevertToSelf IN AdvApi32.DLL

local nToken
nToken = 0

*Aqui busca no banco
**USE Tblusuario

cusuario="co062024"
cdomain="meudominio"
cpassword="Real89936"
lok=LogonUser(cusuario,cdomain,cpassword,LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, @nToken)

IF !lok = 1
    WAIT window"Não    Logou" TIMEOUT 10
ELSE
    WAIT window"Logou" TIMEOUT 10
    do "d:\projetos\internet\entra.prg"
*a linha abaixo também é para teste
* run /n1 "C:\Arquivos de programas\Internet Explorer\iexplore.exe"

endif

quando testo vejo que logou, mas quando abre o explorer abre não abre com usuario que coloquei no paramentro.

abaixo o outro codigo do entra.prg

Código:


oform = CREATEOBJECT("teste")
oform.SHOW(1)
* Definição do Form
DEFINE CLASS teste AS FORM
    CAPTION = ""
    BACKCOLOR = RGB(255,255,255)
    ICON = ""
    closable=.t.
    DESKTOP = .T.
    MINBUTTON = .T.
    MAXBUTTON = .T.
    WIDTH = 800
    HEIGHT = 600
    CAPTION = "Consulta dados na Sefaz"
    BORDERSTYLE=2

    ADD OBJECT oleie AS OLECONTROL WITH ;
        TOP = 0,;
        LEFT = 0,;
        WIDTH = THIS.WIDTH,;
        HEIGHT = THIS.HEIGHT,;
        ANCHOR =15,;
        OLECLASS = "Shell.Explorer.2"
    PROCEDURE oleie.REFRESH
        NODEFAULT
    ENDPROC
    PROCEDURE INIT
    thisform.oleie.navigate("[Você precisa estar registrado e conectado para ver este link.]

    ENDPROC
ENDDEFINE

Código:

[code]

[Marcos Guedes]

Depois de compilado, qual a mensagem de erro?

[coconaithy]

Então aparece este erro no exploer "Serviço de Web Proxy

Sem permissão para acesso

O controle de acessos impediu sua requisição. O acesso a este conteudo não é permitido. Caso você não concorde com isto, por favor, entre em contato com o seu responsável no IT"

sendo assim ele logou, mas não abriu o explorer com usuario logado.

[coconaithy]

Senhores, conseguir resover meu problema da seguinte maneira.
criei uma BAT com a seguinte linha de comando

Código:

runas /user:dominio\co062025 /savecred c:\simport\projeto.exe

quando você execultar você digita a senha, desta forma a senha fica salva.