elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6
1  Programación / .NET (C#, VB.NET, ASP) / Oculatr ScrollBar Horizontal en: 14 Abril 2015, 04:18 am
Buenas, les comento tengo mi webbrowser y necesito ocultar el scroll horizontal, o ocultar todos y mostrar el vertical.
Hasta el momento intente con:

Código:
WebBrowser1.ScrollBarsEnabled = False
WebBrowser1.Document.Body.Style = "overflow-y:visible"

ó

Código:
WebBrowser1.ScrollBarsEnabled = True
WebBrowser1.Document.Body.Style = "overflow-x:hidden"

y a la verdad que nada me funciona!!
alguna idea???
2  Programación / Programación Visual Basic / Re: WebBrowser en: 12 Marzo 2015, 03:56 am
Vamos gente una manito... una idea...
3  Programación / Programación Visual Basic / WebBrowser en: 8 Marzo 2015, 03:18 am
Buenas tardes,

quería saber si alguno me puede guiar en como mostrar parte de una web en mi webbrowser, es decir evitar mostrar todo el contenido de la web excepto lo que yo quiera.
Ej: el traductor de google, en ves de mostrar todo, mostrar solo lo que esta dentro de la etiqueta "div" con id="gt-text-c".
Espero haberme expresado con claridad... cosa difícil a veces...
Gracias.
4  Programación / Programación Visual Basic / Re: Utilizar función ShowInTaskbar con firefox en: 3 Noviembre 2014, 10:22 am
buenas, te cuento que me sale un error en está linea:

Código:
SetWindowLong hwndFireFox, GWL_EXSTYLE, GetWindowLong(hwndFireFox, GWL_EXSTYLE) And Not WS_EX_APPWINDOW

que dice:

"Una llamada a la función PInvoke 'Neo!Neo.Form1::GetWindowLong' impidió la correspondencia de la pila. Es posible que la razón sea que la firma PInvoke administrada no coincida con la firma de destino no administrada. Compruebe que la convención y los parámetros de llamada de la firma PInvoke coinciden con la firma no administrada de destino."

algo que observo en mi código pero que al modificarlo sigo con el mismo problema es como tengo definidas algunas de las funciones:

Código:
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Const WS_EX_APPWINDOW As Long = &H40000
    Private Const GWL_EXSTYLE As Long = -20
    <DllImport("user32.dll", EntryPoint:="FindWindowExW")> _
    Private Shared Function FindWindowExW(ByVal hwndParent As System.IntPtr, ByVal hwndChildAfter As System.IntPtr, <InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal lpszClass As String, <InAttribute(), MarshalAs(UnmanagedType.LPTStr)> ByVal lpszWindow As String) As System.IntPtr
    End Function

    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim Width As Integer = My.Computer.Screen.Bounds.Width
        Dim Height As Integer = My.Computer.Screen.Bounds.Height
        While Not visible_
            Dim hWnd As IntPtr = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "MozillaWindowClass", Nothing)
            While Not hWnd.Equals(IntPtr.Zero)
                Dim title As New System.Text.StringBuilder(256)
                GetWindowTextW(hWnd, title, 256)
                'If title.ToString.Contains("NeoBux") Then
                MoveWindow(hWnd, Width, Height, Width, Height, True)
                'End If
                hWnd = FindWindowExW(IntPtr.Zero, hWnd, "MozillaWindowClass", Nothing)
                SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) And Not WS_EX_APPWINDOW)

            End While
           
        End While
        visible_ = False
    End Sub

tanto  SetWindowLong como GetWindowLong toman un dato de tipo Long mientras que yo como lo tengo definido le paso un  IntPtr
5  Programación / Programación Visual Basic / Re: Utilizar función ShowInTaskbar con firefox en: 2 Noviembre 2014, 02:32 am
Gracias por responder, voy a probar la primera solución, la segunda que me planteas no por que programa esta constantemente activando el navegador por lo que nunca lo va a ocultar, en cambio lo que hice fue cambiarle la posición.
Por eso lo único que me restaría hacer para que el usuario no vea nada es quitar el icono de la ventana de la barra de tareas.
Lo pruebo y te comento!
6  Programación / Bases de Datos / Consulta y Subconsulta SQL SERVER en: 31 Octubre 2014, 22:19 pm
Buenas estoy teniendo problemas para hacer una simple consulta con una sub consulta,
y no logro llegar al resultado... me quiero matar con algo tan boludo.. disculpen!!

El ejercicio me pide:
Mostrar para los países de Europa con más de 4 divisiones políticas, el que tenga más hoteles 5 estrellas.

tengo las siguientes tablas:
Código:
continentes(continentesId, continenteNombre)
paises(paisId, paisNombre, tld, prefijoTelefonico, continenteId)
divisionesPoliticas(paisId, dpId, dpNombre, zonaHoraria)
hoteles(hotelId, hotelNombre, estrellas, latitud, longitud, paisId, dpId, ciudadId)

Hice la siguiente consulta, pero no me sirvió de nada!!
Código:
SELECT P.paisNombre
FROM paises P, continentes C
WHERE C.continenteNombre = 'Europa'
AND C.continenteId = P.continenteId
AND 4 < ( SELECT COUNT(*)
  FROM divisionesPoliticas DP
  WHERE P.paisId = DP.paisId )
GROUP BY P.paisNombre  
HAVING COUNT(*) >= ALL ( SELECT COUNT(*)
  FROM hoteles H
      WHERE H.estrellas = 5
      GROUP BY H.paisId)

