Option Explicit
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Function MoveMouse(ByVal FinalX As Long, ByVal FinalY As Long, _
Optional ByVal InitialX As Long = -1, Optional ByVal InitialY As Long = -1, Optional ByVal TimeToWait As Long = 5) As Boolean
On Error GoTo err
 
Dim PosActual           As POINTAPI
Dim I                   As Long
Dim DX                  As Long
Dim DY                  As Long
Dim P                   As Double
Dim StepVal             As Integer
 
            GetCursorPos PosActual
 
            If InitialX = -1 Then InitialX = PosActual.X
            If InitialY = -1 Then InitialY = PosActual.Y
 
            DX = (FinalX - InitialX)
            DY = (FinalY - InitialY)
 
            P = (DY / DX)
 
            If (DX < 0) Then StepVal = -1 Else StepVal = 1
 
            For I = 1 To DX Step StepVal
                SetCursorPos InitialX + I, InitialY + Round((I * P))
                Sleep TimeToWait
            Next
 
            MoveMouse = True
Exit Function
err:
End Function

MoveMouse Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, 0, 0
 

• USB: Antes tenia un spread privado que se propagaba por usb, era muy bueno, pero creo que los avs ya lo tienen en la mira, eh logrado que cree accesos directos con los nombres de las carpetas para asi digamos... una infección mas creible y rapida, pero aun así lo veo que ya no es muy efectivo
• P2P: Este escuche que a muchos les iva de maravilla, yo lo probe con el tipico spread por ares,lime wire, y demas clientes p2p, pero la verdad que no tuve buenos resultados y creo que menos en estos tiempos
• MSN: Era el mas popular, cuando lo probé no me funcióno muy bien, en el msn desactivaron el envio de archivos zip y ejecutables, y por enlace muy dificil que cayeran, lo probe tambien apenas y nada... no me dio buenos resultados
• Red Local: Creo que esta tecnica se aprovecha de un bug de windows xp para propagarse por red, antes lo probé y no se si fue gracias a esta tecnica o a la de usb pero tenia toda una red infectada... no se si se prestaban entre ellos mismos la misma usb o que onda, pero creo que si funciono... bien eso era antes, pero ahora ya casi no se usa xp y dara menos resultados...

Sub Main()
call CreateTimer ' en realidad no es lo que tiene, pero hago una llamada para crear un timer
End Sub

Sub Main()
call CreateTimer
Do while 1 = 1
    DoEvents
Loop
End Sub