Accueil > > > SE FAIRE PAYER SANS ÊTRE DEVANT SON ORDI PAR DES CASHBAR
SE FAIRE PAYER SANS ÊTRE DEVANT SON ORDI PAR DES CASHBAR
Information sur la source
Description
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
- '--------------- 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)
'--------------- 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
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Simuler le CLICK de la souris [ par Gabriel ]
Comment simuler le click + dblclick dse souris?Mouse.ClickMouse.DblClickMERCI
mouse over [ par trastaroot ]
Salut,je vous explique mon pb! j'ai un histogramme dans excel et je voudrais au passage de la souris sur chaque barre de l'histogramme un commentaire
utilisation de SetCursorPos et Mouse_Event [ par nazzguhl ]
Bonjour,j'ai trouvé dans le forum plusieurs exemples de SetCursorPos et Mouse_Event, je les ai essayés, mais ça ne fonctionne pas comme je l'espérais.
move mouse to x y clic [ par simosif ]
bonjour,j'ai une application que je dois exécuter(suivre une séquence de clic sur des menus) toutes les 15 miniutes.je veux développer un programme qu
msflexgrid:Mouse Move [ par FASH ]
Bonjour à tous, Est-ce que quelqu'un aurait une idée pour mettre tout une ligne de la Msflexgrid en bleu quand le pointeur de la souris passe sur cett
Mouse move [ par Jocelynmorrissette ]
Je ne suis pas sur de comment utiliser la commande mouse move... Mon but est de faire bouger un objet a l'aide de la souris. Est-ce qu'il y a quelqu'u
UserControl et event Mouse [ par renocmoa ]
Bonsoir,Je voudrais savoir comment obtenir que les evenements souris (leav, hover...) soit utilisable avec un user control. En effet, par exemple avec
Détection d'un clique sur le composant wmp[VB 2005] [ par sousoulebarbu ]
Bonjour,J'essaye de détecter le clique et le double clique de la souris sur un composant windows media player présent dans mon application. Malheureus
Simulation souris [ par didieraucun ]
Bonsoir et bonne année 2008 J'ai trouvé ce code sur ce site qui simule le mouvement et les différents clic d'une souris.Mais je ne sait pas comment l'
Position souris dans fenêtre [ par Londonic ]
BASIC 2008 Projet Wpf J'aimerais modifier mes paramètres d'affichage quand j'enfonce où que je relache le bouton de la souris. Friend Sub OnMouseDo
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|