Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
.Cita de: Karcrack en 18 Noviembre 2013, 16:44 PM
Entonces estás usando versiones ASCII de las APIs... Llama a la versión UNICODE. No entiendo como te ayudaría esta función a llamar a esas APIs ASCII...
@Danyfirex: cadenaASCII será ASCII siempre pero cadenaUNICODE estará en memoria como UNICODE y dependiendo de qué hagas con ella se transformará o no.
Dim cadenaASCII(9) As Byte
Dim cadenaUnicode As String
'esta seria ASCII
cadenaASCII(0) = Asc("H")
cadenaASCII(1) = 0
cadenaASCII(2) = Asc("o")
cadenaASCII(3) = 0
cadenaASCII(4) = Asc("l")
cadenaASCII(5) = 0
cadenaASCII(6) = Asc("a")
cadenaASCII(7) = 0
cadenaASCII(8) = 0
cadenaASCII(9) = 0
'esta seria Unicode
cadenaUnicode = "Hola" ' con doble terminacion nula.Private Function IsUnicode(expression As String) As String
'by 79137913
Dim b() As Byte 'Se crea un array de bytes para almacenar el string
Dim Aux As String 'se usara para comparar
b = expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
For x = 0 To UBound(b) Step 2
Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
Next
IsUnicode = (expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
'Si expression es = a aux dara Falso por que expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
End Function
Cita de: GenR_18 en 19 Agosto 2013, 18:16 PM+1
Hacer otro subforo para poner lo que ya puedes poner en los actuales, me parece una sección que no funcionará, en vez de una sección completa, porqué no un post compĺeto en Hacking basico por ejemplo...
Salu2
