makros Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Autor

Nachricht

makiaho
Newbie
Newbie

Anmeldedatum: 03.05.2008
Beiträge: 8

makros Verfasst am: 09.07.2008, 14:39

Hi, ich kenne mich in vb ziemlich aus, aber ich habe noch nicht rausgefunden, wie ich eine art makro machen kann... also so meine ich: er muss mit der Maus dort hin dann nach so und so viel zeit rechtsklicken dann wieder B klicken dann 5x a klicken etc... thx

noname
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 131

Verfasst am: 09.07.2008, 15:22

ich kenne mich in vb ziemlich aus

Dann kannst du ja Google als nächste Instanz versuchen.
Hier ein paar Übungen:

er muss mit der Maus dort hin

Per API (Name ist mir entfallen)

dann nach so und so viel zeit

Timer oder Sleep

rechtsklicken
dann wieder B klicken
dann 5x a klicken etc...

Auch per oben genannten API

makiaho
Newbie
Newbie

Anmeldedatum: 03.05.2008
Beiträge: 8

Verfasst am: 09.07.2008, 16:09

ok wäre cool wenn dir die API wieder einfällt, bin bis dann am googeln

Regenwurm
Coder
Coder

Anmeldedatum: 06.05.2008
Beiträge: 88

Verfasst am: 09.07.2008, 16:19

tztztz Dann solltest du schon vbarchiv.net kennen.. Mauposition setzen: http://www.vbarchiv.net/api/api_setcursorpos.html Eine bestimmte Zeit warten (Sleep): http://www.vbarchiv.net/api/api_sleep.html

makiaho
Newbie
Newbie

Anmeldedatum: 03.05.2008
Beiträge: 8

Verfasst am: 12.07.2008, 12:05

ok danke das hat mir sehr weitergeholfen und wie geht das, wenn er z.b B drücken soll anstatt sich tmit der maus zu bewegen?

jojo4ever
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 42

Verfasst am: 13.07.2008, 09:23

http://vb-tec.de/mausclk.htm

makiaho
Newbie
Newbie

Anmeldedatum: 03.05.2008
Beiträge: 8

Verfasst am: 13.07.2008, 17:27

ok, und wie soll das mit tasten gehen? einfach sendkey?

jojo4ever
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 42

Verfasst am: 13.07.2008, 19:11

Visual Basic: [code]Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Command1_Click() Dim hWnd As Long hWnd = FindWindow(vbNullString, "Unbenannt - Editor") PostMessage hWnd, WM_KEYDOWN, vbKeyB, 0 End Sub[/code]

makiaho
Newbie
Newbie

Anmeldedatum: 03.05.2008
Beiträge: 8

Verfasst am: 13.07.2008, 19:21

könntest du vll noch eine erklärung zu dem abgeben? :p

Regenwurm
Coder
Coder

Anmeldedatum: 06.05.2008
Beiträge: 88

Verfasst am: 18.07.2008, 16:30

(jojo4ever;5458) Visual Basic: [code]Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Command1_Click() Dim hWnd As Long hWnd = FindWindow(vbNullString, "Unbenannt - Editor") PostMessage hWnd, WM_KEYDOWN, vbKeyB, 0 End Sub[/code]

Erklärung:

Die oberen Zeilen definieren die benötigten API's.

Visual Basic: [code]
Private Sub Command1_Click() 'Wenn auf den Button geklickt wird.
Dim hWnd As Long 'Die Variable "hWnd" wird als Long definiert (grösserer Wert als Integer)
hWnd = FindWindow(vbNullString, "Unbenannt - Editor") 'Das Fenster des Editors wird der Variable "hWnd" zugeordner
PostMessage hWnd, WM_KEYDOWN, vbKeyB, 0 'Dem Fenster Editor wird die Taste "B" gesendet
End Sub 'Fertig der Zauberei[/code]

Wenn du die Tastendrücke einfach so machen willst, sprich an ein nicht spezifisches Fenster, benutze dafür einfach Sendkeys

Visual Basic: [code]Sendkeys ("{ENTER}")
SendKeys ("Blabla")
SendKeys (Text1.Text)[/code]

1. Variante für "Windows Keys" wie Enter, Backspace, Space etc.
2. Variante für einen Text
3. Variante für eine Variable, oder eine Textbox und ähnliches.

grz

	Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Tags: maus

	Aufrufe	Letzter Beitrag

Image-Box mit der Maus bewegen	574	03.11.2010, 11:00
Form ohne Rand mit Maus größer u. kleiner ziehen?	868	07.04.2008, 09:57
Viele Textboxen zur gleichen Zeit leeren	440	08.07.2007, 13:45
Maus!	999	02.06.2007, 22:23
objekte mit der maus bewegen	1619	19.05.2007, 12:16

[ Time: 0.0636s ][ Queries: 109 (0.0210s) ][ GZIP on - Debug on ]