USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Acessando homepage via vb
Jayron2004
ACAILANDIA
MA - BRASIL
Postada em 27/08/2004 13:04 hs            
Como devo fazer para criar um codigo vb para quando acessar meu homepage meu programa iniciar um procedimento como gerar um log ou dar um beep?
por favor ficarei muito grato se poderem me ajudar.
     
SpiritCalad
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/08/2004 13:12 hs            
Você teria que acessar sua home pelo programa VB que vc fizer.
 
Nas DICAS você pode encontrar alguns exemplos prá fazer isso.
 
Ai é só fazer as adaptações prá conseguir o que vc quer.
   
Msmarcus_RJ
RIO DE JANEIRO
RJ - BRASIL
Postada em 27/08/2004 19:12 hs         
Ai olha depende do que você quer fazer, por exemplo:
Se você quer que quando  a sua HOME PAGE seja acessada no seu FORM pelo Webbrowser e que possa dar um BEEP e ainda por cima criar um arquivo de LOG faça  o seguinte abaixo:

Insira no seu form o Microsoft Internet Control e um TIMER
' e faça isto no seu FORM

Private Sub Form_Load()
Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
If Trim(WebBrowser1.LocationURL) = "http://www.google.com.br/" Then
beep
Dim MyIndex, FileNumber
    FileNumber = FreeFile   
       
    Open "URL.log" For Output As #FileNumber 
    Write #FileNumber, "http://www.google.com.br/"  
    Close #FileNumber  
Else
End If
End Sub

'Quando alguem ou você acessar a sua HOME PAGE através do VB ele irá criar um 'Arquivo de LOG na UNIDADE C.


Agora se você quiser fazer isto pelo Internet Explorer é mais facil ainda
Veja o código abaixo:
'Referencie o Microsoft Internet Control e insira um TIMER em seu Projeto
 
 Dim SWS As New SHDocVw.ShellWindows
 Dim IE As SHDocVw.InternetExplorer
 
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
For Each IE In SWS
If Trim(IE.LocationURL) = "http://www.google.com.br/" Then
beep
Dim MyIndex, FileNumber
    FileNumber = FreeFile
       
    Open "URL.log" For Output As #FileNumber  ' Create filename.
    Write #FileNumber, "http://www.google.com.br/"  ' Output text.
    Close #FileNumber
Else
End If
Next
End Sub

Com este exemplo acima ele cria um arquivo de LOG toda vez que alguem acessar o Internet Explorer e acessar a sua Home PAGE

Espero que a ajudar que eu estou te enviando possa te ajudar ao bastante.

Atenciosamente,
Marcus Vinícius

Em caso de problemas com a dica, envie um e-mail para Msmarcus@hotmail.com
Que logo em seguida estarei entrando em contato contigo.

______________________________
Resolveu ? Tópico Trancado!

TÓPICO EDITADO
   
Jayron2004
ACAILANDIA
MA - BRASIL
Postada em 30/08/2004 14:32 hs            
Obrigado marcos consegui o que queria grassas ao seu exeplo.
muito grato.
     
Msmarcus_RJ
não registrado
Postada em 30/08/2004 16:46 hs   
Não foi nada . . . .

Até mais,

Atenciosamente,
Marcus Vinícius
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página