[Frage]Hotkeys in VB 2008?

Hallo liebe Commu.

Ich habe eine Frage zu Visual BAsic 2008.

Undzwar ich habe einen Spammer (selbst programierT)

und nun suche ich seit stunden im internet und porbiere ständig selber irgendwas neues :S aber leider nix dabei rausgekommen.

Und auf wunsch kann ich den Code auch hier rein posten.

Ich bräuchte etwas, wenn man F5 drückt dass timer1 startet und bei F6 timer1 ausgeht oder halt aufhört (timer1.Start() und Timer1.Close())

MfG

Jeder Beitrag dermit weiterhilft wird mit einem THANKS belohnt!!

MfG

[Only registered and activated users can see links. Click Here To Register...]

Aber einen fertigen Code gebe ich dir nicht :x

funzt bei mir iwie ned -.-
MfG

Wie ist denn dein bisheriger code?

[Only registered and activated users can see links. Click Here To Register...]

Mein Code sieht folgendermaßen aus:

Quote:

Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = False Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = TextBox5.Text Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() My.Computer.Keyboard.SendKeys(TextBox1.Text + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() ) Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() My.Computer.Keyboard.SendKeys("{ENTER}") Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False End Sub End Class

Hier ein Screen von der Form:

[Only registered and activated users can see links. Click Here To Register...]

€: so sollte es besser sein^^ hab den code gekürzt

ist aber vom inhalt her gleich ^^

€²: falls ihr den Screen ned gescheit erkennen könnt, hier der Link zum SCREEN:

[Only registered and activated users can see links. Click Here To Register...]

Have Fun!

Quote:

Originally Posted by Madd Eye Code: Class Form1 '======================================================================== 'Deklerationen '======================================================================== Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer) Private Const Key_NONE As Integer = &H0 Private Const WM_HOTKEY As Integer = &H312 '======================================================================== 'Das Abfrage Event '======================================================================== Protected Overrides Sub WndProc(ByRef m As Message) 'die messages auswerten If m.Msg = WM_HOTKEY Then 'hier wird entschieden welcher hotkey es war 'einfach die übergebene id auswerten Select Case m.WParam Case 1 MessageBox.Show("Sie haben die Tab-Taste gedrückt!") Case 2 MessageBox.Show("Sie haben die 1 gedrückt!") End Select End If MyBase.WndProc(m) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = False Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() '======================================================================== 'Hotkeys Regestrieren '======================================================================== RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Tab) RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.D1) End Sub '======================================================================== 'Hotkeys wieder Freigeben '======================================================================== Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing UnregisterHotKey(Me.Handle, 1) UnregisterHotKey(Me.Handle, 2) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = TextBox5.Text Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() My.Computer.Keyboard.SendKeys(TextBox1.Text + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() ) Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() My.Computer.Keyboard.SendKeys("{ENTER}") Me.Text = "Spammer by p1k0glup1k2" + " " + My.Computer.Clock.LocalTime.Millisecond.ToString() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False End Sub End Class Have Fun!

werde es mal ausprobieren :D

hast schon mal ein thx :D

€: k thx ;D hat funktioniert :D

gebe dir credits :D auch wenn ich den ned pub machen werde ^^ (nur für mich und freunde)^^

ahh danke ich hatte meine hotkeys früher immer mit keyboardHooks b.z.w. SetWindowsHookEx gemacht^^.

kann geclosed werden :D

thx an Madd Eye

MfG

Ein tipp für dich versuch das mal mit Google oder auch Youtube

viel spaß noch