Toetsenbord

Status
Niet open voor verdere reacties.
P

poehe

Gebruiker
Lid geworden
29 jan 2008
Berichten
8
Ik ben opzoek hoe ik via VB toetsenbord kan besturen, ik heb gezocht op internet en kwam VBoard for Visual Studio 6 tegen maar helaas is hier alleen een demo van waarna je natuurlijk er voor moet betalen waar ik geen zin in heb ( ik heb niet voor niets VB gekocht :P) , Ik hoop dat iemand mij kan helpen hiermee!

gr Poehe
 
poehe zei:
Ik ben opzoek hoe ik via VB toetsenbord kan besturen, ik heb gezocht op internet en kwam VBoard for Visual Studio 6 tegen maar helaas is hier alleen een demo van waarna je natuurlijk er voor moet betalen waar ik geen zin in heb ( ik heb niet voor niets VB gekocht :P) , Ik hoop dat iemand mij kan helpen hiermee!

gr Poehe
Klik om te vergroten...

hoi

Heb jij betaald vor visual basic???
ikke heb em gwn gedownload.... wrrm zouden sommige mensen voor vb moeten betalen en sommige niet???
volgens mij moet je als je je toetsenbord wilt gebruiken werken met keypress. maar dat weet ik nie ckr??

Bart Hoogmoed
 
ik ben een een programma aan het schrijven voor een RPG trainer ik heb al een timertje gemaakt met codes dat hij om de 3 sec een nieuwe opdracht kan doen, het lopen binnen de het spel gaat met ASDW en aanvallen is een gewoon link het is mijn bedoeling dit automatisch te maken het aanvallen kan geloof ik vrij makkelijk omdat de valau namelijk altijd gelijk is namelijk ATTACK
 
poehe zei:
ik ben een een programma aan het schrijven voor een RPG trainer ik heb al een timertje gemaakt met codes dat hij om de 3 sec een nieuwe opdracht kan doen, het lopen binnen de het spel gaat met ASDW en aanvallen is een gewoon link het is mijn bedoeling dit automatisch te maken het aanvallen kan geloof ik vrij makkelijk omdat de valau namelijk altijd gelijk is namelijk ATTACK
Klik om te vergroten...

o simulate a keypress in VB 6.0, use the SendKey command. Look it up at msdn.microsoft.com. I've found this can be used to control menus on applications and add text using Dynamic Data Exchanges. However, it doesn't create key events that can execute cheats on my sega megadrive emulator! Does anybody know how to do that?

It'll send keypresses to the active window. To simulate ENTER and BACKSPACE:

SendKeys "{enter}", True
SendKeys "{backspace}", True

Use a Timer object to execute the time delay. At design time set Timer.Enabled = False otherwise things'll go crazy.

Make a command button that does this:

Private Sub cmdSend_Click()

Timer.Enabled = True

End Sub

And get the timer to do something like this:

Private Sub Timer_Timer()

Timer.Enabled = False
SendKeys txtString.Text, True

End Sub


( dit heb ik gevonden wat misschien mij wel handig lijkt maar ik krijg het niet voor elkaar het te gebruiken waarvoor ik het wil gebruiken )
 
veel makkelijker is de v_keyboard (ehm, laat ik zeggen, een module die ervoor zorgt dat je alle keyboard knopjes kan simuleren)

als iemand m wil, roep maar.
 
Vegras zei:
veel makkelijker is de v_keyboard (ehm, laat ik zeggen, een module die ervoor zorgt dat je alle keyboard knopjes kan simuleren)

als iemand m wil, roep maar.
Klik om te vergroten...

uuh nouh miss kan ik daar iets mee zou je die kunnen sturen naar m'n hotmail?

gr poehe
 
zo is het makkelijker.

Kopieer dit gewoon en plak het in een module:


