Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › .NET Languages
[Frage]Hotkeys in VB 2008? [Frage]Hotkeys in VB 2008?
You last visited: Today at 22:28

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[Frage]Hotkeys in VB 2008?

Discussion on [Frage]Hotkeys in VB 2008? within the .NET Languages forum part of the Coders Den category.

Reply
 
Old   #1
 
.Dumm.'s Avatar
 
elite*gold: LOCKED
The Black Market: 1/0/0
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
Question [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
.Dumm. is offline  
Old   #2
 
Yakiyo's Avatar
 
elite*gold: 0
The Black Market: 46/0/1
Join Date: Apr 2009
Posts: 1,898
Received Thanks: 303


Aber einen fertigen Code gebe ich dir nicht :x
Yakiyo is offline  
Thanks
1 User
Old   #3
 
.Dumm.'s Avatar
 
elite*gold: LOCKED
The Black Market: 1/0/0
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
funzt bei mir iwie ned -.-
MfG
.Dumm. is offline  
Old   #4
 
Yakiyo's Avatar
 
elite*gold: 0
The Black Market: 46/0/1
Join Date: Apr 2009
Posts: 1,898
Received Thanks: 303
Wie ist denn dein bisheriger code?
Yakiyo is offline  
Old   #5
 
.Dumm.'s Avatar
 
elite*gold: LOCKED
The Black Market: 1/0/0
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
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:



€: 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:
.Dumm. is offline  
Old   #6
 
Madd Eye's Avatar
 
elite*gold: 260
The Black Market: 3/0/0
Join Date: Apr 2010
Posts: 229
Received Thanks: 142
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!
Madd Eye is offline  
Thanks
1 User
Old   #7
 
.Dumm.'s Avatar
 
elite*gold: LOCKED
The Black Market: 1/0/0
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
Quote:
Originally Posted by Madd Eye View Post
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

hast schon mal ein thx

€: k thx ;D hat funktioniert

gebe dir credits auch wenn ich den ned pub machen werde ^^ (nur für mich und freunde)^^
.Dumm. is offline  
Old   #8
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2010
Posts: 793
Received Thanks: 268
ahh danke ich hatte meine hotkeys früher immer mit keyboardHooks b.z.w. SetWindowsHookEx gemacht^^.
nkkk is offline  
Old   #9
 
.Dumm.'s Avatar
 
elite*gold: LOCKED
The Black Market: 1/0/0
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
kann geclosed werden

thx an Madd Eye

MfG
.Dumm. is offline  
Old   #10




 
ShapyShape's Avatar
 
elite*gold: 192
The Black Market: 397/0/0
Join Date: Aug 2010
Posts: 3,684
Received Thanks: 513
Ein tipp für dich versuch das mal mit Google oder auch Youtube

viel spaß noch
ShapyShape is offline  
Reply

« C# Fragen | Vb frage »

Similar Threads Similar Threads
Visual Basic 2008 Frage
06/16/2010 - .NET Languages - 4 Replies
Hi leute ich hab ein paar fragen zu visual basic 2008 codes: 1. ich hab bei verschidenen downloadern von anderen im forum gesehen das sie eine externe datei für die links wo man den patch sever url rein schreiben muss damit er von dort downloadet. Wie bekomme ich das bei meinem Patcher hin.Hab im Web dazu nichts gefunden. hoffe ihr könnt mir helfen. mfg headshot94.
[VB 2008] Eine Frage
05/26/2010 - .NET Languages - 6 Replies
Hi, habe eine frage ich musik und kann ich die aktievieren durch ein bestimmten button also wenn ich z.B. auf start drück das ddann die musik kommt und geht das dann auch auf anderen pcs die die lieder nicht haben aber ich sie irgednwie specihern kann oder so oder kannn ich ein music video in vb 2008 einfügen jede hilfreiche antowrt kriegt ein thx lg xlx00xlx
kleine autoit frage bezüglich hotkeys
04/24/2010 - AutoIt - 5 Replies
HotKeySet("{ENTER}", "enter") Global $scriptactive = True Global $entercounter = 0 Func enter() Send("{ENTER}") $scriptactive = False $entercounter += 1 If mod($entercounter, 2) == 0 Then



All times are GMT +2. The time now is 22:28.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.