| View previous topic :: View next topic |
| Author |
Message |
killar456
Master Cheater
![]() Reputation: 0
Joined: 30 Mar 2007
Posts: 415
|
 Posted: Fri Dec 14, 2007 10:12 pm Post subject: need help with this code!!!!!!!! fast |
 |
|
| Code: | Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Command1_Click()
If Combo1.Text = "Yes" Then
Combo2.Text = "yes"
Timer1.Enabled = True
Timer2.Enabled = True
Else
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_Change()
Timer1.Interval = Val(Text1.Text & "000")
End Sub
Private Sub Text2_Change()
Timer1.Interval = Val(Text2.Text & "000")
End Sub
Private Sub Timer1_Timer()
SendKeys "{Ctrl}"
End Sub
Private Sub Timer2_Timer()
SendKeys "{space}"
End Sub
Private Sub Timer3_Timer()
If GetAsyncKeyState("VbKeyctrl" & "vbkeyS") Then
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub
|
it says block if without end if, but there is a end if....... help plz
Last edited by killar456 on Sat Dec 15, 2007 12:29 pm; edited 6 times in total |
|
| Back to top |
|
 |
Hack-Addict
Master Cheater
 Reputation: 0
Joined: 20 Nov 2007
Posts: 287
|
| Posted: Fri Dec 14, 2007 11:51 pm Post subject: |
|
|
Wait, are you looking at the source for the code? or just using the exe?
_________________
|
|
| Back to top |
|
|
killar456
Master Cheater
![]() Reputation: 0
Joined: 30 Mar 2007
Posts: 415
|
| Posted: Sat Dec 15, 2007 8:58 am Post subject: |
|
|
what i want is a bot the presses ctrl and space, and i dont know about the sendkeys function, i dont know the keys is it like | Code: | SendKeys "Control"
SendKeys "spacebar" |
something like that 
and that ends when you press ctrl + s
and i want to program it myself, so the source code for vb6
just need some help |
|
| Back to top |
|
|
AtheistCrusader
Grandmaster Cheater
![]() Reputation: 6
Joined: 23 Sep 2006
Posts: 681
|
| Posted: Sat Dec 15, 2007 10:12 am Post subject: |
|
|
use api : GetAsincKeyState i think...
anyway
in timer1
SendKeys {control or ctrl}
sendkeys {space}
in timer2
if getasynckeystate ("VbKeyctrl" & "vbkeyS") then
timer1.enabled = false
end if
i think thats it. |
|
| Back to top |
|
|
killar456
Master Cheater
![]() Reputation: 0
Joined: 30 Mar 2007
Posts: 415
|
| Posted: Sat Dec 15, 2007 12:59 pm Post subject: |
|
|
| new help plz |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
