|
| Autor |
Nachricht |
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Ausserhalb der form
Verfasst am: 07.12.2007, 15:16 |
|
|
Also wie kann ich befehle ausserhaöb der form laufen lassen ?
zb. das beim klicken der "Enter" taste ne message kommt, aber halt ausserhalb der form
hab schon sources usw. gesehen, aber da sind Module und drei seiten API und ich find das schon shice so |
|
| |
|
 |
413X_
« Moderator »
Anmeldedatum: 16.12.2006
Beiträge: 266
|
Verfasst am: 07.12.2007, 15:23 |
|
|
If KeyAscii = 13 Then
Msgbox "Message ausserhalb der Form"
End if
http://www.413x.dl.am
Tod den 1337-Scriptkiddies xD |
|
| |
|
|
Hamtaro_
« Moderator »
Anmeldedatum: 06.05.2007
Beiträge: 217
Wohnort: NRW
|
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 09.12.2007, 16:42 |
|
|
@413X wo soll ich das eintragen ?
unter form_load usw. bringt das ja nichts
und @Hamtaro das ist mir zuviel API
geht das nicht anders bzw. kennt einer noch ne lösung ? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 09.12.2007, 16:54 |
|
|
Wenn du auf ein Objekt ausserhalb der Form / auf einer anderen Form zugreifen möchtest geht das so:
| Code: | | Formularname!Objektname.Eigenschaftsname = Eigenschaft |
Vielleicht ist es ja das was du meinst.
€d!t: Oder meinst du, dass wenn das Form nicht aktiv ist, trotzdem auf Tastendruck reagiert wird? |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 10.12.2007, 16:13 |
|
|
Also die Form ist sowieso unsichtbar und wird nirgends angezeigt
aber er soll trotzdem die Tastendrücke überwachen und bei einem Tastendruck ne Messaeg asusgeben |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 10.12.2007, 16:21 |
|
|
Ok habs nun kapiert. Lass einfach das Formular immer im Vordergrund anzeigen,
dann nimmt es auch die befehle auf. Du brauchst zuerst paar Private Declares:
| Code: | Private Declare Function SetWindowPos Lib _
"User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long |
Das hier kommt dann ins Form_Load:
| Code: | | Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) |
Fertig. :> |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 10.12.2007, 17:18 |
|
|
ok das hab ich soweit auch
aber wenn das fenster nicht mehr aktiv ist
zb. wenn ich auf "Desktop Anzeigen" gehe oder ein anderes Programm öffnen geht das auch nicht mehr
wie kann ich denn mein Fenster immer Enabled lassen ? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 10.12.2007, 17:24 |
|
|
Vielleicht funzt es so:
| Code: | Schleife
Me.Show
GoTo Schleife |
Ich weiß aber jetzt nicht genau ob er das Form neu anzeigt und das darunterliegende schließt.
Aber probiers einfach mal.
€d!t: Hab mal ein wenig für dich gesucht. Setz mal die Eigenschaft "Borderstyle" vom Formular auf "3". Das Formular sollte jetzt auch nach Klick auf "Desktop anzeigen" im Vordergrund sein.
Das hier braucsht du aber immernoch:
Private Declares:
| Code: | Private Declare Function SetWindowPos Lib _
"User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long |
Form_Load:
| Code: | | Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) |
Und btw möchtest du einen Keylogger coden? |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 10.12.2007, 18:01 |
|
|
nö das sollte ein "Anti Cheater" werden
jetzt brauch ich nur noch ein paat tastendrücke
aber vielen dank für deine Hilfe ^^ |
|
| |
|
|
Registrieren
Login
Wie findet ihr meine Sig?