Mini-Browser com SytemTray

[tiagocaus 1]

Olá Pessoal,

Um amigo fez um Browser para mim com opção de Systray mas não consigo falar com ele... por calsa disso estou entrando em contanto com vcs para saber se alguem pode me ajudar a fazer um como esse:

 

Coloquei em meu host para que possa baixar e ver:

 

Link: www.hostingcia.info/systemtray.exe

 

 

Ficou bem legal, alguem pode me ajudar como fazer no VB6 ele?

 

 

 

Obrigado.

[Claudio Neto 3]

O que exatamente isso faz? Só fica ali no canto como propaganda?

 

Você já programa em VB e precisa de ajuda para construir? Se sim, poste alguma coisa que já tenha que lhe ajudamos com sua dúvidas, faz o programinha ficar ao lado do relógio é fácil.

[tiagocaus 1]

 

Olá Amigão,

Vamos dizer assim, eu não programamo em VB, a muito tempo na época que estava no 3º Ano, mas creio que devo consegui. Não tenho nada pronto irei começar do ZERO.

 

A função dessa janela é que ela ira ficar instalada em Computadores de Clientes, ai quando a pessoa clicar ira abrir uma página dentro dela Tipo [http://www.hostcia.net/systray/index.php]

 

Somente isso.

Obrigado por querer me ajudar...

 

 

Abração, fique com Deus... T+

[tiagocaus 1]

Eu procurei na net mas e achei esse cod.

 

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
WebBrowser1.Navigate "http://www.hostcia.net/systray/index.php"
End Sub

Mas a página não esta abrindo quando eu executo...

O que devo fazer?

[tiagocaus 1]

Olá Pessoal,

Consegui fazer ele funcionar... para quem quizer o cod é:

 

Dim baseURL As String
Private Sub Form_Load()
	baseURL = "http://www.hostcia.net/systray/"
	WebBrowser1.Navigate baseURL + "index.php"
End Sub

 

Agora alguem pode me ajudar a fazer com que ele possa ficar guardado no SystemTray (Icone Perto do Relógio).

 

 

Obrigado.

[Claudio Neto 3]

Possuo uma ocx de terceiros aqui que ajuda bastante para fazer o que quer, e é super simples de utilizar.

 

Me passe um e-mail que te mando o arquivo.

 

Chama-se Trayicon.

[tiagocaus 1]

 

 

Olá Amigo, meu email é tiago_caus@hotmail.com

Obrigado por sua ajuda...

[Claudio Neto 3]

Tiago, após incluir em seu projeto o arquivo que te passei, faça o seguinte:

 

Crie um menu e torne-o invisível, com os opções de abrir e fechar.

 

Para utilizar, se baseio no código abaixo:

Private Sub Form_Unload(Cancel As Integer)

If TrayIcon1.Visible = False Then
	Cancel = True
   
	Me.Hide
   
	TrayIcon1.Visible = True
End If

End Sub

Private Sub submenuABRIR_Click()

Me.Show
   
TrayIcon1.Visible = False

End Sub

Private Sub submenuFECHAR_Click()

Unload Me

End Sub

Private Sub TrayIcon1_MouseDown(ByVal Button As Integer)

If Button = 2 Then
	PopupMenu menu1
End If

End Sub

Se tiver dúvidas avise.

[tiagocaus 1]

 

 

Olá Amigo,

Valeu pela ajuda...

Nesse meio tempo que tinha te mandado o email eu Instalei o VB 2008 que é Free [http://www.microsoft.com/express/vb/default.aspx]

Ai fui abrir nele, mas os COD não são compativel... você sabe como fazer ele no VB 2008? Estive usando e parece ser 100% melhor que o VB6

 

 

Outra Pergunta, fui mandar o EXE para uma pessoa em outro PC e não funcionou... creio que preciso criar um instalador certo? Como se faz isso?

 

 

Fico no aguardo...

Abração... T+

[Claudio Neto 3]

Quanto a vb 2008 não posso lhe ajudar não.

 

Peça ajuda na área de Plataforma .Net.

 

Mas assim, se pretende aprender uma nova linguagem somente para fazer esse programinha, não acho que valha a pena, a não ser que pretende se aprofundar depois.

 

Quando ao instalador, o VB quando instalado, coloca junto o Package & Deployment Wizard, aplicativo para construir setups. Fora ele você tem alguns outros que encontra por ai muito bons. Eu costumo utilizar um chamado Inno Setup.

 

E quanto ao programa abrir quando inicia o pc, você precisa registrar a chave dele na biblioteca de chaves. Isso já foi respondido aqui, segue o link:

 

Abrir programa com windows

 

Falou...

[Claudio Neto 3]

Olá Tiago.

 

Você disse que não consegui fazer seu programa iniciar junto com o windows.

 

Você seguiu o que o tópico que passei disse para fazer? Já utilizei aquele código e funciona.

 

Poste aqui como você o colocou para ver se fez algo errado.

 

E quanto ao instalador, procure em sites de downloads um programa chamado Inno Setup. Ele é fácil de utilizar, mas se tiver dúvidas poste.

[tiagocaus 1]

 

O problema amigo foi que eu não consegui entender como fazer, como no inicio tinha te falando tem muito tempo que não mexo eu esqueci tudinho... no que você me mandou eu consegui aprender, eu consigo aprender vendo. Amigo, por favor, você poderia estar fazendo essa parte tambem? para você isso é bem fácil... estarei voltando a fazer curso de VB no ano que vem para aprender tudo novamente... é que preciso muito fazer isso e entregar esse pequeno app, pode poderia me ajudar mais uma vez?

 

Sou muito grato por sua ajuda...

T+

[tiagocaus 1]

 

 

Olá Amigo,

Um coisa que reparei nesse App. é que quando eu executo, ele vai direito para o Systray, mas eu gostaria que quando for executado ele apareça na tela e so quando clicar no X ele va para o Systray.

Irei postar o Cod.

 

Dim baseURL As String
Private Sub Form_Load()
	baseURL = "http://teiasat.com.br/systray/"
	WebBrowser1.Navigate baseURL + "index.php"
End Sub


Private Sub Form_Unload(Cancel As Integer)
If TrayIcon1.Visible = False Then
	Cancel = True
	Me.Hide
	TrayIcon1.Visible = True
End If
End Sub



Private Sub SubABRIR_Click()
Me.Show
TrayIcon1.Visible = False
End Sub


Private Sub SubFECHAR_Click()
Unload Me
End Sub


Private Sub TrayIcon1_MouseDown(ByVal Button As Integer)
If Button = 2 Then
	PopupMenu menu1
End If
End Sub