1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Se faire payer sans être devant son ordi par des cashbar

Se faire payer sans être devant son ordi par des cashbar

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 823 fois - Téléchargée 44 fois

Commenter

Contenu du snippet

Voilà un prog supper simpa qui à pour but de bouger la souris tout seul pour faire croire à une Cashbar que vous étes devant votre ordi.

########
Composants
########

> 2 boutons :
----> Command1 - Commancer à bouger la souris
----> Command2 - Arrêter de bouger la souris
> 1 Timer :
----> Timer1

########

Source / Exemple : 


'--------------- Form ---------------

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

Dim R, X, Y

Private Sub Command1_Click()
Timer1.Interval = 10
Timer1.Enabled = True
Command1.Visible = False
Command2.Visible = True

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command2.Visible = False
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(122) And 32768 <> 0 Then Timer1.Enabled = False: Exit Sub
Randomize
    X = Int(Rnd * 1000) + 1
    Y = Int(Rnd * 1000) + 1
    R = SetCursorPos(X, Y)
Sleep Text1 ' Pause entre chaque déplacement (en ms)
End Sub

'--------------- Module ---------------
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Conclusion :


King 2002
www.jeuxenligne.fr.st

A voir également

Ajouter un commentaire Commentaires
MACASD1818 Messages postés 2 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 24 mars 2008
24 mars 2008 à 16:46
en vx le telechargement SVP
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
18 oct. 2003 à 12:53
BOULET ! Ce prog (vieux) ne sert pas vu que l'écran de veille se met quant meme en marche ! 1/10
GangKiller78 Messages postés 28 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 18 mai 2011
24 nov. 2002 à 16:53
ARF... Copieur va ! LOL
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 (thekingoftheweb)