VBS|Maustaste mit enter belegen

ist es möglich die linke maustaste mit einer taste (enter) oder einer tasten kombination wie alt + f4 mittels einem VBscript zu belegen??

oder dass erst bei mausklick ein befehl startet wie zb.

Code:

---

dim wshShell

Set wshShell = WScript.CreateObject("WSCript.shell")
wshshell.run "notepad.exe"
set wshshell = nothing


---

mfg Strike fraidl

Es ist in Grenzen realisierbar. Falls du die Tasten aber änderst, gilt das nur für deine Form. Um in einem anderen Programm sowas möglich zu machen, musste in den Datenstrom eingreifen.

Wenn das in deiner Form passieren soll, dann kannste das Event KeyDown benutzen. Und wenn du das Systemweit benutzen willst musste dir 'n Programm schreiben das jede Millisekunde die Tasten abfrägt. Funktion heißt dann GetAsyncKeyState. ActiveVB - VB 5/6-Tipp 0070: Tastatur systemweit überwachen

Tastenanschläge kann man dann mit der Funktion SendKeys durchführen z. B:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
SendKeys "9"
End If

AutoHotkey – Wikipedia

Kannst dir das auch durchlesen, damit kannste aufjedenfall das tun, was du vielleicht willst.
End Sub

Zitat:

---

Zitat von Apex

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
SendKeys "9"
End If

End Sub

---

das ist aber jetzt vb und nicht vbs oder??

Ja, ich kau dir ja auch nichts vor, müsstest du aber mittlerweile wissen, dass man hier nichts vorgekaut kriegt. Du verstehst hoffentlich den Sinn und kannst das alles in VBS umsetzen.

ja ..muss granicht umbedingt vbs sein...kann in vb auch sein...danke trotzdem :D

Zusammengefasst: (ich alls VB.Net'ler)
Du musst die Linke Maustaste oder welche Taste auch immer, abfangen.
Auswerten (If yxcv = true then "dein Event")
Das Event muss dann Alt + F4 oder eine andere Taste sein.

Das heißt, im Endeffekt löst du nur eine Aktion durch eine vorherige Aktion aus.