Hallo

[Project Rivalry]

-.- ^^ oben auf projekt / neues element hinzufügen / dann klasse
dann löscht du alles bei der klasse und gibts folgendes ein:

PHP Code:

Public Class clsHotKey 
    Implements IMessageFilter 
    Private Declare Function RegisterHotKey Lib "user32" (ByVal Hwnd As IntPtr, ByVal ID As Integer, ByVal Modifiers As Integer, ByVal Key As Integer) As Integer 
    Private Declare Function UnregisterHotKey Lib "user32" (ByVal Hwnd As IntPtr, ByVal ID As Integer) As Integer 
    Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal IDString As String) As Short 
    Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal Atom As Short) As Short 
    Public Class HotKeyObject 
        Private mHotKey As Keys 
        Private mModifier As MODKEY 
        Private mHotKeyID As String 
        Private mAtomID As Short 

        Public Property HotKey() As Keys 
            Get 
                Return mHotKey 
            End Get 
            Set(ByVal value As Keys) 
                mHotKey = value 
            End Set 
        End Property 

        Public Property Modifier() As MODKEY 
            Get 
                Return mModifier 
            End Get 
            Set(ByVal value As MODKEY) 
                mModifier = value 
            End Set 
        End Property 

        Public Property HotKeyID() As String 
            Get 
                Return mHotKeyID 
            End Get 
            Set(ByVal value As String) 
                mHotKeyID = value 
            End Set 
        End Property 

        Public Property AtomID() As Short 
            Get 
                Return mAtomID 
            End Get 
            Set(ByVal value As Short) 
                mAtomID = value 
            End Set 
        End Property 

        Sub New(ByVal NewHotKey As Keys, ByVal NewModifier As MODKEY, ByVal NewHotKeyID As String) 
            mHotKey = NewHotKey 
            mModifier = NewModifier 
            mHotKeyID = NewHotKeyID 
        End Sub 
    End Class 
    Private mForm As Form 
    Private Const WM_HOTKEY As Integer = &H312 
    Private mHotKeyList As New System.Collections.Generic.Dictionary(Of Short, HotKeyObject) 
    Private mHotKeyIDList As New System.Collections.Generic.Dictionary(Of String, Short) 
    Public Event HotKeyPressed(ByVal HotKeyID As String) 

    Public Enum MODKEY As Integer 
        MOD_ALT = 1 
        MOD_CONTROL = 2 
        MOD_SHIFT = 4 
        MOD_WIN = 8 
    End Enum 
    Sub New(ByVal OwnerForm As Form) 
        mForm = OwnerForm 
        Application.AddMessageFilter(Me) 
    End Sub 
    Public Sub AddHotKey(ByVal KeyCode As Keys, ByVal Modifiers As MODKEY, ByVal HotKeyID As String) 
        If mHotKeyIDList.ContainsKey(HotKeyID) = True Then Exit Sub 
        Dim ID As Short = GlobalAddAtom(HotKeyID) 
        mHotKeyIDList.Add(HotKeyID, ID) 
        mHotKeyList.Add(ID, New HotKeyObject(KeyCode, Modifiers, HotKeyID)) 
        RegisterHotKey(mForm.Handle, ID, mHotKeyList(ID).Modifier, mHotKeyList(ID).HotKey) 
    End Sub 
    Public Sub RemoveHotKey(ByVal HotKeyID As String) 
        If mHotKeyIDList.ContainsKey(HotKeyID) = False Then Exit Sub 
        Dim ID As Short = mHotKeyIDList(HotKeyID) 
        mHotKeyIDList.Remove(HotKeyID) 
        mHotKeyList.Remove(ID) 
        UnregisterHotKey(mForm.Handle, CInt(ID)) 
        GlobalDeleteAtom(ID) 
    End Sub 

    Private Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage 
        If m.Msg = WM_HOTKEY Then 
            RaiseEvent HotKeyPressed(mHotKeyList(CShort(m.WParam)).HotKeyID) 
        End If 
    End Function 
End Class 


[WhiteCollar]

danke^^ funkt supa^^

[Project Rivalry]

np =DD....

[WhiteCollar]

Ehm sry habe noch ne farge ^^ wie kann man machen das der timer nachdem er den code gesendet hat noch ca 1-3 sec wartet und dann erst von neu anfängt
??^^

[Project Rivalry]

du kannst den timer ja auf 3000 stellen dan schickt er die sachen alle 3 sek

[WhiteCollar]

ja das problem ist der spammt die seite voll sonn dan ca 2 sec warten bis die weider offen ist und dan wieder von oben weitermacehn also zo das der spammt dan enter dan wieder von oben von neu das der weider von oben anfängt geht ja einfach einfach nur tab aba ka wie ich maceh das der den tab erst nach 3 sec stertet

[Project Rivalry]

bau noch nen timer ein das ist am einfachsten...
aber tab muss man anders machen glaub mit "{tabulator}" ich kuck gleich nochmal


so gefunden ... =DDD


Taste Tastencode
Rücktaste {BACKSPACE}, {BS} oder {BKSP}
Pause {BREAK}
Feststelltaste {CAPSLOCK}
Entf {DELETE} oder {DEL}
Nach unten, Nach oben {DOWN}, {UP}
Nach links, Nach rechts {LEFT}, {RIGHT}
Ende {END}
Eingabetaste {ENTER}
ESC {ESC}
Hilfe {HELP}
Pos1 {HOME}
Einfg {INSERT} oder {INS}
NUM-Feststelltaste {NUMLOCK}
Bild auf, Bild ab {PGUP}, {PGDN}
Rollen-Festelltaste {SCROLLLOCK}
TAB {TAB}
F1, F2, ... F16 {F1}, {F2}, ... {F16}

[WhiteCollar]

^^ ja das ahbe ich schon er geht auch^^ habe das irgentwie selber geschaft xDD^^

[Project Rivalry]

xD so ist es gut =DDD so lernt man ne sprache einfach los coden naja ok bei kleinen programmen wenns se größer werden muss man struktureirter dran

[SmackJew]

Tipp: (Thread-)Titel haben einen Sinn, nämlich eine kurze prägnante Zusammenfassung des Thematisierten zu liefern. Stell dir mal vor jemand hat das gleiche Problem wie du und sucht hier im Forum nach "VB Zufallszahl". Dieser Jemand fände wahrscheinlich einige Threads, und er wird sich natürlich nicht alle gefundenen Threads angucken. Er guckt sich Threads an die ihm sinnvoll erscheinen, aber im schlimmsten Fall findet er trotzdem keine Lösung. Und weißt du warum? Weil du deinen Thread "Hallo" genannt hast, und obwohl er die Problemlösung enthält, wird der Suchende ihn nicht anklicken. Und weißt du was dann passiert? Er eröffnet einen neuen Thread mit der selben Frage und dem Kommentar "In der SuFu habe ich nichts gefunden", das WWW ist um einige kb Datenmüll reicher und es sterben einige Babyrobben oder afrikanische Kinder.

Willst du ein Mörder sein?

[WhiteCollar]

ja aich ahbe das ausversehen hallo genannt sry ^^