cast parametro null

[neo_from_cs_matrix]

en c esto es

Código [Seleccionar] Expandir

AdjustTokenPrivileges(hToken, 0, tkp, 0, (TOKEN_PRIVILEGES) 0, 0)

necesito en vb como hacerlo, osea esta linea es el problema con el parametro 5

Código [Seleccionar] Expandir

Call AdjustTokenPrivileges(hToken, 0, tkp, 0, 0, 0)

:/

[MCKSys Argentina]

Segun: http://msdn.microsoft.com/en-us/library/windows/desktop/aa375202(v=vs.85).aspx

Código [Seleccionar] Expandir


BOOL WINAPI AdjustTokenPrivileges(
  __in       HANDLE TokenHandle,
  __in       BOOL DisableAllPrivileges,
  __in_opt   PTOKEN_PRIVILEGES NewState,
  __in       DWORD BufferLength,
  __out_opt  PTOKEN_PRIVILEGES PreviousState,
  __out_opt  PDWORD ReturnLength
);


Como ves, PreviousState es un puntero a una estructura TOKEN_PRIVILEGES. Como es de entrada/salida, no puedes pasar 0. Lo que puedes hacer es llenar un estructura con 0 o nulls y pasarsela a la API.

Aunque la MSDN dice que SI se puede pasar null... es raro 

[raul338]

es que en realidad es depende de como este declarada la API, si el ultimo parametro es ByRef... estas jodido x'D

Tenes que poner como ByVal ReturnLength As Long, Si lo llamas en otras ocasiones con el tipo de datos, tenes que pasarlos usando VarPtr

[BlackZeroX]

.
Si declaras la API como en la MSDN tendrías que usar así los parámetros, ¿como tienes declarada la API?. Todo depende de la declaración API...

Código (vb) [Seleccionar] Expandir



   if ( not AdjustTokenPrivileges(hToken, FALSE, byval varptr(tkp), LenB(TOKEN_PRIVILEGES), &H0&,  &H0& ) ) then
   ...
   end if



Sangrientas Lunas!¡.

[neo_from_cs_matrix]

declarado de esta forma

Código [Seleccionar] Expandir


Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, _
NewState As TOKEN_PRIVILEGES, _
ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, _
ReturnLength As Long) As Long


el tema es que yo tengo el code en c pero lo estoy convirtiendo a vb,
la linea de c dice

Código [Seleccionar] Expandir


AdjustTokenPrivileges(hToken, 0, tkp, 0, (TOKEN_PRIVILEGES) 0, 0)


entonces yo lo que preguntaba era como castiar el "previousstate" de forma
qe me permita pasarle 0 (null).

Código [Seleccionar] Expandir

Call AdjustTokenPrivileges(hToken, 0, tkp, 0, 0, 0)


pregunto...
deberia hacerlo asi ?

Código [Seleccionar] Expandir

Call AdjustTokenPrivileges(hToken, 0, tkp, 0, &H0&, 0)


les agradezco que me digan como hago, y el tema del casteo en el parametro me vendria bien saberlo porque ando con visual basic estos dias XD

[MCKSys Argentina]

Completa la estructura con ceros/nulls y pasasela a la API...

[raul338]

las ultimas 2 lineas de la declaración, pásala a

Código (vb) [Seleccionar] Expandir

ByVal PreviousState As Long, _
ByVal ReturnLength As Long) As Long

0 = &H0 (la diferencia es que en la izquierda es la notación decimal y la derecha es hexadecimal)

[neo_from_cs_matrix]

las ultimas 2 lineas de la declaración, pásala a
Código
ByVal PreviousState As Long, _
ByVal ReturnLength As Long) As Long

0 = &H0  (la diferencia es que en la izquierda es la notación decimal y la derecha es hexadecimal)

grax

Código [Seleccionar] Expandir


Private Type LUID
    UsedPart As Long
    IgnoredForNowHigh32BitPart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
    vLuid As LUID
    Attributes As Long
End Type

Private Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    Privileges(1) As LUID_AND_ATTRIBUTES
    Attributes As Long
End Type


los longs los pongo a cero pero los otros campos como los pongo a cero :/

[x64core]

si te referis a los campos de las estructuras se establecen automaticamente a 0

[neo_from_cs_matrix]

no me estaba refiriendo a un post arriba, de otro usuario

Completa la estructura con ceros/nulls y pasasela a la API...