keyboard.bas
Code: 
Attribute VB_Name = "Keyboard"
Option Explicit
Private Declare Function MapVirtualKey Lib "user32" Alias _
   "MapVirtualKeyA" (ByVal wCode As Long, _
   ByVal wMapType As Long) As Long
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal _
   cChar As Byte) As Integer
   Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
   bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As _
   Long) As Integer
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Public Enum enumKeys
    keyPrntScr = &H2C
    keystart = &H5B
    keyBackspace = &H8
    keyTab = &H9
    keyReturn = &HD
    keyShift = &H10
    keycontrol = &H11
    keyAlt = &H12
    keyPause = &H13
    keyEscape = &H1B
    keySpace = &H20
    keyEnd = &H23
    keyHome = &H24
    keyLeft = &H25
    KeyUp = &H26
    keyRight = &H27
    KeyDown = &H28
    keyInsert = &H2D
    keyDelete = &H2E
    keyF1 = &H70
    keyF2 = &H71
    keyF3 = &H72
    keyF4 = &H73
    keyF5 = &H74
    keyF6 = &H75
    keyF7 = &H76
    keyF8 = &H77
    keyF9 = &H78
    keyF10 = &H79
    keyF11 = &H7A
    keyF12 = &H7B
    keyNumLock = &H90
    keyScrollLock = &H91
    keyCapsLock = &H14
End Enum
Public Sub PressKey(sKey As String, Optional bHold As Boolean, Optional _
   bRelease As Boolean)
    Dim nVK As Long
    nVK = VkKeyScan(Asc(sKey))
    If nVK = 0 Then
        Exit Sub
    End If
    Dim nScan As Long
    Dim nExtended As Long
    nScan = MapVirtualKey(nVK, 2)
    nExtended = 0
    If nScan = 0 Then
        nExtended = KEYEVENTF_EXTENDEDKEY
    End If
    nScan = MapVirtualKey(nVK, 0)
    Dim bShift As Boolean
    Dim bCtrl As Boolean
    Dim bAlt As Boolean
    bShift = (nVK And &H100)
    bCtrl = (nVK And &H200)
    bAlt = (nVK And &H400)
    nVK = (nVK And &HFF)
    If Not bRelease Then
        If bShift Then
            keybd_event enumKeys.keyShift, 0, 0, 0
        End If
        If bCtrl Then
            keybd_event enumKeys.keycontrol, 0, 0, 0
        End If
        If bAlt Then
            keybd_event enumKeys.keyAlt, 0, 0, 0
        End If
    
        keybd_event nVK, nScan, nExtended, 0
    End If
    If Not bHold Then
        keybd_event nVK, nScan, KEYEVENTF_KEYUP Or nExtended, 0
        If bShift Then
            keybd_event enumKeys.keyShift, 0, KEYEVENTF_KEYUP, 0
        End If
        If bCtrl Then
            keybd_event enumKeys.keycontrol, 0, KEYEVENTF_KEYUP, 0
        End If
        If bAlt Then
            keybd_event enumKeys.keyAlt, 0, KEYEVENTF_KEYUP, 0
        End If
    End If
End Sub
Public Sub PressKeyVK(keyPress As enumKeys, Optional bHold As Boolean, _
   Optional bRelease As Boolean, Optional bCompatible As Boolean)
    Dim nScan As Long
    Dim nExtended As Long
    nScan = MapVirtualKey(keyPress, 2)
    nExtended = 0
    If nScan = 0 Then
        nExtended = KEYEVENTF_EXTENDEDKEY
    End If
    nScan = MapVirtualKey(keyPress, 0)
    If bCompatible Then
        nExtended = 0
    End If
    If Not bRelease Then
        keybd_event keyPress, nScan, nExtended, 0
    End If
    If Not bHold Then
        keybd_event keyPress, nScan, KEYEVENTF_KEYUP Or nExtended, 0
    End If
End Sub
 
ok nice thanks,

maar dan heb ik nog een vraag

heb je ook codes voor VB 6.0

waarmee ik dan bv achter een timer een leter kan laten typen ( het is m'n bedoeling om rpg trainer te maken en in deze rpg word er gelopen in een stad met de letters a s d w

gr poehe
 
de module is voor 6.0 :)

maar, err, zoiets?

1) voeg 1 timer toe, interval = 1000 (voor 1 seconde)
2) deze code in de timer:
Code: 
PressKeyVK( ........... )
 
Vegras zei:
de module is voor 6.0 :)

maar, err, zoiets?

1) voeg 1 timer toe, interval = 1000 (voor 1 seconde)
2) deze code in de timer:
Code: 
PressKeyVK( ........... )
Klik om te vergroten...

ok many thanks ik ga me vandaag us helemaal uitleven ;)!hahaha
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan