Visual Basic 6 - (VBKEY)__("{ENTER}")

Salve a tutti....
Ho un problema che no riesco a capire....
Insomma...vorrei che questo codice digitando i relativi tasti F1 F12, non mi si
aprano le relative associazioni ad essi..
Esempio: F1 apre il blocco note..e cosi via, e vorre abbilitare i tasti da F1 ad F2
ed il comando ({enter}) con delle checkbox...
insomma spunto la checkbox relativa al tasto F1 e me lo abilita
spunto la seconda checkbox e mi abilita l ' invio della frase cioè ("{enter}"
Posto il codice:

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF2) Then
SendKeys (Text2.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF3) Then
SendKeys (Text3.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF4) Then
SendKeys (Text4.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF5) Then
SendKeys (Text5.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF6) Then
SendKeys (Text6.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF7) Then
SendKeys (Text7.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF8) Then
SendKeys (Text8.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF9) Then
SendKeys (Text9.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF10) Then
SendKeys (Text10.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF11) Then
SendKeys (Text11.Text) + ("{enter}")
End If

If GetKeyPress(vbKeyF12) Then
SendKeys (Text12.Text) + ("{enter}")
End If

End Sub

Private Sub Form_Load()

Timer1.Interval = "100"

End Sub

non ho capito... tu vuoi disabilitare dei tasti (esterni al tuo progr) e quando sono premuti viene simulata la pressione di enter?

se si a quale scopo?

Piu o meno...
dovrei abilitare il tast1 da F1 ad F12 con delle chekbox
ed abilitare la funzione enter come i tasti F1-F12

u ' altra cosa è ... che, se provo il codice postato....mi fa tutto il necessario
pero vorrei abilitarli con delle chek..
e se lo provo cosi..quando clicco Esempio: su F1 mi si apre il blocco note..
e dovrei anche disabilitare questi comandi appropriati dei tasti in questione
insomma: clicco su F1 o Altri e no mi si devono aprire le finestrine tipo il blocco
note di F1 cosi per tutti gli altri

il programma lo devo usare per l'invio di frasi in una chat, tipo ciao amigos...per non
riscrivere sempre gli emotion..... e i salve o ciao a tutta la chat.....

io avevo un programma che faceva tutto cio che ho descritto...

Cliccavo sulla chek di F1 o altri, e mi abilitiva il rispettivo... tasto e cosi con gli altri..
Spuntavo la chek di enter e mi abilitava l'invio della frase in chat...
Senza abilitare enter... la scriveva soltanto sulla casella di testo della chat senza inviarmela...

e no mi apriva il blocco note sull' esempio F1... e cosi col resto dei tasti sino ad F12

ma le checkbox sono solo 2 che attivano e disattivano il tuo prog o sono tante quante F1, F2, ecc... ??

comunque basta che prima di:
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}"
End If

metti un if... del tipo:
if check1.value = vbchecked then
...
end if

In tutto sono 24 chekbox 12 textbox
le 12 checkbox che attivano i tasti F1 a F12
e 12 checkbox che attivano l ' enter

identico da habboflooder ....

O messa quella if prima del codice in questione... ma mi parte anche se spunto o no la chek

e credo che il problema sia anche nel timer...che spuntanto la chek...si deve attivare
il anche il timer boo.... comunque ti posto il codice che ho scritto..

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer


Private Sub Form_Load()
Timer1.Interval = "100"
End Sub

Private Sub Timer1_Timer()
If Check1.Value = vbChecked Then
End If
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If
End Sub

la check e come se non esistesse.... poi si apre sempre la finestra del blocco note
se clicco su F1.... è questo il problema più grande..... se vedi habboflooder...che è
sempre scritto in vb6...questo problema non lo da.... poi sembra un codice semplice ?
ma davvero non ci si arriva GrG....

ti commento il codice che hai scritto... spero ti renderai conto da solo dell'errore:

Private Sub Form_Load() 'quando si avvia il form
Timer1.Interval = "100" 'ogni 100 millisecondi esegui la sub del timer
End Sub

Private Sub Timer1_Timer() 'sub del timer
If Check1.Value = vbChecked Then 'se la checkbox è "selezionata"
Timer1.enalbled = True 'attiva il timer (che è già attivo, altrimenti non si potrebbe eseguire questo codice...)
End If
If GetKeyPress(vbKeyF1) Then 'eccetera eccetera
SendKeys (Text1.Text) + ("{enter}")
End If
End Sub 

Comunque credo che tu stia agli inizi, ed è forse meglio che ti leggi un bel manuale...

p.s. non conosco habboflooder...

si sono agli inizi evvero....
ma o l intuito per capire le cose..
ma sai gmg.... il codice che ti ho scritto....no so se lo hai percepito...
il problema difficile anche per chi programma e quello che ti ho citato prima..
se io clicco con quel codice F1 si apre il blocco note e no scrive la frase sul blocco note
capisci adesso..... poi il comando enter..cio l invio effettivo della frase... no la scrittura di quello che digito nella textbox... anche quello dovrei attivare....
e ho domandato in molti forum ma nessuno a capito il vero meccanismo del mio codice o
credo no ne sia stato all altezza.... alla check ci sono arrivato prima...ma ho tolto
il timer1.enabled.... comunque se puoi darmi una mano sul mio problema ti ringrazio....
e grazie per il tuo tempo