Fixed code, still need help tho... SIMULATE REAL KEYBOARD COMMANDS

[thegreatone]

Ok, i basically want to send the contents of Text1 to the program defined as Appnum the sending will be done by a timer (every 5 minutes...) where in my code have i gone wrong ?

Private Appnum As Long
Private Sub Command1_Click()
Appnum = Shell("C:\WINDOWS\notepad.exe")
Timer2.Enabled = True
End Sub
 
Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
AppActivate Appnum
SendKeys (Text1.Text)
End Sub

[_visual_basic_]

dont use 2 timers.
use 1 timer and set its interval to 5000 (5 sex)

[thegreatone]

dont use 2 timers.
use 1 timer and set its interval to 5000 (5 sex)

The first timer in that codee is their so that it activates the second timer...

I know the timer work, i don't need help on that, its just the problems with the sendkeys...

[_visual_basic_]

sendkeys "{" & text1.text & "}"

[thegreatone]

sendkeys "{" & text1.text & "}"

Still no luck
Thanks for helpin tho

[_visual_basic_]

i know what the problem is hold on i will post the form soon

[_visual_basic_]

fully functional

[thegreatone]

fully functional

Yay, that does work, BUT, when modified to open another app it DOES send the keys, BUT as the other app ONLY responds to real keyboard shortcuts how do i make it act as if it came from the keyboard ?

[_visual_basic_]

to generate a shortcut

^ stands for alt so ^A or ^+A im not sure what it was

[thegreatone]

to generate a shortcut

^ stands for alt so ^A or ^+A im not sure what it was

Yeah i know that, i mean it only seems to work from actual key presses not VB simulated ones

[dglienna]

it has to have focus for shortcut keys to work

[thegreatone]

it has to have focus for shortcut keys to work

Lol, i kno... is there any way to actually simulate the command from the keyboard to the program, as in, when u press a key it sends the same signal as the one runnin down the ps/2 port ?

[dglienna]

you'd have to find out what it was sending before you could send it. try sending all 256 of them to see which one is correct? you could end up getting lucky?

[thegreatone]

you'd have to find out what it was sending before you could send it. try sending all 256 of them to see which one is correct? you could end up getting lucky?

Lol, that may take some time... if only i could find someone who had already done this..

[RhinoBull]

Is this what you need, thegreatone?

Private Sub Command1_Click()
Dim i%
 
    Shell "notepad", vbNormalFocus
    Clipboard.Clear
    With Text1
        For i = 0 To Len(.Text) - 1
            SendKeys Mid(.Text, i + 1, 1)
        Next i
    End With
    SendKeys "^{c}"
    SendKeys "^{v}"
 
End Sub

[dglienna]

i don't think he is talking about notepad. not sure what it is, though

[RhinoBull]

i don't think he is talking about notepad. not sure what it is, though

... then what would this mean? ...

Private Appnum As Long
Private Sub Command1_Click()
    Appnum = Shell("C:\WINDOWS\notepad.exe")
    Timer2.Enabled = True
End Sub

[dglienna]

BUT, when modified to open another app it DOES send the keys, BUT as the other app ONLY responds to real keyboard shortcuts how do i make it act as if it came from the keyboard ?

AND

...same signal as the one runnin down the ps/2 port

I wasn't sure what he meant, either.

[RhinoBull]

I guess we just have to wait until he responds ...

[RobDog888]

You can use the keybd_event API to send keypreses or mouseclicks to
a window that you can make active and focused.

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

An example at allapi.net

HTH

[thegreatone]

Sorry i took so long to reply, so far the closest thing to what i am trying to do is posted by robdog, BUT i am still far from acheiving what i am wanting to do.

Ok, i am really trying to make this understandable, so here goes :

When you press a key on your keyboard a signal is sent through the wire to the computer, i want a Visual Basic program to be able to simulate that exact thing. This program MUST be able to make the computer think a key is bieng pressed somehow, and the API and sendkeys features do not do this. Am i aiming far too high for a VB program ?

[RobDog888]

Checkout the example (keyboard animation) for SetKeyboardState API here.

[thegreatone]

The API does ntohing for me, it doesn't even affect the keyboard lights, needless to say, i think this really would work if it was modified, and then i would have exactly what i wanted, so, anyone want to try and make the example coding work for me ?