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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Temas
Páginas: [1] 2 3
1  Informática / Hardware / me falta chapita del mother que ppuedo inventar en: 13 Agosto 2014, 02:12 am
hola que bueno como dice el titulo estoy armando una pc pero commpre un mother usado que me vino  sin la chapita y queria saber si alguien lo ha echo como puedo fabricar un sustituto ya que es algo muy especifico  como para conseuirlo
2  Sistemas Operativos / Windows / No bootea cd de windows en: 20 Septiembre 2011, 23:35 pm
Hola que tal  tengo un disco rigido sata de 320 le pongo en la bios para que bootee del cd primero es un xp desatendido pero queda trabado en boot from cd y queda ahi
nose pq sera desde ya gracias
3  Programación / Programación Visual Basic / sistema ocr asprise en: 19 Septiembre 2007, 23:21 pm
weno hasta hace poco estaba usando un sistema ocr (optical character recognition) en sintesis lee una imagen como era una version free salia un mensaje de comprarlo gracias a la gente del foro lo hice desaparecer a este mensaje pero ahora despues de usarlo muchas veces me salto un msgbox q dice trial expires =S la cuestion es que son 3 dlls alguien tiene idea de alguna forma de seguirla usando o de modificar las dlls o algun otro ocx dll o algo para leer imagenes?
les dejo la pag donde estan los ejemplos de asprise para visual basic
http://www.asprise.com/product/ocr/download.php?lang=vb
salu2 y gracias
4  Programación / Programación Visual Basic / La variable de tipo Object o la variable de bloque With no está establecida en: 15 Septiembre 2007, 17:30 pm
tengo este error que me aparece a cada rato con un webbrowser en la propiedad documentcomplete le asigne una funcion para bajar una imagen a que se puede deber este error he buscado y no consigo solucionarlo gracias!
salu2
5  Programación / Programación Visual Basic / si una ventana esta abierta devolver el hwnd en: 8 Septiembre 2007, 04:24 am
tengo esto para enumerar las ventanas abiertas
en el form
Código:
Option Explicit

Private Sub Command1_Click()
   
    Erase Valores
    nProcesos = 0
    'Llama a Enumwindows para listar las ventanas y obtener la información
    EnumWindows AddressOf Listar_Ventanas, 0
   
    cargar
End Sub


Sub cargar()

Dim i As Integer
Dim LItem As ListItem 'variable para los subitems del listview


    ListView1.ListItems.Clear
   
    For i = 1 To nProcesos
        With Valores(i)
             
             If .captionWin <> "Program Manager" And .captionWin <> vbNullString _
                                        And .captionWin <> "Project1" Then
             ' Si la ventana es visible
             If IsWindowVisible(.HwndWin) Then
                'Obtiene el ícono de la ventana
                Call Obtener_Icono(.HwndWin)
               
                'Agrega el Item y subitems al ListView
                Set LItem = ListView1.ListItems.Add(, , .captionWin, , _
                                        ImageList1.ListImages.Count)
                   
                    LItem.SubItems(1) = .HwndWin
                    LItem.SubItems(2) = .Estado
                    LItem.SubItems(3) = .Left
                    LItem.SubItems(4) = .Right
                    LItem.SubItems(5) = .Top
                    LItem.SubItems(6) = .Bottom
             End If
             End If
           
        End With
    Next



End Sub

'Sub que obtiene el ícono de la ventana y luego lo coloca en el Listview
Private Sub Obtener_Icono(h As Long)
'Variable Rect para usar con el API setRect y Drawcaption
Dim rec As RECT

    With Picture1
        'Limpia el Picturebox
        .Cls
        .Picture = Nothing
       
        Call SetRect(rec, 5, 7, 10, 10)
       
        'Dibuja el icono en el picture pasandole al api el _
        hwnd de la ventana
        Call DrawCaption(h, .hDC, rec, 4)
       
        .Refresh
       
        Set .Picture = Picture1.Image

    End With
    ' Almacena la imagen en el ImageList
    ImageList1.ListImages.Add , , Picture:=Picture1
   
    ' Si el ImageList no está inicializado  se enlaza al ListView
    If ListView1.SmallIcons Is Nothing Then
        Set ListView1.SmallIcons = ImageList1
    End If
End Sub


Private Sub Form_Load()
With ListView1
     
     'vista de reporte
     .View = lvwReport
     'Columnas
     .ColumnHeaders.Add , , " Título de la ventana "
     .ColumnHeaders.Add , , " HWND "
     .ColumnHeaders.Add , , " Estado "
     .ColumnHeaders.Add , , " Left "
     .ColumnHeaders.Add , , " Right "
     .ColumnHeaders.Add , , " Top "
     .ColumnHeaders.Add , , " Bottom "
     .ColumnHeaders(1).Width = 4000
     .ColumnHeaders(2).Width = 1000
     .ColumnHeaders(3).Width = 1200
     .ColumnHeaders(4).Width = 700
     .ColumnHeaders(5).Width = 800
     .ColumnHeaders(6).Width = 800
     .ColumnHeaders(7).Width = 800
     
