Souris ou plutot curseur qui tremble..

Soyez le premier à donner votre avis sur cette source.

Vue 5 755 fois - Téléchargée 427 fois

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...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
9
Date d'inscription
lundi 28 avril 2003
Statut
Membre
Dernière intervention
18 novembre 2003

Sympa comme petit programme, une idée pour faire des programme sà la con ;)
J'ia pas adsl non plus snif :')
Messages postés
2
Date d'inscription
mercredi 25 septembre 2002
Statut
Membre
Dernière intervention
9 mars 2003

...ou comme moi...
Messages postés
282
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
12 février 2007

ouais, comme moi...
Messages postés
61
Date d'inscription
mercredi 30 octobre 2002
Statut
Membre
Dernière intervention
16 mai 2005

on n'as pas tous l'ADSL...
Messages postés
629
Date d'inscription
mercredi 3 juillet 2002
Statut
Membre
Dernière intervention
9 octobre 2006

ADSL pooowwweeerrrr !!!!

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.