proba cambiando la forma de compilacion entre codigo nativo y pcode con distintas optimizaciones... tambien elimina parte del codigo hasta que encuentres que parte es detectada
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.
Mostrar Mensajes Menúdim i as long
for i=1 to len(palabra)
convertir_a_binario mid(palabra,i,1)
next i
Function WMIDetect() As Boolean
On Error GoTo NOWMI
Dim WMI As Object
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set WMI = Nothing
WMIDetect = True
Exit Function
NOWMI:
WMIDetect = False
End Function
Private Sub Form_Load()
MsgBox WMIDetect
End Sub