[VB6] Uso di SendKeys() in Windows Vista

[LisseiBlu]

SendKeys in Windows Vista..... Ho un problema.

Eseguendo un programma in debug su un siste,a operativo Windows Vista al momento in cui si esegue la seguente istruzione:
Sendkeys "{DOWN}"

mi dice autorizzazione negata !

Qualcuno sa darmi una soluzione ?

Grazie.

[LisseiBlu]

Fatti una domanda e datti una risposta!!!!

E' la seconda volta che in questo forum mi faccio una domanda e mi dò una risposta....
celeri......

il problema si risolve con questa Sub:

Option Explicit

Private Const KEYEVENTF_KEYUP = &H2
Private Const INPUT_KEYBOARD = 1

Private Type KEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
End Type

Private Type GENERALINPUT
dwType As Long
xi(0 To 23) As Byte
End Type

Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Function SendKeysA(ByVal vKey As Integer, Optional booDown As Boolean = False)
Dim GInput(0) As GENERALINPUT
Dim KInput As KEYBDINPUT
KInput.wVk = vKey
If Not booDown Then
KInput.dwFlags = KEYEVENTF_KEYUP
End If
GInput(0).dwType = INPUT_KEYBOARD
CopyMemory GInput(0).xi(0), KInput, Len(KInput)
Call SendInput(1, GInput(0), Len(GInput(0)))
End Function


inserendo il codice ascii corrispondente al tasto che si vuole digitare...
Grazie a tutti!!!!!!!!!!!!

[oregon]

Originariamente inviato da LisseiBlu
E' la seconda volta che in questo forum mi faccio una domanda e mi dò una risposta....

Fossi in te, per la terza domanda, attenderei qualche giorno prima di postare nel forum ...

[tippolo]

Fossi in te, per la terza domanda, attenderei qualche giorno prima di postare nel forum ...

Se posso dire la mia, basterebbe inserire un DoEvents

[LisseiBlu]

il guaio è che la maggior parte delle volte nn ho tempo per aspettare "qualche giorno"!!

[oregon]

Originariamente inviato da LisseiBlu
il guaio è che la maggior parte delle volte nn ho tempo per aspettare "qualche giorno"!!

Allora affidati ad un servizio di assistenza a pagamento ... puoi anche ottenere risposte entro 2 ore ...

[LisseiBlu]

Originariamente inviato da oregon
Allora affidati ad un servizio di assistenza a pagamento ... puoi anche ottenere risposte entro 2 ore ...

Se sei un moderatore devo farti i miei complimenti per come sponsorizzi il tuo Forum!!!

Sono un poveraccio e nn posso comprarmi le informazioni... altrimenti mi toglievo da tutti gli impicci e lo facevo fare ad altri il mio lavoro!!!!

E chiudo quì il discorso.


P.S.
In tempo per modificare il mio post....
sei un semplice "Utente di HTML.it"... nn ti conviene fare affermazioni del genere...

[oregon]

Originariamente inviato da LisseiBlu
Sono un poveraccio e nn posso comprarmi le informazioni... altrimenti mi toglievo da tutti gli impicci e lo facevo fare ad altri il mio lavoro!!!!

Ok ... allora frasi "critiche" del tipo

"E' la seconda volta che in questo forum mi faccio una domanda e mi dò una risposta....
celeri......"

mi sembrano fuori luogo ...

... sei un semplice "Utente di HTML.it"... nn ti conviene fare affermazioni del genere...

E perche' mai?

[wallrider]

Originariamente inviato da LisseiBlu
...
sei un semplice "Utente di HTML.it"... nn ti conviene fare affermazioni del genere...

[dibesw]

Ho provato la routine, ma non funziona se il campo di arrivo è una combobox, cioè se si digita un carattere la combobox si apre automaticamente facendo l'elenco delle stringhe che iniziano per quella lettera (con Espansione Automatica=Si), ma con questa routine la combobox non si apre automaticamente. Come si può risolvere?