Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Simuler une activité souris

Simuler une activité souris

7 réponses
Avatar
Bruno
Bonjour,
Afin d'essayer de tromper (tricher ????) sur un poste en réseau, si environ
10mn d'inactivité l'OS (win xp pro) se vérouille avec entrée de code
nécessaire, j'ai développé un petit module qui bouge la souris de 1 pixel
toutes les minutes. Bon ca trompe pas le système.....
C'est un pur exercice de syle... Y a t'il une solution? même pour tromper
l'économiseur d'écran...
Merci d'avance
bruno

------------------------
LE CODE
-----------------------

Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal
y As Long)


Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As PointAPI) As Long

Private Type PointAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Me.Timer1.Interval = 65500
'DoEvents
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Timer1_Timer()
Dim Tampon As PointAPI
GetCursorPos Tampon
SetCursorPos Tampon.x + 1, Tampon.y + 1
'SetCursorPos Tampon.x - 2, Tampon.y - 2
Me.Caption = Tampon.x & "-" & Tampon.y
'SendKeys "<", True
'DoEvents
End Sub
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Guy DETIENNE
Salut ;O)

J'ai exactement fait cet exercice de style il y a peu. Et pas de bol ça ne
marchait pas :-(
Windows serait-il moins stupide qu'on le croit ;O)

Ceci dit, j'ai pas la solution... Si jamais tu la trouves, ça m'intéresse
fortement.

Guy

"Bruno" a écrit dans le message de
news:
Bonjour,
Afin d'essayer de tromper (tricher ????) sur un poste en réseau, si


environ
10mn d'inactivité l'OS (win xp pro) se vérouille avec entrée de code
nécessaire, j'ai développé un petit module qui bouge la souris de 1 pixel
toutes les minutes. Bon ca trompe pas le système.....
C'est un pur exercice de syle... Y a t'il une solution? même pour tromper
l'économiseur d'écran...
Merci d'avance
bruno

------------------------
LE CODE
-----------------------

Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long,


ByVal
y As Long)


Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As PointAPI) As Long

Private Type PointAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Me.Timer1.Interval = 65500
'DoEvents
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Timer1_Timer()
Dim Tampon As PointAPI
GetCursorPos Tampon
SetCursorPos Tampon.x + 1, Tampon.y + 1
'SetCursorPos Tampon.x - 2, Tampon.y - 2
Me.Caption = Tampon.x & "-" & Tampon.y
'SendKeys "<", True
'DoEvents
End Sub




Avatar
Jean-Marc
"Bruno" a écrit dans le message de
news:
Bonjour,
Afin d'essayer de tromper (tricher ????) sur un poste en réseau, si


environ
10mn d'inactivité l'OS (win xp pro) se vérouille avec entrée de code
nécessaire, j'ai développé un petit module qui bouge la souris de 1 pixel
toutes les minutes. Bon ca trompe pas le système.....
C'est un pur exercice de syle... Y a t'il une solution? même pour tromper
l'économiseur d'écran...



Hello,

si le but est simplement de simuler la présence,
un simple SendKeys(" ") dans un Timer toutes les
10 secondes et le tour est joué (testé ce matin sous XP et OK.)

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
Modeste
Bonsour®
Bruno wrote:
Afin d'essayer de tromper (tricher ????) sur un poste en réseau, si
environ
10mn d'inactivité l'OS (win xp pro) se vérouille avec entrée de code
nécessaire, j'ai développé un petit module qui bouge la souris de 1 pixel
toutes les minutes. Bon ca trompe pas le système.....
C'est un pur exercice de syle... Y a t'il une solution? même pour tromper
l'économiseur d'écran...



une solution : activer le médiaplayer avec une fichier son quelconque, en
boucle, réduire le son, réduire en icone, cela crée une activité sur le PC
cette solution est mise en oeuvre avec succés sur des postes de captage de
flux ou le receptioniste est amené à se déplacer pour vérifier les
cargaisons
@+

--
Avatar
Gloops
Modeste a écrit, le 19/11/2005 10:19 :

une solution : activer le médiaplayer avec une fichier son quelconque, en
boucle, réduire le son, réduire en icone, cela crée une activité sur le PC
cette solution est mise en oeuvre avec succés sur des postes de captage de
flux ou le receptioniste est amené à se déplacer pour vérifier les
cargaisons
@+



Hello,

Normalement, ça devrait marcher, ça.
WinTV, aussi, ça devrait marcher.

Sauf que depuis la dernière fois que ma machine est passée au SAV, la
gestion d'énergie déconne un peu, l'économiseur se déclenche alors que
l'application est lancée, et si une tâche planifiée sort l'ordinateur de
la veille il n'y retourne pas à la fin. Même le ventilateur qui se mêle
parfois de ne pas s'arrêter, même si l'ordinateur est carrément arrêté.

