Ik vond dit op mijn computer, heb ik een tijdje geleden gemaakt, kan je je vrienden lekker mee in de zeik nemen

Download hier.
nee het is geen liefde link.

Screen:
[img] http://img42.imageshack.u....jpg[/img]

als je andere tekst ofzo erin wilt moet je het maar even zeggen dan doe ik dat..

---

lol nu al 1 fout Dude>?<

---

ht is geen liefde

---

nee het is geen liefde en die fout is omdat ik me een beetje liet gaan tegenover een hoe zeg je dat, een kwajongen.

---

Quote:

nee het is geen liefde en die fout is omdat ik me een beetje liet gaan tegenover een hoe zeg je dat, een kwajongen.

Kan gebeuren

---

Quote:

ht is geen liefde

Change avatar beter Yari is porografisch afbeelding kan je fout voor krijgen...

---

IS er ook een escape knopje vraagt me broertje.
En jah heb het op me broertjes pc uit geprobeer.

---

Quote:

IS er ook een escape knopje vraagt me broertje.
En jah heb het op me broertjes pc uit geprobeer.

dat van windows sluit af, gebeurd echt en alles wat niet opgeslagen is gaat dan verloren... moet je ff op shutdown klikken... maar die andere beeldjes die gaan alleen weg door restart

---

Das easy weg te krijgen

Start --> uitvoeren --> CMD --> shutdown -a

en gwn ctrl alt del -.-

---

Quote:

Das easy weg te krijgen

Start --> uitvoeren --> CMD --> shutdown -a

en gwn ctrl alt del -.-

ja dat is precies wat shutdown.exe doet.
maar zie jij lool.bat maar is weg te krijgen met ctrl+alt+del... er zit een echootje in dus dat gaat niet zomaar

---

Die afsluiten van het systeem is klote
die heb ik in het egt als ik soms opstart en ik moet snel mn rooster bekijken
krijg ik dat klote error dat die automatich afsluit

---

gwn procces er van af sluiten is hij ook maar weer weg

---

haha, gwn naar start gaan dan uitvoeren, cmd en dan shutdown -a in typen, of gwn mijn shutdown.exe gebruiken

---

Quote:

Quote:

ht is geen liefde

Change avatar beter Yari is porografisch afbeelding kan je fout voor krijgen...

nah vind wel mooi zo

---

oke doe maar

---

lol met vbs kan je ook veel kopieer dit en plak in kladblok, en noem hem huib.vbs

strTitle = \"Coise\"

strMsg = \"Typ het wachtwoord in om verder te gaan\" & vbCR
strMsg = strMsg & \"Enter exit om niks te doen\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"© by Thedender & Nubclubber\")

Select Case inp01
Case \"vbs4life\"
MsgBox \"Welkom!\",0+4096,\"Thedender & Nubclubber\"

Dim strMsg,inp01,strTitle,strFlag

strTitle = \"Coise\"

strMsg = \"Enter a Voor systeembeep+vertraging\" & vbCR
strMsg = strMsg & \"Enter b om programma\'s via cmd te openen\" & vbCR
strMsg = strMsg & \"Enter c cd-la open/dicht\" & vbCR
strMsg = strMsg & \"Enter d voor flooder\" & vbCR
strMsg = strMsg & \"Enter e om programma\'s via vbs te openen\" & vbCR
strMsg = strMsg & \"Enter f om star wars in cmd te kijken\" & vbCR
strMsg = strMsg & \"Enter g om naar extra menu te gaan\" & vbCR
strMsg = strMsg & \"Enter exit om weg te gaan\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu<<<© by Thedender & Nubclubber\")

Select Case inp01

Case \"g\"

strTitle = \"Coise\"

