Cursor???

[hepy_92]

wenassS
estoy haciendo un troyano desde hace harto tiempo, cuando lo termine lo publico aca para que lo vean 
bueno.. la cosa es que ya tiene varias funciones serias, pero no muchas lammeradas... no es que sea lammer, pero muchas veces en un troyano termina siendo divertido asustar un poco a la victima con algunas bromas de buen gusto
lo que se me ocurrio hacer, y lo he visto en troyanos como el darkmoon, es hacer que mientras vaya moviendo el cursor del raton, que vaya dejando un "rastro" me refiero a que vaya rayando su escritorio de algun color, lo otro seria hacer que el maus se vuelva loco, osea que se empieze a mover hacia cualquier lado..
alguien tiene algun code???, si me pueden orientar o ayudar se los agradeceria mucho!
gracias de antemano!

[Freeze.]

Bueno ahorita no estoy en mi casa cuando llegue te paso unos buenos codes...
para hacer q el mouse rebote en la pantalla(como si fuera pelota de ping pong)
para que se quede quieto
Para volerlo normal xD

No es que no me los sepa sino que no puedo perder mi plata escribiendo unos codigos xD
Disculpa...

[hepy_92]

no hay problema, esperare los code gracias!
alguien tiene algun code para hacer que al mover el mouse, vaya dejando un "rastro"?? osea que raye el escritorio de algun color?
gracias!

[vivachapas]

es facil hacer q rebote... tenia un codigo pero no lo encuentro...

hace asi.... en pones un timer...

arriba

dim horizontal as byte
dim vertical as byte

en el form load

horizontal = 1
vertical = 1

timer1. bla bla... no me acuerdo q dice...

objeto.left = {lo q quieras q se mueva} * horizontal
objeto.top = {lo q quieras q se mueva} * vertical

if objeto.left = {hasta donde queres q se meuva} then
horizontal = -1
end if

if objeto.left = 0 then
horizontal = 1
end if

if objeto.top = {hasta donde queres q se meuva} then
vertical = -1
End if

if objeto.top = 0 then
vertical = 1
end if



bueno esa es la idea.. la escribi aca nomas... no lo probe XD pero bueno ... si no te anda y no te das cuenta xq me avisas

[Freeze.]

object.top = object.top + 10
object.left = object.left + 10

No funcionara si lo haces como dices...

Pero creo q lo demas ta bien...

[vivachapas]

No funcionara si lo haces como dices...

lo hice rapido para q entienda la idea...

object.top = object.top + 10
object.left = object.left + 10

en ese caso se mueve pero no vuelve... y si pones eso en un timer... se va a ir desplazando y va a desaparecer de la pantalla...

[hepy_92]

gracias!
pero como hago para que el objeto sea el cursor???
con la api win32 o me equivoco?

[Freeze.]

jeje eso es con setcursorpos
(api)

eso es lo q trato yo de explicarle a él aqui va el codidog (no lo probe)

Código [Seleccionar] Expandir

Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Dim a As Long, b As Long, c As Long, d As Long
Private Sub Timer2_Timer()
Dim x As Long
a = a + c * 10
b = b + d * 10
x = SetCursorPos(a, b)
If a >= 1024 Then
c = -1
End If
If a <= 0 Then
c = 1
End If
If b >= 800 Then
d = -1
End If
If b <= 0 Then
d = 1
End If
End Sub
Private sub command1_click()
timer2.enabled = True
end sub

[hepy_92]

gracias por el code =P
aora mismo lo agrego a mi troyano
muchas gracias!

[Freeze.]

hepy_92

Avisa si funciona (a mi me da pereza probarlo).. xD