17/03/08 19:40
allora imposta un intervallo al timer in modo da avere il tempo d mettere in primo piano il gioco...
spero di averti aiutato
Ultima modifica effettuata da 17/03/08 19:40
17/03/08 19:47
FrnbacYescO
si lo sò infatti il timer già c'è....
aaa
17/03/08 19:52
allora il problema è risolto no? O_o
17/03/08 21:07
FrnbacYescO
per metà XD ... vorrei ke si attivasse la pressione del tasto solo se è selezionata la finestra del gioco...
aaa
17/03/08 21:10
TheLizard
mmm
non ho mai fatto una cosa del genere, ma penso che devi prendere l'id della finestra in primo piano..
dovrebbe essere "semplicemente" questo..
aaa
17/03/08 21:17
Ecco la soluzione al tuo problema:
Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
__________________________________________________
Private Sub Timer1_Timer()
Dim foreground_hwnd As Long
Dim txt As String
Dim length As Long
foreground_hwnd = GetForegroundWindow()
txt = Space$(1024)
length = GetWindowText(foreground_hwnd, txt, Len(txt))
txt = Left$(txt, length)
lblCaption = txt
If txt = "Caption Finestra gioco" Then
Timer1.Enabled = True
end if
End Sub
se hai problemi cioè non sai qual'è la caption del gioco... allora leva l'if
e memorizza in una variabile a caption e la metti inuna textbox... così sapraiqual'è è la metti...
spero di essere stato chiao
SCUSATE GLI ERRORI ORTOGRAFICI MA NON SO PERCHè ALCUNI TASTI NON ME LI METTE O_o
Ultima modifica effettuata da 17/03/08 21:19
17/03/08 21:42
FrnbacYescO
provo subito e ti faccio saper ... grazie
aaa