strMsg = \"Enter a om de datum te zien\" & vbCR
strMsg = strMsg & \"Enter b om de pc uit te laten spreken\" & vbCR
strMsg = strMsg & \"Enter c om een bericht te sturen naar een andere computer\" & vbCR
strMsg = strMsg & \"Enter d om startpagina van internet te veranderen\" & vbCR
strMsg = strMsg & \"Enter e om wijzigingen in het register te kunnen aanbrengen\" & vbCR
strMsg = strMsg & \"Enter f om de naam waarop de pc geregistreerd staat te verander\" & vbCR
strMsg = strMsg & \"Enter g om merlijn iets te laten zeggen\" & vbCR
strMsg = strMsg & \"Enter h om te laten praten\" & vbCR
strMsg = strMsg & \"Enter i om een meunu van melijn actie te openen\" & vbCR
strMsg = strMsg & \"Enter k om een map aan te maken\" & vbCR
strMsg = strMsg & \"Enter l om een map te deleten\" & vbCR
strMsg = strMsg & \"Enter m om de ip van website te zien\" & vbCR
strMsg = strMsg & \"Enter n om titelbalk van internet te veranderen\" & vbCR
strMsg = strMsg & \"Enter o om naar een website te linken\" & vbCR
strMsg = strMsg & \"Enter p om af te sluiten\" & vbCR
strMsg = strMsg & \"Enter q om te chatten op lan\" & vbCR
strMsg = strMsg & \"Enter r om speciale tekens op te zien\" & vbCR
strMsg = strMsg & \"Enter s om apparaatbeheer te starten\" & vbCR
strMsg = strMsg & \"Enter t om schijfbeheer te starten\" & vbCR
strMsg = strMsg & \"Enter u om een teken te maken\" & vbCR
strMsg = strMsg & \"Enter v om account beheer optestarten\" & vbCR
strMsg = strMsg & \"Enter w om prestatie beheer optestarten\" & vbCR
strMsg = strMsg & \"Enter exit om niks te doen\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu Extra<<<© by Thedender & Nubclubber\")

Select Case inp01

Case \"w\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start perfmon.msc\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"v\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start lusrmgr.msc\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"u\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start eudcedit.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"t\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start diskmgmt.msc\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"s\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start devmgmt.msc\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"r\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start charmap.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"q\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start winchat.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"f\"
Set shl = CreateObject(\"Wscript.shell\")
anderenaam=inputbox(\"vul hier de pc naam in die je wilt.\")
Shl.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\WindowsNT\\CurrentVersion\\RegisteredOwner\", \"\"+anderenaam

Case \"l\"
Set fso = CreateObject(\"Scripting.FileSystemObject\")
mdel=inputbox(\"vul hier het pad in van de map die je wilt verwijderen.\",\"©Thedender & Nubclubber\")
Set aFolder = fso.GetFolder(\"\"+mdel)
aFolder.Delete

case \"k\"
mp=inputbox(\"vul hier de naam die je voor je map wilr\")
path = \"\"+mp
set filesys=CreateObject(\"Scripting.FileSystemObject\")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If

Case \"b\"
spreek=inputbox (\"Wat wil je computer laten zeggen(let op de computer spreekt alles op zijn engels uit!)\")
Set vo = CreateObject(\"SAPI.SpVoice\")
vo.speak \"\"+spreek

Case \"c\"
Dim wsh, who, message, number
set wsh = CreateObject(\"WScript.Shell\")
who = inputbox(\"Aan wie wil je het bericht sturen?\",\"©Thedender & Nubclubber\")
if who = \"\" then
msgbox \"Je moet hier iets intypen\"
WScript.Quit
End if
message = inputbox(\"typ hier je bericht\",\"©Thedender & Nubclubber\",\"typ hier je bericht\")
if message = \"\" then
msgbox \"please write something\"
WScript.Quit
End if
number = inputbox(\"hoeveel keer wil je het bericht verzenden? (niet te veel!\",\"©Thedender & Nubclubber\")
if number = \"\" then
msgbox \"Je moet hier iets intypen\"
WScript.Quit
End if
For i = 1 to number
wsh.Run \"net send\" & \" \" &who& \" \" &message
Next

Case \"a\"
msgbox \"De datum is \" & now & \".\"


Case \"d\"
s=inputbox (\"wat wil je als startpagina?\")
Set shl = CreateObject(\"Wscript.shell\")
Shl.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page\",\"\"+s

Case \"e\"
Set shl = CreateObject(\"Wscript.shell\")
Shl.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableRegistryTools\",\"0\"

Case \"g\"
merlin=inputbox (\"Wat wil je Merlijn laten zeggen?\")
On Error Resume Next
On Error Resume Next
StrAgentName2 = \"MERLIN\"
StrAgentPath2 = \"C:\\Windows\\Msagent\\Chars\\\" & strAgentName2 & \".Acs\"
Set objAgent2 = CreateObject(\"Agent.Control.2\")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,500
ObjPeter.Show
ObjPeter.Play \"GetAttention\"
ObjPeter.Play \"GetAttentionReturn\"
ObjPeter.Speak(\"\")+merlin

Case \"h\"
merlin=inputbox (\"Wat wil je Merlijn laten zeggen?\")
On Error Resume Next
On Error Resume Next
StrAgentName2 = \"MERLIN\"
StrAgentPath2 = \"C:\\Windows\\Msagent\\Chars\\\" & strAgentName2 & \".Acs\"
Set objAgent2 = CreateObject(\"Agent.Control.2\")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,500
ObjPeter.Show
ObjPeter.Play \"GetAttention\"
ObjPeter.Play \"GetAttentionReturn\"
ObjPeter.Speak(\"\")+merlin
wscript.sleep 3000
Set vo = CreateObject(\"SAPI.SpVoice\")
vo.speak \"\"+merlin

Case \"i\"


strTitle = \"Coise\"
On Error Resume Next
On Error Resume Next
StrAgentName2 = \"MERLIN\"
StrAgentPath2 = \"C:\\Windows\\Msagent\\Chars\\\" & strAgentName2 & \".Acs\"
Set objAgent2 = CreateObject(\"Agent.Control.2\")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 500,450
ObjPeter.Show

strMsg = \"Enter a iets te laten zeggen\" & vbCR
strMsg = strMsg & \"Enter b om merlijn iets te laten zeggen + praten\" & vbCR
strMsg = strMsg & \"Enter c om merlijn een beker te laten zien\" & vbCR
strMsg = strMsg & \"Enter d om merlijn je te laten aanstaren\" & vbCR
strMsg = strMsg & \"Enter e om merlijn te laten klappen\" & vbCR
strMsg = strMsg & \"Enter f om merlijn wow te laten zeggen\" & vbCR
strMsg = strMsg & \"Enter g om merlijn te laten trompetteren\" & vbCR
strMsg = strMsg & \"Enter h om merlijns rechterarm te laten uitsteken\" & vbCR
strMsg = strMsg & \"Enter i om merlijns linkerarm te laten uitsteken\" & vbCR
strMsg = strMsg & \"Enter j om merlijns zijn armen te laten uitsteken\" & vbCR
strMsg = strMsg & \"Enter k om merlijn te laten smeken\" & vbCR
strMsg = strMsg & \"Enter l om merlijns hand naar beneden te steken\" & vbCR
strMsg = strMsg & \"Enter m om merlijns zijn armen in de lucht te doen\" & vbCR
strMsg = strMsg & \"Enter exit om niks te doen\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Make your selection\")

Select Case inp01
Case \"a\"
merlin=inputbox (\"Wat wil je Merlijn laten zeggen?\")

ObjPeter.Speak(\"\")+merlin

Case \"b\"
merlin=inputbox (\"Wat wil je Merlijn laten zeggen?\")

ObjPeter.Speak(\"\")+merlin
Set vo = CreateObject(\"SAPI.SpVoice\")
vo.speak \"\"+merlin


Case \"c\"

ObjPeter.Play \"Congratulate\"

Case \"d\"

ObjPeter.Play \"Alert\"

Case \"e\"

ObjPeter.Play \"Congratulate_2\"

Case \"f\"
objPeter.Play \"Surprised\"

Case \"g\"
objPeter.Play \"Announce\"

Case \"h\"
objPeter.Play \"GestureLeft\"

Case \"i\"
objPeter.Play \"GestureRight\"

Case \"j\"
objPeter.Play \"Explain\"

Case \"k\"
objPeter.Play \"Pleased\"

Case \"l\"
objPeter.Play \"GestureDown\"

case \"m\"
objPeter.Play \"GestureUp\"



Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop






Case \"m\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{p}\"
WshShell.SendKeys \"{i}\"
WshShell.SendKeys \"{n}\"
WshShell.SendKeys \"{g}\"
msgbox\"typ de website achter ping in het zwarte venster\"

Case \"n\"
titelbalk=inputbox (\"wat wil je als titelbalk voor IE?\")
Set shl = CreateObject(\"Wscript.shell\")
Shl.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title\",\"\"+titelbalk

Case \"o\"
website=inputbox (\"welke website wil je naar toe?\")
Set shl = CreateObject(\"Wscript.shell\")
shl.run \"\"+website

Case \"p\"
strTitle = \"Coise\"

strMsg = \"Enter a om af te sluiten via vbs\" & vbCR
strMsg = strMsg & \"Enter b om af te sluiten via cmd\" & vbCR
strMsg = strMsg & \"Enter c om opnieuw op te starten via cmd\" & vbCR
strMsg = strMsg & \"Enter d om af te melden via cmd\" & vbCR
strMsg = strMsg & \"Enter exit om niks te doen\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Make your selection\")

Select Case inp01
Case \"a\"
Set OpSysSet = GetObject(\"winmgmts:{(Shutdown)}//./root/cimv2\").ExecQuery(\"select * from Win32_OperatingSystem where Primary=true\")
for each OpSys in OpSysSet
OpSys.ShutDown()
next


Case \"b\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"shutdown -s -t 3\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"c\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"shutdown -r -t 3\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"d\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"shutdown -l -t 3\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop


Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop
Case \"f\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{t}\"
WshShell.SendKeys \"{e}\"
WshShell.SendKeys \"{l}\"
WshShell.SendKeys \"{n}\"
WshShell.SendKeys \"{e}\"
WshShell.SendKeys \"{t}\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"{o}\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"{t}\"
WshShell.SendKeys \"{o}\"
WshShell.SendKeys \"{w}\"
WshShell.SendKeys \"{e}\"
WshShell.SendKeys \"{l}\"
WshShell.SendKeys \"{.}\"
WshShell.SendKeys \"{b}\"
WshShell.SendKeys \"{l}\"
WshShell.SendKeys \"{i}\"
WshShell.SendKeys \"{n}\"
WshShell.SendKeys \"{k}\"
WshShell.SendKeys \"{e}\"
WshShell.SendKeys \"{n}\"
WshShell.SendKeys \"{l}\"
WshShell.SendKeys \"{i}\"
WshShell.SendKeys \"{g}\"
WshShell.SendKeys \"{h}\"
WshShell.SendKeys \"{t}\"
WshShell.SendKeys \"{s}\"
WshShell.SendKeys \"{.}\"
WshShell.SendKeys \"{n}\"
WshShell.SendKeys \"{l}\"
WshShell.SendKeys \"{ENTER}\"

Case \"e\"
strTitle = \"Coise\"

strMsg = \"Enter a om kladblok te openen\" & vbCR
strMsg = strMsg & \"Enter b om cmd op te starten\" & vbCR
strMsg = strMsg & \"Enter c om rekenmachine op te starten\" & vbCR
strMsg = strMsg & \"Enter d om paint op te starten\" & vbCR
strMsg = strMsg & \"Enter e om vergrootglas op te starten\" & vbCR
strMsg = strMsg & \"Enter f om regedit op te starten\" & vbCR
strMsg = strMsg & \"Enter g om games map te openen\" & vbCR
strMsg = strMsg & \"Enter exit om niks te doen\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu<<<© by Thedender & Nubclubber\")

Select Case inp01
Case \"a\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\notepad.exe\"

Case \"b\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"

Case \"c\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\calc.exe\"

Case \"d\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\mspaint.exe\"

Case \"e\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\magnify.exe\"

Case \"f\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\regedt32.exe\"

Case \"g\"
strTitle = \"Coise\"

strMsg = \"Enter a om hartenjager te openen\" & vbCR
strMsg = strMsg & \"Enter exit om weg te gaan\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu<<<© by Thedender & Nubclubber\")

Select Case inp01
Case \"a\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\mshearts.exe\"


Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop







Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop


Case \"b\"


strTitle = \"Coise\"

strMsg = \"Enter a om kladblok te starten\" & vbCR
strMsg = strMsg & \"Enter b om cmd te starten \" & vbCR
strMsg = strMsg & \"Enter c om rekenmachine te starten \" & vbCR
strMsg = strMsg & \"Enter d om paint te starten \" & vbCR
strMsg = strMsg & \"Enter e om vergrootglas te starten \" & vbCR
strMsg = strMsg & \"Enter f om regedit te starten \" & vbCR
strMsg = strMsg & \"Enter h om schermtoetsenbord te start \" & vbCR
strMsg = strMsg & \"Enter i om windows media player te starten \" & vbCR
strMsg = strMsg & \"Enter j om word op te starten \" & vbCR
strMsg = strMsg & \"Enter k om powerpoint op te starten \" & vbCR
strMsg = strMsg & \"Enter l om excel op te starten \" & vbCR
strMsg = strMsg & \"Enter m om internet explore op te starten \" & vbCR
strMsg = strMsg & \"Enter n om games menu te zien \" & vbCR
strMsg = strMsg & \"Enter o om winrar te start \" & vbCR
strMsg = strMsg & \"Enter p om volumebeheer te start \" & vbCR
strMsg = strMsg & \"Enter q om taakbeheer te start \" & vbCR
strMsg = strMsg & \"Enter r om wachtwoord van je account te wijzigen\" & vbCR
strMsg = strMsg & \"Enter exit om weg te gaan \" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu<<<© by Thedender & Nubclubber\")

Select Case inp01


Case \"r\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start syskey.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"q\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start taskmgr.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"p\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start sndvol32.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"


Case \"a\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start notepad.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"




Case \"o\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start WinRar.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"


Case \"n\"
strTitle = \"Coise\"

strMsg = \"Enter a om pinball te openen \" & vbCR
strMsg = strMsg & \"Enter b om spider te openen \" & vbCR
strMsg = strMsg & \"Enter c om freecell te spelen \" & vbCR
strMsg = strMsg & \"Enter d om te dammen(op het internet) \" & vbCR
strMsg = strMsg & \"Enter e om hartenjager te starten \" & vbCR
strMsg = strMsg & \"Enter f om hartenjager te starten (op het internet) \" & vbCR
strMsg = strMsg & \"Enter g om mijnveger te starten \" & vbCR
strMsg = strMsg & \"Enter h om reversi te starten \" & vbCR
strMsg = strMsg & \"Enter i om spades te starten \" & vbCR
strMsg = strMsg & \"Enter j om patience te starten \" & vbCR
strMsg = strMsg & \"Enter exit om weg te gaan \" & vbCR


strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu<<<© by thedender & nubclubber\")

Select Case inp01
Case \"a\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start pinball.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"




Case \"b\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start spider.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"c\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start freecell.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"d\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start chkrzm.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"e\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start mshearts.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"f\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start hrtzzm.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"g\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start winmine.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"h\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start Rvsezm.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"i\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start shvlzm.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"j\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start sol.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"













Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop


Case \"c\"


Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start calc.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"d\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start mspaint.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"b\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"

Case \"e\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start magnify.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"f\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start regedit.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"





Case \"j\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start winword.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"k\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start powerpnt.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"




Case \"l\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start excel.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"


Case \"i\"

Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start iexplore.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"



Case \"m\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start wmplayer.exe\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"

Case \"r\"
Set wshShell = WScript.CreateObject (\"WSCript.shell\")
wshshell.run \"C:\\Windows\\System32\\cmd.exe\"
wscript.sleep 50
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"cd\\windows\\system32\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"start osk\"
WshShell.SendKeys \"{ENTER}\"
WshShell.SendKeys \"exit\"
WshShell.SendKeys \"{ENTER}\"






Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop
Case \"exit\"
wscript.quit
Case \"a\"
strTitle = \"Coise\"

strMsg = \"Enter 1 om 1x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 2 om 2x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 3 om 3x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 4 om 4x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 5 om 5x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 6 om 6x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 7 om 7x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 8 om 8x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 9 om 9x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 10 om 10x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 15 om 15x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 20 om 20x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 25 om 25x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 30 om 30x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 50 om 50x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter 100 om 100x systeem beep te doen\" & vbCR
strMsg = strMsg & \"Enter exit om niks te doen\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Make your selection\")

Select Case inp01
Case \"1\"
a =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")
wscript.sleep +a
Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True

Case \"2\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 2

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"3\"
drie =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 3

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +drie



dir = dir + 1
loop

Case \"4\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 4

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"5\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 5

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"6\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 6

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"7\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 7

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"8\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 8

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"9\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 9

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"10\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 10

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"15\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 15

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee





dir = dir + 1
loop

Case \"20\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 20

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"25\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 25

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"30\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 30

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"50\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 50

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"75\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 75

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"100\"
twee =inputbox (\"Vul hier aantal seconden vertraging in 1000 is 1 seconde 2000 zijn 2 seconden enz. maar niks invoeren is niet mogelijk\")

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 100

Set oWS = WScript.CreateObject(\"WScript.Shell\")
oWS.Run \"%comspec% /c echo \" & Chr(07), 0, True
wscript.sleep +twee



dir = dir + 1
loop

Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select

Loop





Case \"d\"

strTitle = \"Coise\"

strMsg = \"Enter a 10keer flooden\" & vbCR
strMsg = strMsg & \"Enter b 20 keer flooden\" & vbCR
strMsg = strMsg & \"Enter c 50 keer flooden\" & vbCR
strMsg = strMsg & \"Enter exit om weg te gaan\" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,\"Menu<<<© by thedender & nubclubber\")

Select Case inp01
Case \"a\"
b=inputbox(\"Vul hier een zin in\",flooder,\"flooder\")
msgbox\"Het gaat over 3 seconden beginnen\"
wscript.sleep 3000

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 10

WshShell.SendKeys +b
WshShell.Sendkeys \"{enter}\"

dir = dir + 1
loop

wscript.quit


Case \"b\"

c=inputbox(\"Vul hier een zin in\",flooder,\"flooder\")
msgbox\"Het gaat over 3 seconden beginnen\"
wscript.sleep 3000

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 20

WshShell.SendKeys +c
WshShell.Sendkeys \"{enter}\"

dir = dir + 1
loop

wscript.quit



Case \"c\"

d=inputbox(\"Vul hier een zin in\",flooder,\"flooder\")
msgbox\"Het gaat over 3 seconden beginnen\"
wscript.sleep 3000

set WshShell=CreateObject(\"WScript.Shell\")

Do While dir < 50

WshShell.SendKeys +d
WshShell.Sendkeys \"{enter}\"

dir = dir + 1
loop

wscript.quit

Case \"exit\"
Wscript.quit

Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select
Loop

Case \"c\"
y= msgbox(\"Zal ik het laadje open doen?\",vbYesNo)
If = VbNo Then wscript.quit
If = VbYes Then
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
End if
x= msgbox(\"Zal ik \'m weer voor je dicht doen?\",vbYesNo)
If (x) = VbNo Then wscript.quit
If (x) = VbYes Then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
end if








Case Else
MsgBox \"You made an incorrect selection!\",64,strTitle
End Select


Loop




Case \"exit\"
Wscript.Quit

Case Else
MsgBox \"Verkeerd\",0,\"Thedender & Nubclubber\"
End Select

Loop

---

feef

---

eeh spaM?

---

ik dacht al hoe komt het tog dat dit topic zo lang is

---