fout in klein basis scriptje

[as1]

hi,
ik maa gwn wat vb scriptjes voor de lol omdat de rest van me klas dat wel lache vind

maar in mijn laatste script zit een fout die k niet gefixed krijg

dit is me script

X = msgbox ("Hello,vul dit even in", 1024, "As1studios INC. ")

a=inputbox("Wat is je naam?")
msgbox "****** wat een naam zeg," +a 

b=inputbox("wat is je leeftijd?")
X = msgbox ("Hmm bijna n ouwe zeur: " +b, 1024, "As1studios Inc.")

X = msgbox ("Nu ga k wat  leuks doen", 1024, "As1studios Inc.")


Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject 

X = msgbox ("Ja krijg m maar te pakken", 1024, "As1studios Inc.")

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing 

X = msgbox ("Mispoes", 1024, "As1studios Inc.")

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Ohh Dit is dus tog internet..." 

X = msgbox ("Start Internet ns en kijk in BOVENIN t scherm, ik heb je internet explorer titel veranderd, " +a, 1024, "As1studios Inc.")

X = msgbox ("Ik Verander m ff terug vorodat je problemen krijgt, " , 1024, "As1studios Inc.")


strPtn = InputBox("Wil je dat ik m verander")
If (strPtn) = "1" Then: msgbox "Dat is het goede antwoord"
do
If (strPtn) <>1 then: InputBox("IK ACCEPTEER GEEN NEE")
loop
msgbox "test test"



Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Microsoft Internet Exploder"

msgbox "Ok veranderd kijk maar"

msgbox "Oeps :P foutje, nu maak ik m goed"

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Microsoft Internet Explorer"

msgbox ("Ok nu is ie goed, ik ga nu, doei " +a)

en dan loopt ie bij t volgende deel vast:

strPtn = InputBox("Wil je dat ik m verander")
If (strPtn) = "1" Then: msgbox "Dat is het goede antwoord"
do
If (strPtn) <>1 then: InputBox("IK ACCEPTEER GEEN NEE")
loop
msgbox "test test"

Note: ik heb de taal n beetje gefilterd wan thij was eigenlijk best wel grof

MVG
AS1

 

[That Guy]

wat is je fout?

...

do
strPtn = InputBox("Wil je dat ik m verander")
If strPtn = "1" Then
   msgbox "Dat is het goede antwoord"
end if
while strPnt <> "1"

oid?

 

[as1]

lukt niet krijg error,
expected end on line 64 (laatste regel) en als k daar wend neerzet werwacht ie loop ercachter ??? wat nu

 

[That Guy]

strPtn = ""

while strPnt <> "1"
strPtn = InputBox("Wil je dat ik m verander")
If strPtn = "1" Then
   msgbox "Dat is het goede antwoord"
end if
loop

ofzo?

 

[as1]

nope gaat sowieso niet loop without do

en error zegt dat ook

 

[ErikBooy007]

strPtn = ""

while strPnt <> "1"
strPtn = InputBox("Wil je dat ik m verander")
If strPtn = "1" Then
   msgbox "Dat is het goede antwoord"
end if
end while

misschien?

 

[That Guy]

was het niet, 'while-wend' ? Ik ben t vergeten. Maar dat kan je dus ook nog proberen.

 

[as1]

nope hij zegt expected statement

 

[DuneII]

strPtn = InputBox("Wil je dat ik m verander")
If strPtn = "1" Then
   msgbox "Dat is het goede antwoord"
Else
Do while strPtn <> "1"
strPtn = Inputbox("IK ACCEPTEER GEEN NEE!!")
Loop
end if
msgbox "test test"

Zo zou hij het moeten doen(bij mij doet hij het)

 

[as1]

Ja hij werkt maar nu als je 1x nee tikt en daarna ja blijft ie komen met ik accepteer geen nee en de bedoeling was als ik bijv. 1 2 3 of hoevelkeer ook nee typ en daarna ja dat ie dan wel verder gaat

 

[DuneII]

strPtn = InputBox("Wil je dat ik m verander")
A = If strPtn = "1" Then
   msgbox "Dat is het goede antwoord"
Else
strPtn = Inputbox("IK ACCEPTEER GEEN NEE!!")
Goto A
end if
msgbox "test test"

Probeer nu eens. Ik weet niet of dat goto werkt. Kan altijd proberen.

 

[as1]

nope werkt niet syntax error op dezelfde lijn als goto staat maar was wel te proberen

 

[DuneII]

Goed!

intVolgende = "0"
Do while intVolgende = "0" 
strPtn = InputBox("Wil je dat ik m verander")
If strPtn = "1" Then
msgbox "Dat is het goede antwoord"
intVolgende = "1"
Else
Msgbox "IK ACCEPTEER GEEN NEE!!!"
end if
Loop
msgbox "test test"

Zo werkt hij

 

[as1]

dankje hij werkt idd goed nu