Visual Basic Forum

Verfasst am: 25.09.2009, 12:42 Aufrufe: 922

Verfasst am: 29.06.2009, 14:11 Aufrufe: 2113

Beschreibung:Mit dieser Klasse kann man sehr leicht eine globale Hotkey funktionalität in seinem Programm einbinden.Man muss nur diese Klasse mit WithEvents deklarieren und ihr eine Form zuweisen die gesubclassed werden soll.Dann muss man nur noch ein paar eigene HotKey-Kombinationen registrieren (z.B. Strg+Alt+X) und diesemit dem Event abfragen bzw, abfangen. Dazu muss man eine eigene HotKeyID angeben um einen besti ...

Verfasst am: 15.06.2009, 18:00 Aufrufe: 1071

... ernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short Declare Function Hotkey ...

Verfasst am: 27.09.2008, 13:41 Aufrufe: 3375

ja, das meinte ich mit hotkey Wink

strg alt entf kann man da nichtmal registrieren, bzw. es wird dabei kein ereignis ausgelöst

Verfasst am: 25.09.2008, 18:39 Aufrufe: 3375

(bla;8875)ja, mit boolean is schon richtig.allerdings klappts nicht mit dem keydown event und auch nicht wenn ich strg alt entf als hotkey mache -.-Leider weiss ich da auch nicht woran es liegt, ich habe noch nicht mit Tastenanschlägen gearbeitet, aber ich dachte das kommt deinem Problem noch am nächsten Wink

.

Verfasst am: 25.09.2008, 18:19 Aufrufe: 3375

ja, mit boolean is schon richtig.allerdings klappts nicht mit dem keydown event und auch nicht wenn ich strg alt entf als hotkey mache -.-

Verfasst am: 10.09.2008, 14:09 Aufrufe: 1179

hi,wie kann ich einen hotkey vom user selbst bestimmen lassen?hotkey sollte aus operator + taste bestehen: z.B.: strg+F1strg, alt, shift kann man ja als operatoren in eine combobox packen und mit select case auswerten.aber wie mach ich das mit zahlen, buchstaben, sondertasten, ziff.block... ?die kann man ja schlecht in ner combobox packen -.-hab mir gedacht per keypressed-event oder so... kA. aber ich müsste die dann ...

Verfasst am: 21.08.2008, 17:46 Aufrufe: 1591

Verfasst am: 21.08.2008, 15:36 Aufrufe: 1591

Wirklich Nette Idee werd ich mir gleich mal genauer anschaun, das Ding bei mir ist das ich nen Laptop habe und damit auch keinen Ziffernblock... Wäre wirklich schlauer wenn du den Benutzer den Hotkey selber festlegen lässt. Ansonsten klasse sache

Verfasst am: 21.08.2008, 15:11 Aufrufe: 1591

lol gute idee doch mach lieber ein hotkey z.B strg ,weil1. wenn ich ein porno gucke ,kann ich genauso gut strg+w oder alt+f4 drücken2.wenn ich mit meiner ex chatten würde ,würde ein einfaches ESCAPE helfen3.wer hört schon nazimusik? naja meine tastatur hat einen knopf mit dem man blitzschnell den ton ausmacht'strg+0 ist dann doch bisschen lahmer und noch ein tipp:lass den benutzer seinen hotkey individuell belegen

Verfasst am: 21.08.2008, 13:41 Aufrufe: 1591

..Mit diesem Programm kann man blitzschnell seinen Bildschirm "tarnen".Entweder den Hotkey "Strg + Ziffernblock 0" drücken, oder auf das Icon im Systray klicken und schon wird dein Bildschirm "getarnt".Zu den Einstellungen gelangt man per Rechtsklick auf das Icon.Tarnung bedeutet hierbei ein Bildschirm, der komplett mit einer Farbe überdeckt ist. Desweiteren kann man auch Transparenz bestimmen und Bilder anzeigen las ...

Verfasst am: 31.07.2008, 23:54 Aufrufe: 3033

Neue Version! CrazyShot 0.3.1 Beta (Download auf 1. Seite)Änderungen31.07.2007 :: Updater eingebaut31.07.2007 :: Hotkey für Upload hinzugefügt!29.07.2008 :: Bugs von bla gefixxt!29.07.2008 :: Direktlink nach Upload in die ZwischenablageUpdates werden nicht Automatisch gemacht, können unter Info oder im Kontextmenü im Tray gemacht werden :wink:Edit://Updater werde ich morgen nochmal überarbeiten Wink

Verfasst am: 28.07.2008, 19:43 Aufrufe: 1007

