Mijn computerspook geeft de geest

[ALDOGGEN]

Ik heb dus een bestandje gemaakt, maar nu werkt het opeens niet meer. Er komt een bericht dat zegt dat er een syntaxisfout is op regel 497 teken 1 (sub tpz (text)).
Kan iemand mij helpen, want volgens mij is dat geen fout (en al zeker geen syntaxisfout). Ik zal de code een beetje inkorten (sommige punten doen er niet toe), dus het gaat om regel 39.
Sorry dat het zo'n lange code is.

Set shell = CreateObject("Wscript.shell")
shell.run ("""%windir%\system32\notepad.exe")
for d = 1 to 1
a=inputbox("Typ maar.")
select case a
case ""
set a = nothing
for b = 1 to 1
a=inputbox("Typ maar iets.")
select case a
case ""
b = b - 1
case else
end select
next
set b = nothing
case else
end select
select case a
case a < 7
shell.sendkeys("Z")
wscript.sleep 50
shell.sendkeys("o")
wscript.sleep 50
shell.sendkeys(" ")
wscript.sleep 50
shell.sendkeys("k")
wscript.sleep 50
shell.sendkeys("o")
wscript.sleep 50
shell.sendkeys("r")
wscript.sleep 50
shell.sendkeys("t")
wscript.sleep 50
shell.sendkeys(".{enter}{enter}")
case else
end select
b = len(a)
sub tpz (text)
wscript.sleep 50
shell.sendkeys(mid(a,text,1))
end sub
sub typiets
for c = 1 to b 
tpz (c)
next
end sub
typiets
shell.sendkeys("W")
wscript.sleep 50
shell.sendkeys("i")
wscript.sleep 50
shell.sendkeys("l")
wscript.sleep 50
shell.sendkeys(" ")
wscript.sleep 50
shell.sendkeys("j")
wscript.sleep 50
shell.sendkeys("e")
wscript.sleep 50
shell.sendkeys(" ")
wscript.sleep 50
shell.sendkeys("n")
wscript.sleep 50
shell.sendkeys("o")
wscript.sleep 50
shell.sendkeys("g")
wscript.sleep 50
shell.sendkeys(" ")
wscript.sleep 50
shell.sendkeys("e")
wscript.sleep 50
shell.sendkeys("e")
wscript.sleep 50
shell.sendkeys("n")
wscript.sleep 50
shell.sendkeys(" ")
wscript.sleep 50
shell.sendkeys("k")
wscript.sleep 50
shell.sendkeys("e")
wscript.sleep 50
shell.sendkeys("e")
wscript.sleep 50
shell.sendkeys("r")
wscript.sleep 50
shell.sendkeys("?{enter}{enter}")
d=msgbox("",4)
select case d
case 6
i = i - 1
case 7
msgbox "Oke, dan niet."
msgbox "Doei :-)"
end select
next
'variabelen zijn shell, a, b, c, d, tpz, text,

Als ik nog iets vergeten ben, mag je het altijd zeggen

 

[edmoor]

Het ontbreken van inspringpunten op de juiste posities weerhoud me van het bekijken van die code.

 

[tobiastheebe]

Maakt het verschil als je Sub tpz(text) verandert naar Function tpz(text)?
Een subroutine kan namelijk niet aangeroepen met een argument, daarvoor moet je een functie gebruiken.

 

[ALDOGGEN]

Maakt het verschil als je Sub tpz(text) verandert naar Function tpz(text)?
Een subroutine kan namelijk niet aangeroepen met een argument, daarvoor moet je een functie gebruiken.

Dat zal ik eens proberen.

Voor de duidelijkheid ivm mijn titel: het bestand heet Machinespook.vbs

Edit: function werkt ook niet. Ik zal het eens zonder routine proberen.

Edit: dat werkt ik ga even wat andere kleine foutjes er uit halen.

Edit: Heel erg bedankt om er eens naar te kijken .