ABRIR SITE...

FORMIGINHA 27/05/2005 15:57:19
#85518
como faço para quando clicar em um text q contem um site abrir o site?
[S32]
GUTO 27/05/2005 15:59:45
#85519
Shell("start iexplore www.uol.com.br") '»Â»abre o o programa internet explorer que abre o site do UOL.
GUTO 27/05/2005 16:01:07
#85521
alias formiga se vc quiser abrir outros programas toma ai

Dim AbrirArquivo as String

AbrirArquivo = Shell("c:windowsotepad.exe") '»Â»abre o programa notepad.
AbrirArquivo = Shell("c:windowscalc.exe") '»Â»abre o programa calculadora.
AbrirArquivo = Shell("start c:winntPescaria.bmp") '»Â»abre o arquivo Pescaria.bmp com o programa padrão.
AbrirArquivo = Shell("start iexplore www.uol.com.br") '»Â»abre o o programa internet explorer que abre o site do UOL.
AbrirArquivo = Shell("start mailto:seu_email@dominio.com.br") '»Â»abre o programa padrão p/ envio de mensagens de correio eletrà'nico que abre o site do UOL.

habilitando e desabilitando o mouse

Shell "Rundll.exe mouse,disable", vbNormalFocus
Para habilitar:
Shell "Rundll.exe mouse,anable", vbNormalFocus

'-------------------------------------------------------------------------------------------------------------------------------
'E por assim vai...escolha o diretório, programa e arquivos que se deseja executar e abrir.

Chamando telas específicas do Painel de Controle

Postada em 3/9/2003 por Sr.5 estrelas
--------------------------------------------------------------------------------
Para chamar qualquer tela do Painel de Controle não se usa necessariamente uma API,
mas sim se executa o programa rundll32.exe.
De acordo com os parà¢metros cada tela é chamada. Veja as chamadas das principais telas:

Para chamar a tela principal do Painel de Controle

Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)

Adicionar / Remover Programas
Instalar/Desinstalar
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus)

Instalação do Windows
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", vbNormalFocus)

Disco de Inicialização
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", vbNormalFocus)

Vídeo
Segundo Plano
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

Proteção de Tela
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

Aparência
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

Configuração
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)

Configurações Regionais
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)

Número
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", vbNormalFocus)

Moeda
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus)

Hora
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", vbNormalFocus)

Data
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", vbNormalFocus)

Joystick
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

Mouse
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)

Teclado
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)

Impressoras
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)

Fontes
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)

Mail e Fax
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl", vbNormalFocus)

Multimídia
Audio
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus)

Vídeo
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", vbNormalFocus)

MIDI
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", vbNormalFocus)

CD
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus)

Avançado
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", vbNormalFocus)

Som
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus)

Modem
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)

Rede
Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)

Senha
Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus)

Sistema
Geral
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus)

Gerenciador de Dispositivos
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus)

Perfis de Hardware
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", vbNormalFocus)

Performance
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus)

Opções de Acessibilidade
Teclado
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", vbNormalFocus)

Som
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", vbNormalFocus)

Exibir
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", vbNormalFocus)

Mouse
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", vbNormalFocus)

Geral
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", vbNormalFocus)

Assistente (Adicionar novo Hardware)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)

Data e Hora
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

DiskCopy
Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus

FORMIGINHA 27/05/2005 16:03:50
#85525
não quero isso guto, quero q abra o site q contem no text.
USUARIO.EXCLUIDOS 27/05/2005 16:03:54
#85526
Ou pode ser via API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub LoarUrl(sUrl as String)
ShellExecute Me.hwnd, vbNullString, sUrl, vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub txtUrl_Click()
If Trim(txtUrl.Text) <> Empty then
LoadUrl txtUrl.Text
End If
End Sub
TRUHILLO 27/05/2005 16:06:14
#85528
Dá uma olhada no link abaixo:

http://www.vbmania.com.br/vbmdetail.php?varID=2982
Além de ensinar como iniciar sites ainda tem exemplo de como manipular bancos de dados via código DAO.
FORMIGINHA 27/05/2005 16:45:18
#85546
deu erro no meu
GUTO 27/05/2005 16:56:53
#85549
erro na onde?]
FORMIGINHA 27/05/2005 17:04:33
#85554
no codigo que truhillo mandou./
FORMIGINHA 27/05/2005 17:55:56
#85564
pessoal é este codigo:

Shell "Explorer http://" & Text1

valew pela tentativa.
Tópico encerrado , respostas não são mais permitidas
Voltar