Keypress ?

[Jmacp]

How do i get a keypress to simulate ?

Like i have this old comp games that you need to press 'o' for left and 'p' for right. so i want to be able to click a command button that will press these keys for me alternating in a loop. I also want to be able to increase the speed of this alternation .

any ideas ?

[Buzby]

Look at SendKeys in the help files.

[Jmacp]

Ok thanks.

Do i need to code it so that the keys will be send to the app that run this game or how does it work ?

[BrianS]

May want to look into a Macro program also, it can do all that for you.

[manavo11]

Also look for the keyb_event API

[Buzby]

Start a form, and put a Timer control on it from the toolbox.
Set the timer's Enabled property to False, and set the Interval property to 500

Also put a button on the form, and in the Click event of the button:

Private Sub Command1_Click()
If Timer1.Enabled = True Then
    Timer1.Enabled = False
Else
    AppActivate "Microsoft Word", True
    Timer1.Enabled = True
End If
End Sub

I've used Microsoft Word here - but if you put the title of the program (what appears in the title bar of the window) this should work.

Then, in the Timer event of the timer control:

Private Sub Timer1_Timer()
Static LastKey As String
 
If LastKey = "O" Then
    SendKeys "P", True
    LastKey = "P"
Else
    SendKeys "O", True
    LastKey = "O"
End If
DoEvents
End Sub

This will send the O and P keypresses to the activated application (in my case, Microsoft Word). Use the button to switch the timer on or off.

Vary the Interval property of the timer to speed up / slow down the keypresses. (a smaller number is faster)

[Jmacp]

Originally posted by Buzby
Start a form, and put a Timer control on it from the toolbox.
Set the timer's Enabled property to False, and set the Interval property to 500

Also put a button on the form, and in the Click event of the button:

Private Sub Command1_Click()
If Timer1.Enabled = True Then
    Timer1.Enabled = False
Else
    AppActivate "Microsoft Word", True
    Timer1.Enabled = True
End If
End Sub

I've used Microsoft Word here - but if you put the title of the program (what appears in the title bar of the window) this should work.

Then, in the Timer event of the timer control:

Private Sub Timer1_Timer()
Static LastKey As String
 
If LastKey = "O" Then
    SendKeys "P", True
    LastKey = "P"
Else
    SendKeys "O", True
    LastKey = "O"
End If
DoEvents
End Sub

This will send the O and P keypresses to the activated application (in my case, Microsoft Word). Use the button to switch the timer on or off.

Vary the Interval property of the timer to speed up / slow down the keypresses. (a smaller number is faster)

Perfect ! thanks.

[Jmacp]

Ok this doesnt actually server my purpose.

I want to shell cmd then run a command in it, then when that command has finished running, do something else,

shellandwait "cmd /k netstat-n"

shell "shutdown.exe -s"

but if using shellandwait it waits for cmd to be shut down before i can progress in my code if that makes sense ?

[Buzby]

Try using

shellandwait "cmd /C netstat-n"

having a /K in there makes the window stay open after the cmd has finished - putting a /C in there makes the window close.

I'm confused.. what does this have to do with SendKeys ?