IExplorer oculto en VB

Iniciado por whiskises, 1 Agosto 2005, 08:10 AM

0 Miembros y 1 Visitante están viendo este tema.

whiskises

Hola estuve buscando en el foro y no encontre exactamente lo que buscaba,aver si alguien me lo puede solucionar: Se puede desde un programa en VB ejecutar el Iexplorer de forma oculta?¿Cual seria el codigo?

- n0sEcReT -

Private Sub Form_Load()
Shell "C:\Windows\Notepad.exe", vbHide
End Sub

De esta forma se ejecutara el Notepad (Bloc de Notas) oculto

;)




- n0sEcReT -



Te pongo el codigo completo ,porque veo que por tu pregunta todavia eres novato en VB amigo  ;)

Private Sub Form_Load()
Shell "C:\Archivos de programa\Internet Explorer\IEXPLORE.exe", vbHide
End Sub

De esa forma al ejecutarse la aplicacion , tambien se ejecutara el Internet Explorer pero de forma oculta , si quieres asegurarte , preciona  Ctrl + Alt + Supr y veras el proceso IEXPLORE.EXE .  ;)

Salu2 ! amiguito  :)



Xpeed

#3
sin enbargo para que ejecutes una web determinada, puedes hacerlo con api's

algo asi como:

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
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
Public Enum T_WindowStyle
    Maximized = 3
    Normal = 1
    ShowOnly = 5
End Enum
Public Sub GoToInternet(Parent As Form, URL As String, WindowStyle As T_WindowStyle)
    ShellExecute Parent.hwnd, "Open", URL, "", "", WindowStyle
End Sub


asi para hacer la peticion de la web que deseas simplemente lo haces con la instruccion GoTointernet que hemos declarado


GoToInternet Me, "aki la web", Normal


un saludo.

- n0sEcReT -

Para hacer lo mismo que explico $P€€D , pero mas simple seria asi :


Private Sub Form_Load()
Shell "C:\Archivos de programa\Internet Explorer\IEXPLORE.exe www.elhacker.net", vbHide
End Sub

Donde dice www.elhacker.net , seria la Web que queres abrir  ;)

Salu2 ! :)



- n0sEcReT -

Perdon me olvide usar la etiquetas de codigo  ::)  ;D

Private Sub Form_Load()
Shell "C:\Archivos de programa\Internet Explorer\IEXPLORE.exe www.elhacker.net", vbHide
End Sub

'Donde dice www.elhacker.net , seria la Web que queres abrir



whiskises

Van de lujo, ;D ;D ;D...ahora me veis.. ::).ahora no me veis...
¡¡¡¡sois la caña¡¡¡ Thanks.