|
You last visited: Today at 17:40
Advertisement
[Frage]Hotkeys in VB 2008?
Discussion on [Frage]Hotkeys in VB 2008? within the .NET Languages forum part of the Coders Den category.
08/18/2010, 18:08
|
#1
|
elite*gold: LOCKED
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
|
[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
|
|
|
|
08/18/2010, 18:15
|
#2
|
elite*gold: 0 
Join Date: Apr 2009
Posts: 1,898
Received Thanks: 303
|
Aber einen fertigen Code gebe ich dir nicht :x
|
|
|
|
|
08/18/2010, 18:25
|
#3
|
elite*gold: LOCKED
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
|
funzt bei mir iwie ned -.-
MfG
|
|
|
|
|
08/18/2010, 18:29
|
#4
|
elite*gold: 0
Join Date: Apr 2009
Posts: 1,898
Received Thanks: 303
|
Wie ist denn dein bisheriger code?
|
|
|
|
|
08/18/2010, 18:44
|
#5
|
elite*gold: LOCKED
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:
|
|
|
|
|
08/18/2010, 19:13
|
#6
|
elite*gold: 260
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!
|
|
|
|
|
08/19/2010, 01:03
|
#7
|
elite*gold: LOCKED
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
|
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 
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)^^
|
|
|
|
|
08/19/2010, 14:32
|
#8
|
elite*gold: 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^^.
|
|
|
|
|
08/20/2010, 01:07
|
#9
|
elite*gold: LOCKED
Join Date: Sep 2009
Posts: 138
Received Thanks: 9
|
kann geclosed werden
thx an Madd Eye
MfG
|
|
|
|
|
08/24/2010, 16:32
|
#10
|
elite*gold: 192
Join Date: Aug 2010
Posts: 3,677
Received Thanks: 513
|
Ein tipp für dich versuch das mal mit Google oder auch Youtube
viel spaß noch
|
|
|
|
 |
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 +1. The time now is 17:41.
|
|
![[Frage]Hotkeys in VB 2008?](https://www.elitepvpers.com/forum/iconimages/net-languages/frage-hotkeys-vb-2008-a_ltr.gif){kind=small}