El que me pueda orientar se lo agradezco!!
7  Programación / Programación Visual Basic / Re: Utilizar función ShowInTaskbar con firefox en: 27 Octubre 2014, 10:24 am
no de momento no ando en esas cosas!! jaja
Es por una propuesta de un amigo con la PTC Neobux, desde ahí estoy mejorando un autoclick muy casero...
funciona a través de firefox, controlado por ruby y con una mínima interfaz en vb.net.
Lo que estoy tratando de hacer con esto que al usuario no le moleste la ventana o ventanas que se abran del navegador, sin suerte alguna!!
8  Programación / Programación Visual Basic / Utilizar función ShowInTaskbar con firefox en: 27 Octubre 2014, 05:10 am
Bueno la idea es tratar de ocultar el icono de firefox de la barra de tareas.
Si fuera un form que estuviese ejecutando usaría el siguiente cód:
Código:
Me.ShowInTaskbar = False
Pero o me doy cuanta como usarlo cuando tengo que obtener una ventana, en mi caso una del navegador Firefox.
Espero que me pudan dar una mano!! gracias
9  Programación / Programación Visual Basic / Re: Función MoveWindow al abrir aplicación "firefox" en: 27 Octubre 2014, 05:05 am
les quería comentar que al final lo termine solucionando con un proceso asincrónico.
les dejo parte del código:
Código:

Private Sub HideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HideToolStripMenuItem.Click
        Dim Width As Integer = My.Computer.Screen.Bounds.Width
        Dim Height As Integer = My.Computer.Screen.Bounds.Height
        Dim hWnd As IntPtr = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "MozillaWindowClass", Nothing)
        While Not hWnd.Equals(IntPtr.Zero)
            Dim title As New System.Text.StringBuilder(256)
            GetWindowTextW(hWnd, title, 256)
            'ListBox1.Items.Add(title.ToString)
            If title.ToString.Contains("NeoBux") Then
                MoveWindow(hWnd, Width, Height, Width, Height, True)
            End If
            hWnd = FindWindowExW(IntPtr.Zero, hWnd, "MozillaWindowClass", Nothing)
        End While
        Try
            BackgroundWorker1.RunWorkerAsync()
        Catch ex As Exception
            If BackgroundWorker1.WorkerSupportsCancellation Then
                BackgroundWorker1.CancelAsync()
            End If
        End Try
        For Each item As ToolStripItem In Me.ContextMenuStrip1.Items
            If item.Text = "Hide" Then
                item.Visible = False
                ctrh = item
            End If
            If item.Text = "Show" Then
                item.Visible = True
            End If
        Next
    End Sub
    Private Sub ShowToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ShowToolStripMenuItem.Click
        Dim hWnd As IntPtr = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "MozillaWindowClass", Nothing)
        For Each item As ToolStripItem In Me.ContextMenuStrip1.Items
            If item.Text = "Show" Then
                item.Visible = False
                ctrh.Visible = True
                visible_ = True
                lx = 0
                ly = 0
            End If
        Next
        While Not hWnd.Equals(IntPtr.Zero)
            Dim title As New System.Text.StringBuilder(256)
            GetWindowTextW(hWnd, title, 256)
            If title.ToString.Contains("NeoBux") Then
                MoveWindow(hWnd, lx, ly, 512, 380, True)
                If lx = 0 Then
                    lx = 512
                ElseIf lx = 512 Then
                    lx = 0
                    ly += 380
                End If
            End If
            hWnd = FindWindowExW(IntPtr.Zero, hWnd, "MozillaWindowClass", Nothing)
        End While
        If BackgroundWorker1.IsBusy Then
            If BackgroundWorker1.WorkerSupportsCancellation Then
                BackgroundWorker1.CancelAsync()
            End If
        End If

    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim Width As Integer = My.Computer.Screen.Bounds.Width
        Dim Height As Integer = My.Computer.Screen.Bounds.Height
        While Not visible_
            Dim hWnd As IntPtr = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "MozillaWindowClass", Nothing)
            While Not hWnd.Equals(IntPtr.Zero)
                Dim title As New System.Text.StringBuilder(256)
                GetWindowTextW(hWnd, title, 256)
                'ListBox1.Items.Add(title.ToString)
                If title.ToString.Contains("NeoBux") Then
                    MoveWindow(hWnd, Width, Height, Width, Height, True)
                End If
                hWnd = FindWindowExW(IntPtr.Zero, hWnd, "MozillaWindowClass", Nothing)
            End While
        End While
        visible_ = False
    End Sub
End Class
10  Programación / Programación Visual Basic / Función MoveWindow al abrir aplicación "firefox" en: 26 Octubre 2014, 08:53 am
Buenas, en un tema anterior pedí ayuda a como ocultar una ventana de firefox a ese tema se le encontró solución pero no me sirvió para lo que yo necesitaba ya que cada ves que una aplicación externa utilizaba el navegador este se activaba y se mostraba de todas formas, por lo que el ShowWindow no me sirvió!.
Como solución utilicé el MoveWindow para mover el navegador a un puto el cual el usuario no pudiera hacer uso del mismo pero me encontré con un nuevo problema, cuando la aplicación que hace uso del navegador hace click en algún link, se abre una nueva ventana  en un punto que es visible para el usuario.
Hay alguna forma, algún método para que este si se abre, que aparezca en la posición de la primera pantalla del navegador???

Pensé en los procesos sincrónicos y siempre estar preguntando por los procesos de "firefox" para estar moviendo sus respectivas pantallas, pero no lo veo algo muy practico.  
Páginas: [1] 2 3 4 5 6
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines