typen zonder toetsenbord

Status
Niet open voor verdere reacties.
het ligt aan deze stuk dat hij niet oneindig gaat...

Do While dir < 20

Als je goed kijkt gaat hij dus die tekst "1+1=2" 20 keer doen en daarna houd hij dus op

en die met die spatie... in de forum heb ik "<---" erachter gezet ( die moet je wel weghalen he :P )
 
Laatst bewerkt:
Nou doet ie t!:D :D :D :D :D

nou moet je hem zelf maar eens gaan proberen!!
 
zal de code wel ff posten:

Code:
 Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")


Set WshShell = WScript.CreateObject ("WScript.Shell")
Do While dir < 20 

WScript.Sleep 150 
WshShell.SendKeys "{1}" 
WScript.Sleep 150 
WshShell.SendKeys "{+}" 
WScript.Sleep 150 
WshShell.SendKeys "{1}" 
WScript.Sleep 150 
WshShell.SendKeys "{=}"
WScript.Sleep 150 
WshShell.SendKeys "{2}" 

dir = dir + 1 

loop

je opent kladblok, je plakt bovenstaande code, klik op bestand, opslaan als, alle bestanden, nu een naam invoeren (voorbeeld: voorbeeld.vbs), opslaan

en uitvoeren


Bedankt:thumb: maar in welke taal is dit dan geschreven, en waarvoor dient de taal? (ik gok Visual BaSic heb er gewoon nog maar van gehoord meer niet :D )
alvast bedankt, :thumb:

ceke
 
Laatst bewerkt:
maarehh, kan jij hem ook oneindig laten doorgaan? is wel leuk!

Code:
Do While dir < 20 
'deze loop wordt alleen uitgevoerd wanneer de variabele 'dir' lager is dan 20.
dir = dir + 1
loop


Als je bovenstaande vervangt door een oneindige loop, zoals svdww doet, zal je programma oneindig blijven doorgaan.

edit: spuit 11 :D
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan