Mensajes

Bueno esto no es nada super fancy es solamente un modulito para leer la linea de comandos de un proceso externo puede ser util para algun tipo de SPY++ o algo asi supongo.
Espero que les guste

Nota: si el proceso se inicio sin parametros en la linea de comandos solamente va a devolver la ruta del exe

http://www.classicvisualbasic.com/codigos/read-command-line/index.php

mirate esto a ver si te sirve, la verdad no lo descargue pero parece que es lo que buscas.

http://www.planetsourcecode.com/vb/scripts/
ShowCode.asp?txtCodeId=65030&lngWId=1

Me parece que la forma correcta de hacerlo es usando GetClientRect, por que de la otra manera nunca vas a saber el tamaño del non client area asignado pr el tema de windows.

JAJAJAJ la verdad el tutorial no vale nada es de terror, pero bueno gracias por el aporte a alguno seguramente le va a interesar.

Alguna version de windows si no me equivoco usaba SetDeviceGammaRamp para hacerlo.

Fijate que el nombre del recurso y la sección esten bien

Tenes que hacer referencia al formulario donde declaraste la variable.

Ej: miForm.miVar

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Function ToBinary(lnum As Long) As String
    Dim b(3) As Byte
   
    CopyMemory b(0), lnum, &H4
    ToBinary = StrConv(b, vbUnicode)
End Function

Function FromBinary(strmsg As String) As Long
    Dim b() As Byte
   
    b = StrConv(strmsg, vbFromUnicode)
    CopyMemory FromBinary, b(0), &H4
End Function

Private Sub Form_Load()

    Debug.Print FromBinary(ToBinary(96412234))

End Sub

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Sub Form_Load()
    Dim b(3) As Byte
    Dim lNum As Long

    lNum = 1562036412
    CopyMemory b(0), lNum, &H4

    Dim i As Long

    For i = 0 To 3: Debug.Print b(i);: Next

    lNum = 0
    CopyMemory lNum, b(0), &H4

    Debug.Print lNum

End Sub

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Sub Form_Load()
    Dim b(3) As Byte
    Dim lNum As Long
   
    lNum = 1562036412
    CopyMemory b(0), lNum, &H4
   
    Dim i As Long
   
    For i = 0 To 3: Debug.Print b(i);: Next
   
End Sub