Sendkeys in VB6

[mafaisal]

Hello Experts

I am Using VB6,
My doubt is how to send keys in more than one keys
i mean
Windowbutton + D ,Alt+Ctrl+Delet e,Windowbutton + R etc

ie For one Key eg : To tab sendkeys (vbtab) or sendkeys("{Tab} ")
This is only tab button

so this how to work for morethan one button...?

Thanks in Advance

Faisal

[QVeen72]

Hi,

Find the proper code and send them continuosly..

say this will send Alt+ F4:
SendKeys "%{F4}"

Regards
Veena

[mafaisal]

Thanx For reply
I want for Windowbutton + D: How to send

Hi,

Find the proper code and send them continuosly..

say this will send Alt+ F4:
SendKeys "%{F4}"

Regards
Veena

[QVeen72]

Hi,

Not sure if you can send keys for that..
Another possible solution is Add this Reference to your project:
"Microsoft Shell Controls And Automation"
and use this code :

[code=vb]
Private Sub Command1_Click( )
Dim Mysh As New Shell32.Shell
Mysh.MinimizeAl l
End Sub
[/code]

Regards
Veena

[mafaisal]

Hi
Thanx For that
My Usage is When a keypress on command button
We can lock the computer for that key is Windowbutton + L how to do in VB6

for that i ask for send keys

Faisal

Hi,

Not sure if you can send keys for that..
Another possible solution is Add this Reference to your project:
"Microsoft Shell Controls And Automation"
and use this code :

[code=vb]
Private Sub Command1_Click( )
Dim Mysh As New Shell32.Shell
Mysh.MinimizeAl l
End Sub
[/code]

Regards
Veena

[debasisdas]

You can't handle the window key.

[QVeen72]

Hi,

Yes, it is not possible through SendKeys, You have to use API..

declare this on top of form :
[code=vb]
Private Declare Function LockWorkStation Lib "user32.dll " () As Long

Private Sub cmdLock_Click()
LockWorkStation
End Sub
[/code]


Regards
Veena

[mafaisal]

Hi Veena
Sorry for the delay
Thanx For Replying
It is Working

Faisal

Hi,

Yes, it is not possible through SendKeys, You have to use API..

declare this on top of form :
[code=vb]
Private Declare Function LockWorkStation Lib "user32.dll " () As Long

Private Sub cmdLock_Click()
LockWorkStation
End Sub
[/code]


Regards
Veena