End With

'Propiedades para el Picture invisible en el cual se dibuja _
 el icono de la ventana mediante el Api DrawCaption
With Picture1
    .ScaleMode = vbPixels
    .Width = 260
    .Height = 260
    .AutoRedraw = True
    .BorderStyle = 0
    .BackColor = ListView1.BackColor
    .Visible = False
   
End With

Me.Caption = " Información de ventanas de windows "
Command1.Caption = " Listar ventanas "

End Sub

en un modulo

Código:
Option Explicit

'Udt
'##############
 Type ProcData
    HwndWin As Long
    captionWin As String
    Estado As String
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type


Type POINTAPI
    x As Long
    y As Long
End Type

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Type WINDOWPLACEMENT
    length As Long
    flags As Long
    showCmd As Long
    ptMinPosition As POINTAPI
    ptMaxPosition As POINTAPI
    rcNormalPosition As RECT
End Type
 
'Declaraciones Api
'#################
 
 Declare Function DrawCaption Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long, _
                                        pcRect As RECT, ByVal un As Long) As Long
 Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 _
                                As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
 Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
 
 Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Any, ByVal _
                                                        lParam As Long) As Long
 Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As _
                                                            WINDOWPLACEMENT) As Long
 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
                                    (ByVal hwnd As Long, ByVal lpString As String, _
                                                            ByVal cch As Long) As Long

'Variables
'##########

Public Valores() As ProcData
Public nProcesos As Integer



'Función que enumera las ventanas de windows

Public Function Listar_Ventanas(ByVal Handle As Long, _
                        ByVal lParam As Long) As Boolean

Dim infoWin As WINDOWPLACEMENT

Dim buffer As String * 256
Dim l As Long

    nProcesos = nProcesos + 1
    'redimensiona el vector
    ReDim Preserve Valores(1 To nProcesos)
   
    With Valores(nProcesos)
        .HwndWin = Handle

        ' Recupera el título de la ventana
        l = GetWindowText(Handle, buffer, Len(buffer))
        'Remplaza los Nulos
        .captionWin = Replace(buffer, Chr(0), vbNullString)
       
        infoWin.length = Len(infoWin)
       
        Call GetWindowPlacement(Handle, infoWin)
       
        'Guarda el estado de la ventana
        Select Case infoWin.showCmd
            Case 1
                .Estado = "Normal"
            Case 2
                .Estado = "Minimizado"
            Case 3
                .Estado = "Maximizado"
        End Select
       
       
                 'Guarda la posición de la ventana
                .Left = infoWin.rcNormalPosition.Left
                .Top = infoWin.rcNormalPosition.Top
                .Right = infoWin.rcNormalPosition.Right
                .Bottom = infoWin.rcNormalPosition.Bottom
    End With
   
    ' Continúa buscando las demás ventanas
    Listar_Ventanas = 1
End Function

lo que quiero hacer es si determinada ventana con cierto caption esta entre las ventanas esas que me de su hwnd en un textbox como se haria esto?
6  Programación / Programación Visual Basic / Deshabilitar carga de imagenes en webbrowser en: 1 Septiembre 2007, 15:28 pm
una pregunta alguien sabe como deshabilitar la carga de imagenes , flash ,etc que solo cargue texto?
esto se puede hacer desde internet explorer opciones-> avanzadas..
algun codigo o idea?
7  Programación / Programación Visual Basic / presionar boton de aplicacion ajena sabiendo su hwnd clase y caption en: 18 Agosto 2007, 17:09 pm
pues eso alguien sabe como presionar un boton de otra aplicacion? tengo su hwnd class y caption? alguna idea?
salu2
8  Programación / Programación Visual Basic / proxy en webbrowser en: 15 Agosto 2007, 18:12 pm
alguien tiene idea de como cambiar la ip en un webbrowser o esconderla y mostrar otra?
salu2
9  Programación / Programación Visual Basic / for i variable no definida en: 12 Agosto 2007, 18:23 pm
una pregunta estoy usando un for i y en tiempo  de ejecucion me salta el error variable no definida es por el option explicit pero lo necesito de que tipo la tendria q que declarar
gracias
10  Programación / Programación Visual Basic / Determinar si una imagen se cargo en un webbrowser en: 10 Agosto 2007, 02:31 am
weno eso como se puede determinar si una imagen se cargo en un webbrowser lo ideal seria un timer con un condicional pero no conozco una funcion que haga eso alguien tiene alguna idea?
salu2
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines