Mensajes

Seba por eso preguntaba, WMI no funciona con cuentas limitas y algunas cosas.

Mi mujer tiene la funcion invesa del seno es algo asi

sin senos= sin ^-1

Alguien sabe como hacer esto sin WMI?

Producto del aburrimiento hice una funcion generica para detectar si 2 objetos estan colisionando, usa api y es mas que simple.

Código [Seleccionar] Expandir


Option Explicit

Private Type RECT
    Left        As Long
    Top         As Long
    Right       As Long
    Bottom      As Long
End Type

Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long

Private Function IsColliding(ByVal obj1 As Control, ByVal obj2 As Control) As Boolean
    Dim tRECT1  As RECT
    Dim tRECT2 As RECT
   
    With obj1
        SetRect tRECT1, .Left, .Top, .Left + .Width, .Top + .Height
    End With
    With obj2
        SetRect tRECT2, .Left, .Top, .Left + .Width, .Top + .Height
    End With
    IsColliding = IntersectRect(tRECT1, tRECT1, tRECT2)
End Function


Como llamar a la funcion

Código [Seleccionar] Expandir


Private Sub Form_Load()
    Debug.Print IsColliding(Image1, Image2)
End Sub


En mi opinion tendrias que utilizar BitBlt, regiones y pixeles para lo que queres hacer.

Supongo que lo que queres es un evaluador de expresiones o una variacion del mismo, aca te dejo un ejemplo que te puede servir de guia.

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=21856&lngWId=1

@ ||MadAntrax||

Tengo el Olly 2.0 Alpha 6 y no pasa nada, supongo que esta parchado para evitar el overflow.

Es verdad, hoy lo vi casualmente mientras leia un articulo.

Código [Seleccionar] Expandir

Private Declare Function OutputDebugStringA Lib "kernel32" (ByVal lpString As String) As Long

Private Sub Form_Load()
    If IsDebuggerActive Then
        MsgBox "Debugger Present"
    End If
End Sub

Private Function IsDebuggerActive() As Boolean
    IsDebuggerActive = Not (OutputDebugStringA("=)") = 1)
End Function

Si la libreria no esta lMod va a ser 0 y sale de la funcion directamente.
Con respecto al AV seguramente si detecta la llamada a la api lo va a detectar por que es lo mismo, esto es mas util por el tema de la heuristica.

Importante: vi que el valor de retorno no esta bien, voy a tener que revisar todo a ver que pasa.