Mouse¡¡¡¡

[Badlands]

El programa que estoy tratando de hacer es muy sencillo se trata de mover el mouse y hacer click en determinada coordenada, el mouse lo mueve pero no me hace click. En esa coordenada puse el icono de mi pc para que haga doble click pero no lo hace alguno save por que les dejo el codigo:

Modulo:

Código [Seleccionar] Expandir

Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Form:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SetCursorPos "510", "480"
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

[~~]

Mirate esto: http://foro.elhacker.net/index.php/topic,141712.msg665820.html#msg665820

1S4ludo

[Badlands]

Justamente vengo de ahi y me parece que ese codigo no funciona pero no importa ya lo resolvi de otra manera, pero esto lo quiero hacer para darle permitir al zone alarm cuando salta la alerta de seguridad, y puedo hacer click en todos lados menos en el formulario de zone alarm a alguien le paso esto?

[dPix]

Justamente vengo de ahi y me parece que ese codigo no funciona pero no importa ya lo resolvi de otra manera, pero esto lo quiero hacer para darle permitir al zone alarm cuando salta la alerta de seguridad, y puedo hacer click en todos lados menos en el formulario de zone alarm a alguien le paso esto?

Ese método lo intenté yo también un día, y me parece interesantísimo, olé por tu lógica xD. El caso es que te has de preguntar, ¿no estará programado (el zone) para evitar eso? Supongo que se les habra ocurrido a ellos antes que a ti saltarse su seguridad con ese método 

dPix (felizes fiestas)

[Badlands]

AJAJAJAJ posta que si era mi ultima esperanza de saltarme es firewall y los de su calaña, me parece que voy a tener que tirar mi troyano recien salido del horno a la basura, ya no se que inventar.
Se te ocurre algo?

[dPix]

Hay muchísimos métodos para que un troyano sea "invisible", podrías meterle un killer, lo cuál sería un poco bruto, para que eliminara toda seguridad, no es 100% fiable pero te quitas a muchos de encima, desde luego hay muchos métodos para quitártelos de encima, busca bien porque hay de todo.

me parece que voy a tener que tirar mi troyano recien salido del horno a la basura, ya no se que inventar.

No digas eso ni de coña
No te rindas
Busca muchos métodos
...

PD: Es un tema que yo aún estoy estudiando para un troyano que tengo a medio hacer. Si quieres, me agregas al msn e intercambiamos opiniones de como hacerlo 

[Badlands]

Sisi pasame tu msn por pm o si no agregame vos yo lo tengo publico el msn. 

[dPix]

ok