Como podría esconder una pagina web

Iniciado por arrebato21, 27 Enero 2015, 19:44 PM

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

arrebato21

Saludos a todos.

A ver si me podéis echar una mano, como podría esconder una pagina web, es decir, ya tengo un bat preparado para que la web se abra a x segundos pero necesito que esa web este abierta de forma invisible desde el primer momento, que ni se vea al inicio y permanezca invisible hasta el apagado del pc. He probado con algún programa hide para windows pero no logro se esconda sin verse al iniciar(sin que se vea como inicia) ni la web ni el programa que la esconda.

Eleкtro

#1
Buenas, primero que nada:

1) Utiliza el foro adecuado para formular preguntas sobre CMD/Batch: http://foro.elhacker.net/scripting-b64.0/

2) Cuando formules una pregunta sobre programación, si dices tener un código, como mínimo publica el contenido de dicho código.

3) Especifica el navegador también, por Dios, que no somos adivinos.





Si no he entendido mal, ¿lo que quieres hacer es ejecutar un navegador (con una url específica) y ocultar la ventana de dicho navegador?,
en ese caso, en una herramienta tan simple como Batch no es posible realizar es tarea, no sin utilizar herramientas de terceros como CMDOW/NirCMD.

Normalmente podrías llevarlo a cabo de forma sencilla y natural usando VisualBasicScript:

Código (vb) [Seleccionar]
Option Explicit : Dim procFilePath, procArguments, procWindowStyle, procWaitReturn

procFilePath    = """" & "C:\Program Files\Google Chrome\Google Chrome.exe" & """"
procArguments   = """" & "http://foro.elhacker.net/"                        & """"
procWindowStyle = 0 ' Hides the window and activates another window.
procWaitReturn  = False

Call CreateObject("WScript.Shell"). _
Run(procFilePath & " " & procArguments, procWindowStyle, procWaitReturn)

Wscript.Quit(0)


El problema es que aplicaciones como Chrome o Firefox no soportan la modificación del estilo de ventana, en este caso mediante el método Run/ShellExecute para volver invisible la ventana, así que al igual que con Batch, otro lenguaje simple como es VBS tampoco te sirve para la tarea.

Debes recurrir a otro lenguaje que esté capacitado para dicha tarea, o bien puedes mezclar Batch+VBS+CMDOW/NirCMD para llevarlo a cabo de una forma más simple en nivel de conocimientos, pero también mucho más tediosa.

Los procesos de esos navegadores en cuestión son bastante problemáticos al respecto de esto, por lo que he leido hay mucha gente más o menos en tu misma situación (que aparecen en los resultados de Google xD), así que he decidido proporcionarte ayuda en profundidad.

Lo primero de todo es obtener el navegador por defecto registrado en el SO, luego iniciar el navegador, esperar a que cargue el formulario, obtener el puntero de la ventana principal, y por último ocultar la ventana (usando la API de Windows).

Pero hay un inconveniente en todo esto, ya que es necesario esperar a que la ventana se haya creado para que se defina el Handle y poder obtenerlo para así ocultar la ventana, es decir, que la ventana de firefox/chrome se debe mostrar si o si durante el tiempo necesario, que pueden ser apenas unos ínfimos ms (ni se notaría), o segundos, dependiendo del tiempo de respuesta del sistema.

Aparte hay que tener en cuenta muchos otros factores, como por ejemplo el aviso de restaurar sesion de Firefox que literalmente jodería esta metodología al no estar visible la ventana principal, o que la clave de registro que almacena el directorio absoluto al navegador por defecto haya sido eliminada por el usuario, etc, etc, etc...

En fin, te muestro un ejemplo de como se podria llevar a cabo, he escogido como lenguaje VB.Net al ser muy práctico, eficiente, para poder hacerlo de forma simplificada.

Aquí tienes la aplicación ya compilada junto al proyecto de VisualStudio:
https://www.mediafire.com/?9e5ixgz5ne6n8n8

