sendkeys error permission denied 70 in vb

[nivasmane]

hi.... pl help me boss
i have windows 7 profession
i m trying to run my proven vb application in this platfrom
in my appl i have used lot of sendkeys command but in windows 7 it is not working pl...................guide me

Nivas Mane

[Hack]

My advice would be to rewrite your app and get rid of SendKeys.

However, I think if your turn off your UAC you should be able to use that function.

http://www.eggheadcafe.com/software/...-scriptin.aspx

[nivasmane]

hi i m feedup with VB6.0 sendkey command
actually it was working properly in windows xp now i have upgrated to windows 2007 and lot of probelms begain,.
i am running application with administrator user on local machine but till there is error of
permission denied 70 to sendkey commaond which was previously working properly

pl. try to solve my probelm i will be highly obliged


Nivas Mane

[Hack]

Did you read that article I posted the link to?

Microsoft has committed to support VB6 applications in Vista and Windows 7.

However, it appears that support for VB Sendkeys is still lacking. The
latest updates for Windows Vista and Windows 7 appear to support Sendkeys
ONLY if UAC is turned off.

[nivasmane]

thanking you very much . your UAC worked for SENDKEY problem in VB on windows 2007 platfrom
thanks once again

Nivas Mane, Manasi Software services, Kodoli, Maharashtra India, 9890211607

[BubbleZ]

You don't have to completly turn of UAC, just run your application as admin.

[raghavendran]

Write this code in the Module. The Problem is solved.

Public Sub Sendkeys(text$, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys text, wait
   Set WshShell = Nothing
End Sub

Courtesy :
http://blog.rujutainfomedia.com/2010...windows-7.html

[gopalveeranala]

thank you problem solved.

Write this code in the Module. The Problem is solved.

Public Sub Sendkeys(text$, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys text, wait
   Set WshShell = Nothing
End Sub

Courtesy :
http://blog.rujutainfomedia.com/2010...windows-7.html

[momoaal]

Well , i also recommand to rewrite your app and get rid of Sendkeys !
But , here is a Trick that works for me with some old app i made long time ago , and needed to run it again on win 7 , recently (May-2017) !

if your UAC is off , then Turn it on again , Then , Turn it off again .... and RESTART your PC ....
and make sure of using "Run as administrator " ....

Good luck ..