Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Kysymys 1.
Miksei alla oleva scripti pelaa koneellani. Toisella koneella toimii eli aukaisee halutun nettisivun, mutta toisella koneella tiedosto aukee kuin tavallinen teksti tiedosta vaikka on tallennettu oikeassa muodossa. Toinen kone on kyllakin kone jota kytan remote tyopoydan yli, mutta ei kai sen tuohon pitais vaikuttaa.
Kysymys 2.
Onko jotenkin mahdollista tehda niin etta kun tuon scriptin avaa niin scripti kysyy etta montako kertaa kyseinen ikkuna avataan. Scripti kuitenkin toimii toisella koneella.
Option Explicit
Dim objShell
err.number = vbEmpty
set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run """C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & "https://www.ohjelmointiputka.net"
WScript.Sleep 500
Wscript.QuitMoikka kermiitti!
kokeile vaikka näin...
(nappaa sitä kuvaketta)
'putka.vbs
getSomeAction
sub getSomeAction()
Dim objShell
set objShell=CreateObject("WScript.Shell")
objShell.Run "https://www.ohjelmointiputka.net"
end subselaimella:
<HTML><HEAD></HEAD> <script language="vbscript" src="putka.vbs"> </script><BODY onload="getSomeAction()"></BODY></HTML>
EDIT:
lisää vielä objektin tappo scriptin aliohjelman viimeiseksi riviksi...
set objShell = Nothing
Aihe on jo aika vanha, joten et voi enää vastata siihen.