SwapEndian Funcion
Publicado: 19 Dic 2012, 22:51
Bueno vi esto simple y bonito código en vb6 con API me gusto y lo traduje.
Saludos
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