Je soupçonne la mise à jour des pilotes (vidéo, chipsets), si c'est ça
il reste à attendre la prochaine version. Enfin peut-être pas seulement,
si ça déconne à l'arrêt. Mais ça promet de s'étaler sur une certaine durée.

Bon, alors je crois que je vais essayer le coup du SendKeys. Il faudra
que je réfléchisse à la question de la fenêtre active, histoire de ne
pas me faire casser les pieds lorsque je voudrai saisir quelque chose
quelque part. Il faudra d'ailleurs que je détecte si il y a
effectivement une activité au clavier ou à l'écran, histoire d'éviter le
SendKeys dans les dix minutes suivantes.


En revanche, en attaquant une tâche planifiée, ça ne doit pas être
évident de savoir si cette tâche a sorti l'ordinateur de la veille,
j'imagine.
Avatar
Jacques93
Bonjour Bruno
Bruno a écrit :
Bonjour,
Afin d'essayer de tromper (tricher ????) sur un poste en réseau, si environ
10mn d'inactivité l'OS (win xp pro) se vérouille avec entrée de code
nécessaire, j'ai développé un petit module qui bouge la souris de 1 pixel
toutes les minutes. Bon ca trompe pas le système.....
C'est un pur exercice de syle... Y a t'il une solution? même pour tromper
l'économiseur d'écran...



Inspiré de :

http://www.codeguru.com/forum/showthread.php?s=&threadid"7102

utilisant SendInput :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/keyboardinputreference/keyboardinputstructures/mouseinput.asp

Voir également SPI_GETBLOCKSENDINPUTRESETS de l'api SystemParametersInfo

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/systemparametersinfo.asp


' =============================================================== Option Explicit

Private Type PointAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As PointAPI) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (pDst As Any, pSrc As Any, _
ByVal ByteLen As Long)
Private Declare Function SendInput Lib "user32.dll" _
(ByVal nInputs As Long, pInputs As INPUT_TYPE, _
ByVal cbSize As Long) As Long

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Private Const INPUT_MOUSE = 0
Private Const INPUT_KEYBOARD = 1
Private Const INPUT_HARDWARE = 2

Private Type MOUSEINPUT
dx As Long
dy As Long
mouseData As Long
dwFlags As Long
dwtime As Long
dwExtraInfo As Long
End Type

Private Type INPUT_TYPE
dwType As Long
xi(0 To 23) As Byte
End Type


Public Sub MoveMouse()
Dim CurPos As PointAPI
Dim intX As Integer
Dim inputEvents(0 To 1) As INPUT_TYPE
Dim mouseEvent As MOUSEINPUT

GetCursorPos CurPos
mouseEvent.dx = CurPos.x + 1
mouseEvent.dy = CurPos.x + 1
mouseEvent.mouseData = 0 ' not needed
mouseEvent.dwFlags = MOUSEEVENTF_ABSOLUTE
mouseEvent.dwtime = 0
mouseEvent.dwExtraInfo = 0
inputEvents(0).dwType = INPUT_MOUSE
CopyMemory inputEvents(0).xi(0), mouseEvent, Len(mouseEvent)

mouseEvent.dx = CurPos.x - 1
mouseEvent.dy = CurPos.x - 1
mouseEvent.mouseData = 0
mouseEvent.dwFlags = MOUSEEVENTF_ABSOLUTE
mouseEvent.dwtime = 0
mouseEvent.dwExtraInfo = 0
inputEvents(1).dwType = INPUT_MOUSE
CopyMemory inputEvents(1).xi(0), mouseEvent, Len(mouseEvent)

intX = SendInput(2, inputEvents(0), Len(inputEvents(0)))
End Sub

Private Sub Timer1_Timer()
MoveMouse
End Sub

' =============================================================== --
Cordialement,

Jacques.
Avatar
Jacques93
Oups...

mouseEvent.dx = CurPos.x + 1
mouseEvent.dy = CurPos.y + 1

et

mouseEvent.dx = CurPos.x - 1
mouseEvent.dy = CurPos.y - 1

--
Cordialement,

Jacques.
Avatar
Bruno
Merci encore,
je teste et j'avais rectifié...
Bon Dimanche (de Bordeaux)

"Jacques93" a écrit dans le message de news:

Oups...

mouseEvent.dx = CurPos.x + 1
mouseEvent.dy = CurPos.y + 1

et

mouseEvent.dx = CurPos.x - 1
mouseEvent.dy = CurPos.y - 1

--
Cordialement,

Jacques.