typen zonder toetsenbord

[DjEngin]

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 )

 

[Dillondarko]

Nou doet ie t!

nou moet je hem zelf maar eens gaan proberen!!

 

[ceke]

zal de code wel ff posten:

 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 )
alvast bedankt, :thumb:

ceke

 

[Dillondarko]

ja in visual basic

 

[CoD_NL]

maarehh, kan jij hem ook oneindig laten doorgaan? is wel leuk!

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