Temas

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

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

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

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

tengo esto para enumerar las ventanas abiertas
en el form

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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?

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?

pues eso alguien sabe como presionar un boton de otra aplicacion? tengo su hwnd class y caption? alguna idea?
salu2

alguien tiene idea de como cambiar la ip en un webbrowser o esconderla y mostrar otra?
salu2

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

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

weno eso como hago para cargar solamente un iframe de una pagina en un webbrowser
en este caso quiero cargar solamente la parte de arriba el frame top seria .. si alguien sabe gracias.
salu2

weno esa es mi pregunta el listbox se carga mientras el programa esta en ejecucion como hago yo con un timer para q vaya pasando todos los items osea esta 45 segs con uno va al de abajo y asi
alguna idea ?

wenas alguien tiene idea de como borrar las cookies de internet explorer 7? desde visual basic claro

wenas tengo un webbrowser y me gustaria aplicarle un proxy que cambie la ip cada 2 minutos por ejemplo alguien tiene un codigo asi o algun ejemplo?
gracias
pd: alguien sabe como borrar las cookies de internet explorer desde visual basic?

buenas como va..bueno en realidad lo que ando buscando es interaccionar un programa en vb con una pagina web
supongan tengo distintos usuarios en la pagina de login quiero que se pongan automaticamente el nick y la contraseña esta pagina al entrar pide tambien un codigo de vierificacion por lo que veo esto se debera ingresar manualmente estando en la pagina presionando 10 veces la tecla de arriba de blockmayus se llega al casillero username ahi mediante un sendkeys pondria un user y una pass que cargaria de un listbox despues un appactivate me llamaria para ingresar el codigo de verificacion
dentro del panel presionar la tecla tab 3 veces y bueno necesitaria ayuda para ver como hacer los sendkeys y eso

wenas me preguntaba como se puede hacer para abrir y cerrar puertos en visual basic desde ya muchas gracias
salu2

bueno quiero que se capte el nombre de la ventana y los vaya poniendo en un listbox pero que no aparezcan repetidos. lo de capturar el nombre de la ventana lo se hacer (getwindowstext) pero no se pasar al listbox y que no se repitan o sea que no figure un mismo dato dos veces.
salu2

bueno me preguntaba si se puede hacer que de un archivo echo en vb se desprenda otro con las caracteristicas que dimos en el primero, vi como editar un archivo en forma binaria pero para lo que voy a hacer me conviene mas esto si se puede
salu2

wenas , tengo una pregunta , como puedo hacer para que se realice una tarea en determinado horario, ya que el uso del timer es muy limitado ademas de que no me sirve para lo que necesito
salu2

bueno sigo con la idea del killer para el nod pero ahora un colega me paso info para excluir el disco c: del amon mediante cambiar unos valores en el registro,, quise volcarlo al vb pero no me funciona nose que estoy haciendo mal,, el post de donde sake la info es este
http://espavirus.com/foro/index.php?topic=506.0

este es el codigo que tengo

Código [Seleccionar] Expandir

Const REG_DWORD = 1
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret
    'Crea una nueva llave
    RegCreateKey hKey, strPath, Ret
    'salva el contenido de la llave
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
    'cierra la llave
    RegCloseKey Ret
End Sub

Private Sub Command1_Click()
Dim ***** As String

***** = Label4.Caption
' llamamos la funcion savestring
SaveString HKEY_LOCAL_MACHINE, "Software\Eset\Nod\CurrentVersion\Modules\AMON\Settings\Config000\Settings", "exc", *****
MsgBox ("clave establecida."), vbInformation
End
End Sub

Private Sub Command4_Click()
Dim strString As String

strString = Label1.Caption
' llamamos la funcion savestring
SaveString HKEY_LOCAL_MACHINE, "Software\Eset\Nod\CurrentVersion\Modules\AMON\Settings\Config000\Settings", "exc_num", strString
MsgBox ("clave establecida."), vbInformation
End
End Sub

Private Sub Form_Load()

End Sub
y aka les dejo una imagen

bueno estaba haciendo un killer para nod32 veo que tiene dos procesos nod32kui.exe y nod32krn.exe bueno el problema es que al matar nod32krn vuelve a iniciarse siempre alguien tiene alguna forma de matarlo definitivamente y que nose vuelva a abrir o otra forma de matar este av? desde ya muchas gracias
salu2

bueno me gustaria que cuando se ejecute mi programa aparezca un icono del mismo al lado(cerca) de la zona del reloj (bandeja de sistema creo..) desde ya muchas gracias
salu2

hola una pregunta queria saber como se le puede asignar una combinacion de teclas o una tecla a un command button.
salu2

hola queria saber como se puede pasar de rax a mp3 gracias