Modo de empleo:
RunWebBrowserEx.exe "http://url" hide
o
RunWebBrowserEx.exe "http://url" show

Es una aplicación que usa tecnología WinForms, es decir, con interfáz gráfica, pero he omitido la interfáz para aceptar parámetros commandline y evitar que se muestre cualquier ventana del programa ;).
De todas formas solo es un ejemplo de aplicación, sin controles de errores, ya que bastante he hecho.

Este es el Core de la aplicación:
Código (vbnet) [Seleccionar]
       ' Get Default WebBrowser
       ' By Elektro
       '
       ''' <summary>
       ''' Gets the default web browser filepath.
       ''' </summary>
       ''' <returns>The default web browser filepath.</returns>
       Friend Shared Function GetDefaultWebBrowser() As String

           Dim regKey As RegistryKey = Nothing
           Dim regValue As String = String.Empty

           Try
               regKey = Registry.ClassesRoot.OpenSubKey("HTTP\Shell\Open\Command", writable:=False)
               Using regKey

                   regValue = regKey.GetValue(Nothing).ToString()
                   regValue = regValue.Substring(0, regValue.IndexOf(".exe", StringComparison.OrdinalIgnoreCase) + ".exe".Length).
                                       Trim({ControlChars.Quote})

               End Using

           Catch ex As Exception
               Throw

           Finally
               If regKey IsNot Nothing Then
                   regKey.Dispose()
               End If

           End Try

           Return regValue

       End Function

       ' Run Default WebBrowser
       ' By Elektro
       '
       ''' <summary>
       ''' Runs the specified url using the default registered web browser.
       ''' </summary>
       ''' <param name="url">The url to navigate.</param>
       ''' <param name="windowState">The target web browser its window state.</param>
       Friend Shared Sub RunDefaultWebBrowser(ByVal url As String,
                                              ByVal windowState As SetWindowState.WindowState)

           Dim browserHwnd As IntPtr = IntPtr.Zero
           Dim browserFileInfo As New FileInfo(WebBrowserTools.GetDefaultWebBrowser)
           Dim browserProcess As New Process With
                               {
                                   .StartInfo = New ProcessStartInfo With
                                               {
                                                   .FileName = browserFileInfo.FullName,
                                                   .Arguments = url,
                                                   .WindowStyle = ProcessWindowStyle.Minimized,
                                                   .CreateNoWindow = False
                                               }
                               }

           browserProcess.Start()
           browserProcess.WaitForExit(0)

           Do Until browserHwnd <> IntPtr.Zero
               browserHwnd = Process.GetProcessById(browserProcess.Id).MainWindowHandle
           Loop

           SetWindowState.SetWindowState(browserHwnd, windowState)

       End Sub


Plus el P/Invoking:

Código (vbnet) [Seleccionar]
' ***********************************************************************
' Author           : Elektro
' Last Modified On : 10-02-2014
' ***********************************************************************
' <copyright file="SetWindowState.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Usage Examples "

'Dim HWND As IntPtr = Process.GetProcessesByName("devenv").First.MainWindowHandle
'
'SetWindowState.SetWindowState(HWND, SetWindowState.WindowState.Hide)
'SetWindowState.SetWindowState("devenv", SetWindowState.WindowState.Restore, Recursivity:=False)

#End Region

#Region " Imports "

Imports System.Runtime.InteropServices

#End Region

Namespace Tools

   ''' <summary>
   ''' Sets the state of a window.
   ''' </summary>
   Public NotInheritable Class SetWindowState

#Region " P/Invoke "

       ''' <summary>
       ''' Platform Invocation methods (P/Invoke), access unmanaged code.
       ''' This class does not suppress stack walks for unmanaged code permission.
       ''' <see cref="System.Security.SuppressUnmanagedCodeSecurityAttribute"/>  must not be applied to this class.
       ''' This class is for methods that can be used anywhere because a stack walk will be performed.
       ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/ms182161.aspx
       ''' </summary>
       Protected NotInheritable Class NativeMethods

#Region " Methods "

           ''' <summary>
           ''' Retrieves a handle to the top-level window whose class name and window name match the specified strings.
           ''' This function does not search child windows.
           ''' This function does not perform a case-sensitive search.
           ''' To search child windows, beginning with a specified child window, use the FindWindowEx function.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633499%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="lpClassName">The class name.
           ''' If this parameter is NULL, it finds any window whose title matches the lpWindowName parameter.</param>
           ''' <param name="lpWindowName">The window name (the window's title).
           ''' If this parameter is NULL, all window names match.</param>
           ''' <returns>If the function succeeds, the return value is a handle to the window that has the specified class name and window name.
           ''' If the function fails, the return value is NULL.</returns>
           <DllImport("user32.dll", SetLastError:=False, CharSet:=CharSet.Auto, BestFitMapping:=False)>
           Friend Shared Function FindWindow(
                  ByVal lpClassName As String,
                  ByVal lpWindowName As String
           ) As IntPtr
           End Function

           ''' <summary>
           ''' Retrieves a handle to a window whose class name and window name match the specified strings.
           ''' The function searches child windows, beginning with the one following the specified child window.
           ''' This function does not perform a case-sensitive search.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633500%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="hwndParent">
           ''' A handle to the parent window whose child windows are to be searched.
           ''' If hwndParent is NULL, the function uses the desktop window as the parent window.
           ''' The function searches among windows that are child windows of the desktop.
           ''' </param>
           ''' <param name="hwndChildAfter">
           ''' A handle to a child window.
           ''' The search begins with the next child window in the Z order.
           ''' The child window must be a direct child window of hwndParent, not just a descendant window.
           ''' If hwndChildAfter is NULL, the search begins with the first child window of hwndParent.
           ''' </param>
           ''' <param name="strClassName">
           ''' The window class name.
           ''' </param>
           ''' <param name="strWindowName">
           ''' The window name (the window's title).
           ''' If this parameter is NULL, all window names match.
           ''' </param>
           ''' <returns>
           ''' If the function succeeds, the return value is a handle to the window that has the specified class and window names.
           ''' If the function fails, the return value is NULL.
           ''' </returns>
           <DllImport("User32.dll", SetLastError:=False, CharSet:=CharSet.Auto, BestFitMapping:=False)>
           Friend Shared Function FindWindowEx(
                  ByVal hwndParent As IntPtr,
                  ByVal hwndChildAfter As IntPtr,
                  ByVal strClassName As String,
                  ByVal strWindowName As String
           ) As IntPtr
           End Function

           ''' <summary>
           ''' Retrieves the identifier of the thread that created the specified window
           ''' and, optionally, the identifier of the process that created the window.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633522%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="hWnd">A handle to the window.</param>
           ''' <param name="ProcessId">
           ''' A pointer to a variable that receives the process identifier.
           ''' If this parameter is not NULL, GetWindowThreadProcessId copies the identifier of the process to the variable;
           ''' otherwise, it does not.
           ''' </param>
           ''' <returns>The identifier of the thread that created the window.</returns>
           <DllImport("user32.dll")>
           Friend Shared Function GetWindowThreadProcessId(
                  ByVal hWnd As IntPtr,
                  ByRef processId As Integer
           ) As Integer
           End Function

           ''' <summary>
           ''' Sets the specified window's show state.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="hwnd">A handle to the window.</param>
           ''' <param name="nCmdShow">Controls how the window is to be shown.</param>
           ''' <returns><c>true</c> if the function succeeds, <c>false</c> otherwise.</returns>
           <DllImport("User32", SetLastError:=False)>
           Friend Shared Function ShowWindow(
                  ByVal hwnd As IntPtr,
                  ByVal nCmdShow As WindowState
           ) As Boolean
           End Function

#End Region

       End Class

#End Region

#Region " Enumerations "

       ''' <summary>
       ''' Controls how the window is to be shown.
       ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx
       ''' </summary>
       Friend Enum WindowState As Integer

           ''' <summary>
           ''' Hides the window and activates another window.
           ''' </summary>
           Hide = 0I

           ''' <summary>
           ''' Activates the window and displays it in its current size and position.
           ''' </summary>
           Show = 5I

           ''' <summary>
           ''' Activates and displays the window.
           ''' If the window is minimized or maximized, the system restores it to its original size and position.
           ''' An application should specify this flag when restoring a minimized window.
           ''' </summary>
           Restore = 9I

       End Enum

#End Region

#Region " Public Methods "

       ''' <summary>
       ''' Set the state of a window by an HWND.
       ''' </summary>
       ''' <param name="WindowHandle">A handle to the window.</param>
       ''' <param name="WindowState">The state of the window.</param>
       ''' <returns><c>true</c> if the function succeeds, <c>false</c> otherwise.</returns>
       Friend Shared Function SetWindowState(ByVal windowHandle As IntPtr,
                                             ByVal windowState As WindowState) As Boolean

           Return NativeMethods.ShowWindow(windowHandle, windowState)

       End Function

#End Region

   End Class

End Namespace


Saludos








arrebato21

Primero y ante todo perdona por no ponerlo en la sección correcta y no especificar mas.

Segunda, muchas gracias por tu ayuda lo he puesto en marcha con Internet explorer y gracias a tu ayuda y utilizando el código VisualBasicScript que me as facilitado.

Ahora como podría ponerlo para que inicie al encender windows, por ejemplo me funciona al colocarlo en la carpeta inicio pero claro lo que quiero ademas es que no se vea al ir al inicio de todos los programas en esa carpeta. quiero que este invisible.

Saludos.

Eleкtro

Me alegro de que te haya servido, pero aclárame una duda, ¿el simple script de VBS entonces SÍ que funciona con la ventana de IE?, estaría bien saberlo porque yo lo probé en dos navegadores menos en el IE, ahora siento que escribí todo ese otro largo código en VB.Net para nada, jaja, pero no hay problema :P.

Cita de: arrebato21 en  1 Febrero 2015, 21:53 PMAhora como podría ponerlo para que inicie al encender windows, por ejemplo me funciona al colocarlo en la carpeta inicio pero claro lo que quiero ademas es que no se vea al ir al inicio de todos los programas en esa carpeta. quiero que este invisible.

Para conseguir lo más parecido a una verdadera "invisibilidad" se requieren conocimientos de programación para el uso de técnicas Stealth, por ejemplo, si se quiere ocultar un proceso en el administrador de tareas de Widnows (TaskManager) de "X" versión de Windows eso puede resultar una tarea muy laboriosa a nivel avanzado, cómo también es para otros tipos de invisibilidad la creación de servicios de Windows, Hooking, etc.

Si lo único que quieres es que no aparezca en la carpeta "Inicio" y te conformas con sacarlo de dicha carpeta, entonces puede añadir una clave en la sección Run del registro de Windows:

Startup.reg
Código (ini) [Seleccionar]
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"*Título"="C:\\Carpeta\\MiPrograma.exe"


Nota 1: El asterísco (*) indica que el programa se debe iniciar también al reiniciar el PC en modo seguro, si quieres evitar que el programa se inicie en modo seguro entonces no escribas el asterisco al principio del título.
Nota 2: La clave será accesible/visible desde cualquier editor del registro de Windows como el propio Regedit (obviamente), así cómo también por programas que permitan administrar los programas que se inician junto a Windows (ej: CCleaner)

También puedes utilizar mi aplicación File2Startup para añadir un programa al inicio de Windows de forma sencilla:
[SOURCE] File 2 startup v1.1

Cita de: File2Startup by Elektro

Saludos








arrebato21

#4
Con IE funciona de lujo y para esconder con tu aplicación, también muy bien. Muchas gracias.

Saludos.