Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Simulare la paression e di un tasto
Forum - Visual Basic 6 - Simulare la paression e di un tasto - Pagina 3

Pagine: [ 1 2 3 4 5 ] Precedente | Prossimo
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 20:40
Lunedì, 17/03/2008
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 il 17/03/2008 alle 20:40
PM Quote
Avatar
FrnbacYescO (Normal User)
Pro


Messaggi: 102
Iscritto: 15/03/2008

Segnala al moderatore
Postato alle 20:47
Lunedì, 17/03/2008
si lo sò infatti il timer già c'è....

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 20:52
Lunedì, 17/03/2008
allora il problema è risolto no? O_o

PM Quote
Avatar
FrnbacYescO (Normal User)
Pro


Messaggi: 102
Iscritto: 15/03/2008

Segnala al moderatore
Postato alle 22:07
Lunedì, 17/03/2008
per metà XD ... vorrei ke si attivasse la pressione del tasto solo se è selezionata la finestra del gioco...

PM Quote
Avatar
TheLizard (Ex-Member)
Pro


Messaggi: 87
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 22:10
Lunedì, 17/03/2008
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..

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 22:17
Lunedì, 17/03/2008
Ecco la soluzione al tuo problema:

Codice sorgente - presumibilmente VB.NET

  1. Option Explicit
  2.  
  3. Private Declare Function GetActiveWindow Lib "user32" () As Long
  4. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  5. Private Declare Function GetForegroundWindow Lib "user32" () As Long
  6. __________________________________________________
  7.  
  8. Private Sub Timer1_Timer()
  9. Dim foreground_hwnd As Long
  10. Dim txt As String
  11. Dim length As Long
  12.  
  13.     foreground_hwnd = GetForegroundWindow()
  14.  
  15.     txt = Space$(1024)
  16.     length = GetWindowText(foreground_hwnd, txt, Len(txt))
  17.     txt = Left$(txt, length)
  18.  
  19.     lblCaption = txt
  20.    
  21.     If txt = "Caption Finestra gioco" Then
  22.    
  23.     Timer1.Enabled = True
  24.  
  25.     end if
  26. 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 il 17/03/2008 alle 22:19
PM Quote
Avatar
FrnbacYescO (Normal User)
Pro


Messaggi: 102
Iscritto: 15/03/2008

Segnala al moderatore
Postato alle 22:42
Lunedì, 17/03/2008
provo subito e ti faccio saper ... grazie

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 22:43
Lunedì, 17/03/2008
vadi vadi :D

PM Quote
Pagine: [ 1 2 3 4 5 ] Precedente | Prossimo