ABRINDO PAGINA DE INTERNET

USUARIO.EXCLUIDOS 26/03/2004 01:55:22
#17096
bom meu amigos.. vou direto ao assunto.. estou usando o segundo codigo pra abrir uma pagina da internetr pelo vb:

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
Private Const conSwNormal = 1

Private Sub Command1_Click()
call ShellExecute (hwnd, "open", "http://www.vbmania.com.br", vbNullString, vbNullString, conSwNormal)
End Sub

soh que tem um problema... ele pega uma pagina jah aberta do navegador e abre a pagina por cima dakela... gostaria que ele abrisse uma nova janela...por favor me ajudem..
EDES 26/03/2004 10:31:39
#17138 Resposta escolhida 

Begin VB.Form Form1 
   Caption         =   "Internet Explorer Via VB"
   ClientHeight    =   885
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4125
   LinkTopic       =   "Form1"
   ScaleHeight     =   885
   ScaleWidth      =   4125
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdligacao 
      Caption         =   "Conectar"
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   480
      Width           =   4095
   End
   Begin VB.TextBox ligacao 
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Text            =   "http://"
      Top             =   0
      Width           =   4095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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

Private Sub cmdligacao_Click()
ShellExecute 0&, vbNullString, ligacao.Text, vbNullString, _
vbNullString, SW_SHOWNORMAL

End Sub
EDES 26/03/2004 10:33:46
#17140
OU



text1.text = "http://www.edes.rg3.net

Call ShellExecute(Me.hwnd, vbNullString, Text1.Text, vbNullString, vbNullString, 0&)
Tópico encerrado , respostas não são mais permitidas
Voltar