Interval = 20tmr_read.Enabled = TrueEnd SubPrivate Sub tmr_read_Timer()Dim HotKey As Long HotKey = vbKeyF12If GetAsyncKeyState(HotKey) = KeyPressed ThenDim sFile As String sFile = (txt_pfad.Text) If mciSendString("open " & sFile & _ " type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then ' MP3 abspielen mciSendString "play MyMP3 from 0", 0, 0, 0 End If End If End Sub[/cod ...

Verfasst am: 28.07.2008, 17:54 Aufrufe: 1007

Visual Basic: das is das rautezeichen über der textbox (das 2. von rechts)

Verfasst am: 28.07.2008, 15:26 Aufrufe: 1007

Interval = 20tmr_read.Enabled = TrueEnd SubPrivate Sub tmr_read_Timer()Dim HotKey As Long HotKey = vbKeyF12If GetAsyncKeyState(HotKey) = KeyPressed Then Call PlayWav(txt_pfad.Text) End If ' MCI öffnenIf GetAsyncKeyState(HotKey) = KeyPressed Then ' MP3 abspielen mciSendString "play MyMP3 'ich will hier das er dsa LIED ABSPIELT , sobald die f12 gedrückt is , die ich aus dem SHowOpen dialog ausgewählt ha ...

Verfasst am: 28.07.2008, 12:32 Aufrufe: 1647

Verfasst am: 28.07.2008, 12:25 Aufrufe: 1647

dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongPublic Sub PlayWav(sFile As String) If Dir(sFile$) "" Then Call playa(sFile, SND_FLAG)End SubPrivate Sub cmd_add_Click() List1.AddItem (txt_pfad.Text)End SubPrivate Sub Form_Load()tmr_read.Interval = 20tmr_read.Enabled = TrueEnd SubPrivate Sub tmr_read_Timer()Dim HotKey As Long HotKey = vbKeyF12If GetAsyncKeyState(Hot ...

Verfasst am: 27.07.2008, 23:53 Aufrufe: 1647

Verfasst am: 27.07.2008, 23:46 Aufrufe: 1647

Verfasst am: 27.07.2008, 23:41 Aufrufe: 1647

Enabled = True End Sub Private Const KeyPressed As Integer = -32767 Private Sub tmr_read_Timer() 'Hier wird nun eine Variable für den HotKey deklariert Dim HotKey As Long 'Der Hotkey ist in diesem Fall F12 HotKey = vbKeyF12 'Hier wird mitte ...

Verfasst am: 27.07.2008, 23:35 Aufrufe: 1647

Enabled = True End Sub Private Sub tmr_read_Timer() 'Hier wird nun eine Variable für den HotKey deklariert Dim HotKey As Long 'Der Hotkey ist in diesem Fall F12 HotKey = vbKeyF12 'Hier wird mittels der oben deklarierten Funktion überprüft ob die Taste ...

Verfasst am: 27.07.2008, 14:26 Aufrufe: 3033

NET 2008 Professional EditionScreenshots:MainDirectUpload.net Upload EngineScreenshot anzeigenCrazyShot UpdaterDownload:CrazyShot 0.3.1 Beta :: 00:50 31.07.2008 :: DownloadChangelog:31.07.2007 :: Updater eingebaut :: 0.3.1 Beta31.07.2007 :: Hotkey für Upload hinzugefügt! :: 0.3.1 Beta29.07.2008 :: Bugs von bla gefixxt! :: 0.3 Alpha PreRelease29.07.2008 :: Direktlink nach Upload in die Zwischenablage von ReED :: 0.3 A ...

Verfasst am: 18.07.2008, 13:33 Aufrufe: 507

Verfasst am: 23.12.2007, 18:02 Aufrufe: 3080

... As Integer Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short Declare Function Hotkey ...

Verfasst am: 23.12.2007, 10:22 Aufrufe: 6481

... eclare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Declare Function Hotkey ...

Verfasst am: 01.08.2007, 10:31 Aufrufe: 866

Wenn schon Flooder dann wenigstens vernünftig bitte. Dass er nach 10 Seks aufhören muss sagt schon viel xD Wie wärs mit Multiline, Intervall einstellen, Anzahl der Floodmsgs einstellen, per Hotkey starten und beenden oder was ich bisher noch nicht gesehn haben, dass man sich ein Fenster aussucht (per Drag´n´Drop wär richtig nice) und die Tasten direkt an dieses geschickt werden. Wenn das alles machst hast sogar ri ...

Verfasst am: 08.07.2007, 14:03 Aufrufe: 528

Sendkeys simuliert einen Tastendruch an das gerade aktive fenster. für refresh zb. Sendkeys "{F5}" fast alle funktionen in ff haben ja nen hotkey also würd ich das einfach mit sendkeys regeln. Ansonsten musste die Position des buttons ermitteln den mauszeiger dorthin bringen und nen klick simulieren. Das wär ne unglaubliche api arbeit. dritte möglichkeit würde auf handles hinauslaufen und damit will ic ...

Verfasst am: 27.05.2007, 15:36 Aufrufe: 311

Das wäre dann wohl ein globaler bzw. systemweiter Hotkey. Vielleicht hilft dir hiervon etwas. Ist halt alles VB6. http://www.vbarchiv.net/archiv/tipp_details.php?pid=371 http://www.vbarchiv.net/archiv/tipp_details.php?pid=151 http://www.vbarchiv.net/archiv/tipp_details.php?pid=247 http://www.vbarchiv.net/archiv/tipp_details.php?pid=450

Verfasst am: 27.05.2007, 14:55 Aufrufe: 311

Ah das war es "Konstanten" , selbst das wort hätte genügt, danke sehr. Weißt du noch wie ich das mit dem Hotkey machen kann bzw das das programm überlappend ist ?

Verfasst am: 07.05.2007, 16:29 Aufrufe: 1819

Verfasst am: 21.04.2007, 12:49 Aufrufe: 684

... was mir gerade nicht einfaellt :D Ich wuerde das bisher noch RC1 nennen, da ich noch das kleine Poblem + Sicherheitsluecke hab, das zB wenn der MSN Messenger dieses kleine Fenster zeigt, das sich jmd eingeloggt hat, das man das sieht und auch anklicken kann. Wer dafuer ne Idee hat, melden Wink

In Version 2 kommt noch das Feature, das man das Programm in der Systray laufen lassen kann und mit einem Hotkey ...

Verfasst am: 22.12.2006, 11:41 Aufrufe: 694

Hi, Ich möchte wissen wie ich bei meinem Programm eine hotkey funktion einfügen kann, also das z.b. ein commandbutton bei druck auf F11 oder so aktiviert wird