Mensajes

Todo se puede mejorar


Por cierto, el codigo de Wow permite saber si estamos en un SO de 64 bits, en cambio el resto simplemente miran si el procesador lo es... es decir, yo puedo tener instalado un W$ de 32bits con un procesador de 64bits...

Dejo una version mas molona

Código (vb) [Seleccionar] Expandir

Private Type SYSTEM_PROCESSOR_INFORMATION
   ProcessorArchitecture       As Integer
   ProcessorLevel              As Integer
   ProcessorRevision           As Integer
   Unknown                     As Integer
   FeatureBits                 As Long
End Type
Private Const SystemProcessorInformation    As Long = 1

'NTDLL
Private Declare Function NtQuerySystemInformation Lib "NTDLL" (ByVal SystemInformationClass As Long, ByRef SystemInformation As Any, ByVal SystemInformationLength As Long, ByRef ReturnLength As Long) As Long

Public Function x64() As Boolean
   Dim tSPI                    As SYSTEM_PROCESSOR_INFORMATION
   
   If NtQuerySystemInformation(SystemProcessorInformation, tSPI, &HC, ByVal 0&) >= 0 Then
       x64 = ((tSPI.ProcessorArchitecture = 6) Or (tSPI.ProcessorArchitecture = 9))
   End If
End Function
Reducido:

Código [Seleccionar] Expandir

'NTDLL
Private Declare Function NtQuerySystemInformation Lib "NTDLL" (ByVal SystemInformationClass As Long, ByRef SystemInformation As Any, ByVal SystemInformationLength As Long, ByRef ReturnLength As Long) As Long

Public Function x64() As Boolean
    Dim wProcArch   As Integer
   
    If NtQuerySystemInformation(1, wProcArch, &HC, ByVal 0&) >= 0 Then
        x64 = ((wProcArch = 6) Or (wProcArch = 9))
    End If
End Function

Código (vb) [Seleccionar] Expandir

'KERNEL32
Private Declare Function IsWow64Process Lib "KERNEL32" (ByVal hProcess As Long, ByRef Wow64Process As Boolean) As Long
Private Const CurrentProcess        As Long = -1

Public Function Is64() As Boolean
    On Error Resume Next
    Call IsWow64Process(CurrentProcess, Is64)
End Function
Esto deberia funcionar...

Código (python) [Seleccionar] Expandir

if Letra.islower() != True:
print "Mayuscula"
else:
print "Minuscula"

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/crear_aplicaciones_de_consola_con_vb_intermedio-t230818.0.html;msg1099586
http://foro.elhacker.net/programacion_vb/crear_aplicaciones_de_consola_vb_avanzado_clase-t230908.0.html;msg1100512

Código [Seleccionar] Expandir

/s

Añado que no todas las funciones de NTDLL se pueden llamar con un SystemCall y que los codigos de cada funcion varian en cada version de W$.

Testeado en W$ XP SP3 y funciona a la perfeccion

mi respuesta era para komodo 

Por si acaso

[Cuales son los buenos habitos a la hora de acceder a la base de datos desde PHP?]

Iba a poner este tema en la sección de PHP, pero creo que aqui sabreis informarme mejor

Antes que nada, decir que voy a iniciar de aqui poco un pequeño proyecto y en el hay partes PHP que trabajan con bases de datos.. Mi pregunta es simple:

Cuales son los buenos habitos a la hora de acceder a la base de datos desde PHP? Para evitar inyecciones y tal...

Muchas gracias

Usa un pequeño wrapper para saltarte la limitacion del IDE:

Código (vb) [Seleccionar] Expandir

Public Function GetAddr(ByVal lAddr As Long) As Long
    GetAddr = lAddr
End Function

Código [Seleccionar] Expandir

OtraFuncion Parametro1, GetAddr(AddressOf Principal)