Hvordan lage en Proxy Clicker i VB 6

Normalt en bruker med en mus er den eneste som kan generere "klikk" på en datamaskin, men dine fysiske museklikk er bare begynnelsen på et signal som sendes gjennom programvaren datamaskinen bruker til å kjøre. Du klikker og datamaskinen genererer en kommando og informerer alle programmer som kjører de at et klikk har oppstått. Det er mulig for en programmerer å bare generere et klikk kommandoen uten egentlig å vente på et museklikk.

Bruksanvisning

1 Kopier og lim inn følgende kode nær toppen av hovedskjemakode:

Erklærer Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx
Som Long, ByVal dy så lenge, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Konst MOUSEEVENTF_LEFTDOWN = & H2
Konst MOUSEEVENTF_LEFTUP = & H4
Konst MOUSEEVENTF_RIGHTDOWN = & H8
Konst MOUSEEVENTF_RIGHTUP = & H10

2 Kopier og lim inn følgende kode inn i hjelpefunksjonen delen av den viktigste formen kode:

Sub Do_MouseClick (ByVal click_type som Long)

Call mouse_event (click_type, 0, 0, 0, 0)

End Sub

3 Kopier og lim inn følgende i tilfelle du ønsker å utløse et klikk fra:

"Gjør Venstre klikk
Do_MouseClick (MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP)
"Gjør Høyreklikk
Do_MouseClick (MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP)

4 Kjør ditt prosjekt for å utføre den automatiske klikk.

Hint

• Denne koden gjør klikk skje ved koordinater "0,0" som er øverst i venstre hjørne av skjermen. Hvis du vil endre hvor klikket skjer, bare endre de første to nuller i "mouse_event (click_type, 0, 0, 0, 0)" linje.