Bueno vi esto simple y bonito código en vb6 con API me gusto y lo traduje.


Código: Seleccionar todo

#cs -------------------------------------------------------
AutoIt Version: 3.3.8.1
Traducido Por..........: Pink
Version vb6........: 'by Paul, http://www.xbeat.net/vbspeed/c_SwapEndian.htm
Script Function...: SwapEndian
Uso..............:SwapEndian($valor)
#ce -------------------------------------------------------

func SwapEndian($valor)
$dll=dllcall("wsock32.dll","ptr","htonl","long",$valor)
Return hex($dll[0])
EndFunc
Saludos
Imagen
Responder

Volver a “Fuentes”