WSH kerdes

[Sass Róbert]

Hát ezen jót nevettem. Komolyan.
Lehet, hogy működne... de... hát... nem is tudom szavakba önteni, hogy mit 
érzek :-D
Azért én kíváncsi vagyok, hogy mi lehet a másik oldalon. Tehát milyen 
weboldalra kell küldeni, meg egyátalán miért kell ezt megcsinálni?
Meg miért csak pont arról a gépről?
Biztos, hogy nincs rá jobb mód? Mondjuk felhívni az oldal webmesterét és 
mondani neki, hogy futtasson már le egy scriptet, ami 2012.jan.01-ig az 
összes napra beszúr egy ilyen sort az adatbázisba.
Egyébként tényleg érdekel, hogy mi lehet az a probléma, amit csak így lehet 
megoldni.


----- Original Message ----- 
From: "Nagy Sándor" <lwolf at freemail.hu>
To: "Techinfo" <techinfo at lista.sulinet.hu>
Sent: Monday, September 10, 2007 7:34 PM
Subject: Re: WSH kerdes


> Kovács Marietta írta:
>> A következő feladatot kellene automatizálni:
>>
>> 1. Minden nap 23.59-kor egy Windows XP Prof gépnek meg kellene nyitnia 
>> egy adott weblapot.
>>
> Én a szerveren beütemeznék egy feladatot, ami küld egy WOL kérést ennek a 
> gépnek a MAC címére, az időpont előtti biztonságos időben, /boot idő ;)/ a 
> Windows XP automatikus bejelentkeztetés evidens, 23.59-re pedig az alábbi 
> szkripthez hasonlót lehetne beütemezni a célgépen. De most hogy így 
> belegondolok a PSEXEC segítségével történő távoli futtatás is lehet 
> megoldás.
>> 2. A weblapon van egy HTML űrlap. Ennek egy adott mezőjébe be kellene 
>> írni az aznapi dátumot, majd az űrlapot elküldeni.
>>
> Az alábbi kódot beillesztve egy iestart.vbs futtatható fájlba, és ízlés 
> szerint időzítve/billentyűkombókat megadva, a feladat nagy biztonsággal 
> megoldható. (Kommentek közbeszúrva, a HTML űrlap szerkezetének ismeretében 
> meghatározható hányadik tabuláló pozíción található, akár a küldés gombra 
> is rá lehet tabulálni a végén, ha az enter kevés)
>
> ' // Automatizálás mintapélda
> ' // Tesztkörnyezet: Win XP SP2 és IE6
> ' // Kód kezdete
> set Sh = WScript.CreateObject("WScript.Shell")
> 'elindítjuk a böngészőt a megadott internetcímmel: filmkatalogus.hu
> Sh.Run Chr(34)&"%ProgramFiles%\Internet Explorer\IEXPLORE.EXE"&Chr(34)& " 
> http://filmkatalogus.hu/", 1, False
> 'megvárjuk míg elindul (bemért idő + biztonsági ráhagyás 
> ezredmásodpercben!)
> WScript.Sleep 5000
> '// beadható billentyűkről itt 
> http://www.winguides.com/scripting/reference.php?id=149
> '17 TAB lenyomás szimulálásával elérünk a kívánt beviteli mezőig
> For i = 1 To 17
> Sh.SendKeys "{TAB}"
> WScript.Sleep 100
> Next
> ' beadjuk a dátumot nekünk tetsző formában (év/hó/nap), majd ENTERrel 
> jóváhagyjuk
> Sh.SendKeys Year(Date) & "/" & Month(Date) & "/" & Day(Date)
> Sh.SendKeys "{ENTER}"
> 'Várunk 10 másodpercet, majd ALT-F4 kombóval bezárjuk az alkalmazást
> WScript.Sleep 10000
> Sh.SendKeys "%{F4}"
> WScript.Quit 0
> '// Kód vége
>
> Ha menetközben elveszíti a böngésző a fókuszt, pl beugrik a víruskereső 
> ablaka, onnantól vége. :) Persze lehetne minden utasítás előtt egy
> Sh.AppActivate "Microsoft Internet Explorer"
> utasítást is kiadni....
>
> Sok sikert!
> N.S.
> _______________________________________________
> Techinfo mailing list
> Techinfo at lista.sulinet.hu
> http://lista.sulinet.hu/mailman/listinfo/techinfo
> Illemtan: http://www.1let.hu/illemtan.html
> Ügyfélszolgálat FAQ: http://www.sulinet.hu/tart/cikk/sc/0/19789/1
>