Mensajes

pero vos queres grabar un video de tu escritorio????, a como veo vas muy mal, lo que estas haciendo es guardar una captura en .jpg despues la lees con OPEN y la volves a guardar .AVI, vas muy mal osea estas renombrando el archivo y obio que no se te va a reproducir como un video

como para darte una guia lo primero que deberias hacer es ir guardando todas las capturas en .bmp por ejemplo Captura1.bmp, Captura2.bmp, Captura3.bmp
y despues busca por la web que hay modulos para combertir todas estas capturas en un .avi

mira este link

Saludos

mm me havia olviado que Cobein ya havia echo esto.

Saludos

y cual se supone que es el problema?

[Karcrack]

hola esta funcion es de Karcrack que es una alternativa a app.path y GetModuleFileName quizas valiendote de este ejemplo puedas hacer la inversa, pero tampoco doy fe que si asi fuera, tomara app.path diferente. seguramente Karcrack va a leer este post y te va a dar una mejor respuesta.

Código [Seleccionar] Expandir


Option Explicit
'---------------------------------------------------------------------------------------
' Module    : mGetMyPath
' Author    : Karcrack
' Now$      : 28/05/2009  22:01
' Used for? : Get our own path
' Reference : http://undocumented.ntinternals.net/UserMode/Undocumented%20Functions/NT%20Objects/Process/PEB.html
'             http://www.nirsoft.net/kernel_struct/vista/RTL_USER_PROCESS_PARAMETERS.html
'
' Thanks.   : ctlon -> For the links
'             Cobein & SqUeEzEr -> For the mem job (http://hackhound.org/forum/index.php?topic=16203.0)
'
'---------------------------------------------------------------------------------------

'USER32
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'MSVBVM60
Private Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Byte)

'Function Credits: Cobein & SqUeEzEr
Private Function RtlGetString(lAddr As Long) As String
    Dim i       As Long
    Dim b       As Byte
   
    Do
        Call GetMem1(lAddr + i * 2, b)
        i = i + 1
        If b = 0 Then Exit Do
        RtlGetString = RtlGetString & Chr$(b)
    Loop
End Function

Public Function GetMyPath() As String
    Dim lAddr           As Long
    Dim bvCode()        As Byte
   
    ReDim bvCode(0 To 14)
    'asm (
    ' mov eax, [FS:0x30]
    ' mov eax, [DS:eax+0x10]
    ' mov eax, [DS:eax+0x3C]
    ' ret 16
    ');
    bvCode(0) = &H64:    bvCode(1) = &HA1:    bvCode(2) = &H30:    bvCode(3) = &H0:     bvCode(4) = &H0:    bvCode(5) = &H0:     bvCode(6) = &H8B:    bvCode(7) = &H40:    bvCode(8) = &H10:    bvCode(9) = &H8B:   bvCode(10) = &H40:    bvCode(11) = &H3C:   bvCode(12) = &HC2:    bvCode(13) = &H10:    bvCode(14) = &H0
   
    'Get the Addr of our path saved in the PEB
    lAddr = CallWindowProc(VarPtr(bvCode(0)), 0&, 0&, 0&, 0&)
   
    If lAddr > 0 Then
        'Return the DATA
        GetMyPath = RtlGetString(lAddr)
    End If
End Function


Muchas Gracias a ambos por lo menos ya se por donde seguir buscando.

@Karcrack
Escalables == Fuente Bitmap

es algo asi como el antialias o por lo menos asi le llamo yo.

Saludos

Hola una consulta,quizas no tiene que ver mucho con vb pero es para aplicarlo, tengo una duda que significan los iconos que estan al lado de las fuente, cual es la relacion? en algunos programas me muestran todas "O" en otros todas "T" y tambien estan las "A" alguien sabe el significados de estos iconos??



Saludos

Como primer consejo te digo que veas este tutorial

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico6.htm#arreglo-de-controles

pero si no queres trabajar con index (matriz de controles) podes hacer un select case

Código (vb) [Seleccionar] Expandir


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
       Case vbKeyF1 '112
           Option1.Value = True
       Case vbKeyF2 '113
           Option2.Value = True
       Case vbKeyF3 '114
           Option3.Value = True
       Case vbKeyF4 '115
           Option4.Value = True
       Case vbKeyF5 '116
           Option5.Value = True
       Case vbKeyF6 '117
           Option6.Value = True
       Case vbKeyF7 '118
           Option7.Value = True
       Case vbKeyF8 '119
           Option8.Value = True
       Case vbKeyF9 '120
           Option9.Value = True
   End Select
End Sub

Hola si es como yo entiendo pone en tiempo de edicion en la propiedad del formulario KeyPreview = True

y despues suponiendo que tenes los OptionButton en index de 0 a 8 pondes el siguiente codigo en el formulario

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode >= 112 And KeyCode <= 120 Then
        Option1(KeyCode - 112).Value = True
    End If
End Sub




Saludos

no se que carajo sera Dioxis pero seguramente lee al final del .exe esos datos y como estas en el IDE de visual basic no exiteste tal ejecutable y no pudo leer el dato por lo tanto te da error en index 1 en la matriz Partes()

Saludos

Grande Coco!! , lo unico en el AlignRight   cuando llama a ImageList_Draw  hay que restar  mSelectionWidth - mIconSize - 4 por las dudas que el icono se mayor a 16

Saludos