Souris ou plutot curseur qui tremble..

Télécharger le projet
Commenter

Description

Cette source n'as pas de grande utilité, sauf peut etre de simulé une activité auprès de votre fournisseur d'accès quand vous êtes connecté au net et que vous passez votre temps a télécharger. ça vous évite peut être d'être déconnecté par votre FAI...

Source / Exemple : 


' Déclarations des API :

' Détecte la position du curseur
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'Modifie la position du curseur
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

' Déclaration du type POINTAPI

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Dim a

Private Sub form_load()
'Mais la form en position réduite
Form1.WindowState = 1
End Sub
Private Sub btnend_Click()
' Quitter
Unload Me
End Sub
Private Sub Timer1_Timer()
Dim PosCursor As POINTAPI

r& = GetCursorPos(PosCursor)

Dim PosX As Long
Dim PosY As Long

'Choisi un chiffre aléatoire entre de 1 à 4
a = Int(Rnd * 4) + 1

If a = 1 Then 'Si a=1 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * -2)) 'déduit moins 2 a la psition du curseur en x
PosY = (PosCursor.Y + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en y
End If
If a = 2 Then 'Si a=2 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en x
PosY = (PosCursor.Y + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en y
End If
If a = 3 Then 'Si a=3 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en x
PosY = (PosCursor.Y + Int(Rnd * -2)) 'déduit moins 2 a la psition du curseur en y
End If
If a = 4 Then 'Si a=4 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en x
PosY = (PosCursor.Y + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en y
End If
'Ceci n'est pas forcément utile
If PosY > 599 Then 'Si la position du curseur est supérieur a 599 pixel (sur la hauteur)le curseur est repositionner sur l'écran aléatoirement
PosY = Int(Rnd * 599) + 1
End If
If PosY < 1 Then 'Si la position du curseur est inférieur a 1 pixel (sur la hauteur)le curseur est repositionner sur l'écran aléatoirement
PosY = Int(Rnd * 599) + 1
End If
If PosX > 799 Then 'Si la position du curseur est supérieur a 799 pixel (sur la largeur)le curseur est repositionner sur l'écran aléatoirement
PosX = Int(Rnd * 799) + 1
End If
If PosX < 1 Then 'Si la position du curseur est inférieur a 1 pixel (sur la largeur)le curseur est repositionner sur l'écran aléatoirement
PosX = Int(Rnd * 799) + 1
End If
'Donne la nouvelle position au curseur
r& = SetCursorPos(PosX, PosY)
End Sub

Conclusion :


Pas de bug connu...
Laissez un commentaire et notes.
merci d'avance...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_cosmic)