SendKeys() permission denied erreur dans Visual Basic

Je suis en train d'utiliser le SendKeys() commande à une autre fenêtre avec mon application VB6.

Ce que je voulais faire est de cliquer sur un bouton, et ensuite vous avez 10 secondes pour aller à l'autre de la fenêtre avant de l'app envoie quelques clés de cette fenêtre. J'ai tout trié, mais pour une raison quelconque, quand je l'appelle quelque chose comme ceci:

SendKeys ("A")

J'obtiens cette erreur:

Run-time error '70':

Permission denied

Quelqu'un sait-il un moyen de contourner cela? Merci.

Si vous êtes sur Vista, cela pourrait être causé par l'utilisateur account control (UAC). Vous pouvez contourner ce problème en désactivant l'UAC.

OriginalL'auteur Phox | 2010-02-21

  1. 8

    Prendre un coup d'oeil à ce que Karl Peterson a travaillé comme un correctif pour ce sous Vista:

    SendInput

    +1 me battre pour elle. Je pense que cela devrait résoudre le problème
    +1, c'est ce que j'allais suggérer.

    OriginalL'auteur Jim Mack

  2. 8

    Pour Windows 7:
    Modifier les paramètres de contrôle de compte d'utilisateur de ne jamais m'avertir.

    Pour Windows 8 et 10:

    Ajouter cette méthode à n'importe quel module:

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

    Il a bien fonctionné pour moi dans windows 10.

    Merci, cela a fonctionné pour moi.

    OriginalL'auteur Eduardo de Santana

  3. 4

    De remplacement pour VB6 SendKeys est WScript.Shell SendKeys, comme ceci:

    Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "1{+}"

    Voir MSDN pour obtenir de l'aide.

    OriginalL'auteur Roman Plischke

  4. 3

    Sur Windows 7:

    • Ouvrez le Panneau de Contrôle
    • De changement de contrôle de compte d'utilisateur réglage
    • Changer à JAMAIS INFORMER
    • Redémarrer l'ordinateur

    OriginalL'auteur Tales

  5. 2

    Supprimer "msvbvm60.dll" Fichier De L'Application

    Suivez L'Étape Suivante

    1. Clic Droit Sur L'Application .Exe Fichier Et Cliquez Sur Propriété
    2. Cliquez Sur L'Onglet Compatibilité
    3. Cliquez Sur Exécuter Ce Programme en Mode de Compatibilité Et Choisi Windows
      Xp SP2.
    4. Cliquez Sur Exécuter Ce Programme En Tant Qu'Administrateur
    5. Cliquez Sur Appliquer Que Ok.
    6. Supprimer L' "msvbvm60.dll" à Partir Du Dossier de l'Application.

    Tous Fait, Maintenant Démarrer Votre Application En Cours D'Exécution Sans Aucune Erreur Accès Refusé

    Votre réponse a sauvé ma journée.

    OriginalL'auteur Abhishek Singh

  6. 2

    Dans un Module public ajouter:

    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

    Cela va "écraser" Fonction SendKeys

    OriginalL'auteur rubStackOverflow

  7. 1

    Vous pouvez utiliser ce code dans le Module

    Public Sub SendKeyTab(CForm As Form)
On Error Resume Next
Dim G As Single
For G = 0 To CForm .Controls.Count - 1
    If CForm .Controls(G).TabIndex = CForm .ActiveControl.TabIndex + 1 Then CForm .Controls(G).SetFocus
Next
End Sub

    Sur Chaque Niveau

    If KeyCode

    OriginalL'auteur Anand Karia

  8. 0

    le problème est sur vb6 IDE et windows menu contextuel du bureau, et vous ferez comme décrit ici :

    http://www.vbforums.com/showthread.php?747425-SendKeys-and-Windows-8

    et principale référence est ici :

    http://www.vbforums.com/showthread.php?745925-RESOLVED-How-to-trigger-the-desktop-context-menu

    OriginalL'auteur misafer

  9. 0

    Utilisation de cette API:

    Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    et

    keybd_event keycode, 0, 0, 0  'KEY DOWN
keybd_event keycode, 0, KEYEVENTF_KEYUP, 0 'KEY UP

    lorsque le code de la clé est de 32 pour l'espace, 35 pour keyend, 8 pour vbKeyBack, etc.

    Bienvenue DONC! Essayer de donner plus d'explication à vos réponses avec une meilleure mise en forme. Voir Comment répondre à une page pour obtenir de l'aide dans l'amélioration de votre réponse.

    OriginalL'auteur R.Alonso