[HELP]Whats wrong with this?
[HELP]Whats wrong with this?
Yes its me, Golden. the noob back with another question 
Whats wrong with this code?
Whats wrong with this code?
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.F5) Then
Timer1.Enabled = True
ElseIf GetAsyncKeyState(Keys.F6) Then
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If GetAsyncKeyState(Keys.F5) Then
Timer1.Enabled = True
ElseIf GetAsyncKeyState(Keys.F6) Then
Timer1.Enabled = False
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Timer1.Enabled = True Then
Label1.Text = "AFK BOT ENABLED, PRESS F6 TO DISABLE!"
Label1.ForeColor = Color.Green
ElseIf Timer1.Enabled = False Then
Label1.Text = "AFK BOT DISABLED, PRESS F5 TO ENABLE!"
Label1.ForeColor = Color.Red
End If
End Sub
End Class
Logic... as soon as you stop the timer you cant get it to work again... <.< and why the hell you have the key check on form load? no reason...
Your timer will only start when you press the key, which is being checked if pressed on the timer it self... So... you see whats the problem there? (and why a label click?)
Your timer will only start when you press the key, which is being checked if pressed on the timer it self... So... you see whats the problem there? (and why a label click?)
Originally Posted by Brinuz
Logic... as soon as you stop the timer you cant get it to work again... <.< and why the hell you have the key check on form load? no reason...
Your timer will only start when you press the key, which is being checked if pressed on the timer it self... So... you see whats the problem there? (and why a label click?)
Your timer will only start when you press the key, which is being checked if pressed on the timer it self... So... you see whats the problem there? (and why a label click?)
[php]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.F5) Then
Timer1.Enabled = True
ElseIf GetAsyncKeyState(Keys.F6) Then
Timer1.Enabled = False
End If
End Sub
[/php]
Once you've pressed F6 this timer is no longer active and therefore any code contained within it is null and void.
Create a new timer specifically for hotkeys.
i.e
[php]
Private Sub Hotkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkeys.Tick
dim Start as boolean = GetAsyncKeyState(Keys.F5)
dim Stop as Boolean = GetAsyncKeyState(Keys.F6)
If Start Then
Timer1.Enabled = True
ElseIf Stop Then
Timer1.Enabled = False
End If
End Sub
[/php]
Something like that
Originally Posted by Brinuz
Logic... as soon as you stop the timer you cant get it to work again... <.< and why the hell you have the key check on form load? no reason...
Your timer will only start when you press the key, which is being checked if pressed on the timer it self... So... you see whats the problem there? (and why a label click?)
Your timer will only start when you press the key, which is being checked if pressed on the timer it self... So... you see whats the problem there? (and why a label click?)
also i lol! so hard when i seen the hotkey in the load event
the way i do my hotkeys is set the timer to 50 interval
edit:
Ok, Techial helped me out over teamviewer :P
Another noob question ( i havent used VB in a month... ) whats the word for space
Because
SendKeys.Send("{Space}") is wrong.?
Another noob question ( i havent used VB in a month... ) whats the word for space
Because
SendKeys.Send("{Space}") is wrong.?
Originally Posted by Golden.
Ok, Techial helped me out over teamviewer :P
Another noob question ( i havent used VB in a month... ) whats the word for space
Because
SendKeys.Send("{Space}") is wrong.?
Another noob question ( i havent used VB in a month... ) whats the word for space
Because
SendKeys.Send("{Space}") is wrong.?
Code:
SendKeys.Send(" ")
Lol no,That prints ' Space ' as text
I Want it to press spacebar xD
I Want it to press spacebar xD
Originally Posted by Golden.
Lol no,That prints ' Space ' as text
I Want it to press spacebar xD
I Want it to press spacebar xD
Ahh
But i want it to press Space key
i understand what you are saying
But this is an Afk bot, so by pressing space it will jump :3
But i want it to press Space key
i understand what you are saying
But this is an Afk bot, so by pressing space it will jump :3
Originally Posted by Golden.
Ahh
But i want it to press Space key
i understand what you are saying
But this is an Afk bot, so by pressing space it will jump :3
But i want it to press Space key
i understand what you are saying
But this is an Afk bot, so by pressing space it will jump :3
Public Declare Function keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) As Long
Const KEYEVENTF_KEYUP = &H2
[/php]
[php]
Public Sub PressKey (ByVal tehkey as Keys)
keybd_event(tehkey, 0, 0, 0)
keybd_event(tehkey, 0, KEYEVENTF_KEYUP, 0)
End Sub
[/php]
[php]
PressKey(Keys.Space)
[/php]
There you go, completely noob proof.
Kinda the same... :
[php]#Region "Press Key"
Declare Sub keybd_event Lib "user32.dll" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub pk(ByVal vk As Int32) 'press key
keybd_event(vk, 0&, 0&, 0&)
keybd_event(vk, 0&, KEYEVENTF_KEYUP, 0&)
End Sub
#End Region
[/php]
[php]pk(keys.f5)[/php]
http://www.mpgh.net/forum/33-visual-...ot-code-s.html
[php]#Region "Press Key"
Declare Sub keybd_event Lib "user32.dll" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub pk(ByVal vk As Int32) 'press key
keybd_event(vk, 0&, 0&, 0&)
keybd_event(vk, 0&, KEYEVENTF_KEYUP, 0&)
End Sub
#End Region
[/php]
[php]pk(keys.f5)[/php]
http://www.mpgh.net/forum/33-visual-...ot-code-s.html
J-Deezy Solved it.
Thanks man
~ Close please.
Thanks man
~ Close please.
Originally Posted by Blubb1337
Kinda the same... :
[php]#Region "Press Key"
Declare Sub keybd_event Lib "user32.dll" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub pk(ByVal vk As Int32) 'press key
keybd_event(vk, 0&, 0&, 0&)
keybd_event(vk, 0&, KEYEVENTF_KEYUP, 0&)
End Sub
#End Region
[/php]
[php]pk(keys.f5)[/php]
http://www.mpgh.net/forum/33-visual-...ot-code-s.html
[php]#Region "Press Key"
Declare Sub keybd_event Lib "user32.dll" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub pk(ByVal vk As Int32) 'press key
keybd_event(vk, 0&, 0&, 0&)
keybd_event(vk, 0&, KEYEVENTF_KEYUP, 0&)
End Sub
#End Region
[/php]
[php]pk(keys.f5)[/php]
http://www.mpgh.net/forum/33-visual-...ot-code-s.html
I am just pointing out that this has just been posted a day ago. With a little bit of researching(Search Function) he could have found it.
+ we have a sticky about that.
= Copy Cat11!111eleven!11one!!
+ we have a sticky about that.
= Copy Cat11!111eleven!11one!! Originally Posted by Blubb1337
I am just pointing out that this has just been posted a day ago. With a little bit of researching(Search Function) he could have found it.
+ we have a sticky about that.
= Copy Cat11!111eleven!11one!!
+ we have a sticky about that.
= Copy Cat11!111eleven!11one!! = C+P nub.Similar Threads
- 6Last post
- 7Last post
- 3Last post
- 1Last post
- 1Last post