sendkeys error permission denied 70 in vb

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

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

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

Did you read that article I posted the link to?

Quote:

---

Originally Posted by From Article

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.

---

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

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

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

Code:

---

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

thank you problem solved.

Quote:

---

Originally Posted by raghavendran

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

Code:

---

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

---

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 ..