Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


VB6 getasynckeystate problem

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Discussions
View previous topic :: View next topic  
Author Message
fransiscusbunaren
How do I cheat?
Reputation: 0

Joined: 21 Dec 2014
Posts: 7
Location: Indonesia
PostPosted: Sat Feb 21, 2015 4:20 am    Post subject: VB6 getasynckeystate problem Reply with quote
I want to make hotkey for my own cheat. But the problem is , the hotkey doesn't give me respond (no reaction) , but when the window is focus to the other programs, it will show a respond. Maybe someone can help me

Thank You
Back to top
View user's profile Send private message
STN
I post too much
Reputation: 43

Joined: 09 Nov 2005
Posts: 2676
PostPosted: Sat Feb 21, 2015 8:40 am    Post subject: Reply with quote
Paste your code
_________________
Cheat Requests/Tables- Fearless Cheat Engine
https://fearlessrevolution.com
Back to top
View user's profile Send private message
aikoncwd
Grandmaster Cheater
Reputation: 23

Joined: 21 Dec 2012
Posts: 591
Location: Spain (Barcelona)
PostPosted: Sat Feb 21, 2015 1:52 pm    Post subject: Reply with quote
Here is a full source code written in VB6, it uses GetAsyncKeyState to make the hotkeys:

https://www.mediafire.com/?k7rkb64n15pmeb0

Also, here is the code:

Code:

Private Sub Timer2_Timer()
    On Error Resume Next
    If GetAsyncKeyState(vbKeyF1) Then       '[F1] HotKey: Play/Stop music
        If Musica = 1 Then
            BASSMOD_MusicPause
            Musica = 0
        Else
            BASSMOD_MusicPlay
            Musica = 1
        End If
    End If
   
    If GetAsyncKeyState(vbKeyF2) Then       '[F2] HotKey: Select next chiptune
        Static chip As Integer
        chip = chip + 1
        If chip = 11 Then chip = 1
        Call stopXM("chiptune.xm")
        DoEvents
        Call LoadMusic(chip)
    End If
   
    If GetAsyncKeyState(vbKeyF3) Then       '[F3] HotKey: Show NFO viewer
        Form2.Show
    End If
    If Form2.Visible = True Then
        If GetAsyncKeyState(vbKeyUp) Then
            Call Form2.Subir
        End If
        If GetAsyncKeyState(vbKeyDown) Then
            Call Form2.Bajar
        End If
        If GetAsyncKeyState(vbKeyA) Then
            If Form2.tU.Enabled = True Then
                Form2.tU.Enabled = False
            Else
                Form2.tU.Enabled = True
            End If
        End If
    End If
End Sub

_________________
Hey Hitler
Test here your skill with CheatEngine, I coded a challenge for you. Try to beat it!
HERE
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Discussions All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites