Megalomaniac
16.03.2010, 23:24
Hey Leute,
komm grad nicht weiter und kann mir nicht erklären worans liegt.
Wollte mal ne Idee zu globalen hotkeys realisieren und bin nun bei VB gelandet, hab davor nicht wirklich was damit programmiert. Sonst nur Java und C.
Was nich funzt:
möchte mit dem zweiten Timer das steuern des ersten Timers (fragt ab ob taste gedrückt ist und führt dan SendKeys aus/nicht aus - funzt auch wunderbar!) erreichen. Sprich wenn ich ne Taste drücke, stelle ich den ersten Timer auf Enabled False oder True! Aber genau das macht er nicht. An der Taste ansich liegts nicht die nimmt er schon.. Jemand ne Idee?
Greetz:.
Timer1:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If CheckBox1.Checked = False Then
If CBool(GetAsyncKeyState(CLng(Asc(TextBox1.Text))) And 32768) = True Then SendKeys.Send(TextBox2.Text)
Else
If CBool(GetAsyncKeyState(CLng(TextBox1.Text)) And 32768) = True Then SendKeys.Send(Chr(CInt(TextBox2.Text)))
End If
End Sub
Timer2:
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Enabled = True
Timer2.Interval = CInt(TextBox3.Text)
If CBool(GetAsyncKeyState(VK_DELETE) = True) Then Timer1.Enabled = False
If CBool(GetAsyncKeyState(VK_END) = True) Then Timer1.Enabled = True
End Sub
End Class
komm grad nicht weiter und kann mir nicht erklären worans liegt.
Wollte mal ne Idee zu globalen hotkeys realisieren und bin nun bei VB gelandet, hab davor nicht wirklich was damit programmiert. Sonst nur Java und C.
Was nich funzt:
möchte mit dem zweiten Timer das steuern des ersten Timers (fragt ab ob taste gedrückt ist und führt dan SendKeys aus/nicht aus - funzt auch wunderbar!) erreichen. Sprich wenn ich ne Taste drücke, stelle ich den ersten Timer auf Enabled False oder True! Aber genau das macht er nicht. An der Taste ansich liegts nicht die nimmt er schon.. Jemand ne Idee?
Greetz:.
Timer1:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If CheckBox1.Checked = False Then
If CBool(GetAsyncKeyState(CLng(Asc(TextBox1.Text))) And 32768) = True Then SendKeys.Send(TextBox2.Text)
Else
If CBool(GetAsyncKeyState(CLng(TextBox1.Text)) And 32768) = True Then SendKeys.Send(Chr(CInt(TextBox2.Text)))
End If
End Sub
Timer2:
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Enabled = True
Timer2.Interval = CInt(TextBox3.Text)
If CBool(GetAsyncKeyState(VK_DELETE) = True) Then Timer1.Enabled = False
If CBool(GetAsyncKeyState(VK_END) = True) Then Timer1.Enabled = True
End Sub
End Class