Ciao a tutti...
siccome conosco molto poco il linguaggio VB volevo chiedervi come si poteva fare per ripetere all'infinito un codice...
Esempio: io ho creato un prog che apre Notepad e scrive CIAO..
questo è il codice:
Sub form_load()
Dim ReturnValue, I
ReturnValue = Shell("NOTEPAD.EXE", 1)
AppActivate ReturnValue
SendKeys "CIAO", True
SendKeys "{ENTER}", True
End Sub
Non c'è un codice o qualcosa invece di copiare le stringhe SendKeys fino all'infinito? Grazie
per il VB abbiamo un subforum apposito. sposto là
...Terrible warlords, good warlords, and an english song
Vedi ke è sempliccisimo. Basta ke riesci a generare un infinite loop, per esempio fai un ciclo until ke finisce solo quando 1=0 e dentro ci metti solo 1 sendkeys. Siccome 1 non è mai uguale a 0 (almeno l'ultima volta ke ho controllato), il ciclo non terminerà mai e andrà avanti fino a quando la persona non forzerà la kiusura del programma tramite Ctrl+Alt+Canc o riavvierà il pc....
:gren:
Sorry per l'ignoranza...
Per cui il codice diventerebbe....?
Aspetta un po' ke lo faccio e posto...
Ecco qui il codice ke desideravi. Ti consiglio di non provarlo fuori dall'ambiente di progettazione, specialmente se hai un pc lento, altrimenti nn sapresti + come fermarlo. Per fermarlo dall'ambiente di progettazione, clicca sul quadratino nella barra degli strumenti (Stop).
Private Sub Form_Load()
Dim ReturnValue, I
ReturnValue = Shell("NOTEPAD.EXE", 1)
AppActivate ReturnValue
Do Until 1 = 0
SendKeys "CIAO", True
SendKeys "{ENTER}", True
Loop
End Sub
Enjoy!
Grazie dell'aiuto...
Di niente
perchè devi far fare un confronto?Do Until 1 = 0
non puoi fare direttamente
Do
-----codice
Loop
???
Non lo so, nn homai provato, ho sempre fatto così e cmq funzia... ciao junx!
Permessi di invio
Rispondi quotando