Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
killer110_
Poster
Poster



Anmeldedatum: 16.04.2007
Beiträge: 165
[s] Source
Verfasst am: 31.05.2007, 17:28
Such einen Source der in einem bestimtmen Feld auf dem Bildschirm auf jedem cm einen MausKlick macht!!

Geht so was?
_________________
 
TheCoder_
Überflieger
Überflieger



Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen

Verfasst am: 31.05.2007, 17:40
Ja klar. Du musst halt sone Art begrenzung machen mithilfe von pixel angabe...
zb. is das Feld von 500/600 und der gegenüberliegende punkt 600/700
daraus ein feld machen und innerhalb dieses Feldes alle 1cm (vorher in pixel umrechnen) die mausbewegen und dann mit sendkeys klick machen.
nein so einen source hab ich nich
_________________
 
Amethyst_
Poster
Poster

Anmeldedatum: 24.02.2007
Beiträge: 172

Verfasst am: 31.05.2007, 18:52
TheCoder hat Folgendes geschrieben:
Ja klar. Du musst halt sone Art begrenzung machen mithilfe von pixel angabe...
zb. is das Feld von 500/600 und der gegenüberliegende punkt 600/700
daraus ein feld machen und innerhalb dieses Feldes alle 1cm (vorher in pixel umrechnen) die mausbewegen und dann mit sendkeys klick machen.
nein so einen source hab ich nich

Hmm..ist das hier nicht einfacher?

Klicks machen:
[code]Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
'Linke Maustaste simulieren
Public Sub LinksKlick()
mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0
End Sub

'Mittlerer Maustaste simulieren
Public Sub MiddleClick()
mouse_event &H20, 0, 0, 0, 0
mouse_event &H40, 0, 0, 0, 0
End Sub

'Rechte Maustaste simulieren
Public Sub RechtsKlick()
mouse_event &H8, 0, 0, 0, 0
mouse_event &H10, 0, 0, 0, 0
End Sub

[/code]

Mauscursor bewegen:

[code]Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

'Maus nach x,y bewegen
Public Sub MausBewegen(x As Long, y As Long)
SetCursorPos x, y
End Sub[/code]

Sollte gehn oder?

edit: Okay, mit dem bestimmten Feld, musste halt die Positionen herrausfinden. (x + y)
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Ankündigungen: Wie poste ich Source Codes 1000 27.02.2008, 15:43
Keine neuen Beiträge [Umfrage] Scelus Trojaner (Source Code) 2253 06.10.2007, 10:54
Keine neuen Beiträge suche PW stealer source 2731 18.06.2007, 18:34
Keine neuen Beiträge Trojaner [Black Dream] source 771 18.05.2007, 19:43
Keine neuen Beiträge [Text] Source code snippets 2775 06.04.2007, 17:14
 




[ Time: 1.1289s ][ Queries: 89 (0.0129s) ][ GZIP on - Debug on ]