Facebook bejelentkezés
Üdvözlünk az oldalon!
Lépj be, vagy regisztrálj
Felvéve: 13 éve, 5 hónapja
Értékeld a videót:
6 szavazat alapján
Értékeléshez lépj be!

további opciók »

A(z) "Fájlok kitörlése VBS programozás segítségével" című videótipp megosztásához használhatod a saját leveleződet, vagy ezt a felületet:
Neved:

E-mail címed:

Címzett e-mail címe:
Üzenet (opcionális):

Ez a videótipp a következő klub(ok)ba tartozik:


Ha van egy kis időd, nézz szét meglévő klubjaink között!

  • Nyomtatás

    Fájlok kitörlése VBS programozás segítségével

    2010. október 14. 10:44:02 |

    Készítette: interful

    Fájlok törlésének módját mutatom meg VBS programozás használatával.

    Fájlok kitörlése VBS programozás segítségével részlet

  • Amire szükségünk van

    számítógép
  • Fájlok kitörlése VBS programozás segítségével

    Az alábbi kódot használjuk:
    Set WshShell = WScript.CreateObject("WScript.Shell")
    For i = 0 to 2
    WshShell.SendKeys "{Ide írd me a kitörölendő fájlnak a kezdőbetüjét!}"
    WScript.Sleep 60

    If (i mod 2) Then WScript.Sleep 200
    Next

Vélemények, hozzászólások

Rendezés:
Hozzászóláshoz jelentkezz be, vagy regisztrálj!
1. oldal 2 Következő oldal
marci010101 (11 éve, 8 hónapja)
2012. július 20., 13:32:08 , kommentjeim száma: 16 db

7

Szerintetek mi lesz, ha kombinálom a hibaüzenetet és a trójai vírust???
Ez a kód működne?
x=msgbox ("Vírus vagyok, és megszálltam a gépedet!" ,0+16, "Vírushiba")
shutdown -s -t 50 -c
robert102 (13 éve, 4 hónapja)
2010. november 3., 15:50:05 , kommentjeim száma: 22 db

6

Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to 2
WshShell.SendKeys "{delete}"
WScript.Sleep 60
WshShell.SendKeys "{enter}"
WScript.Sleep 60
If (i mod 2) Then WScript.Sleep 200
Next

Készíts egy új szöveges dokumentumot, írd bele a fönti szöveget.
Mentsd a fájlt akármi.vbs névre! És kész is.

De sajnos ez se sok mindenre jó
kevin005 (13 éve, 5 hónapja)
2010. október 27., 19:04:44 , kommentjeim száma: 35 db

5

Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to 2
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
WshShell.SendKeys "{q}"
WScript.Sleep 60
If (i mod 2) Then WScript.Sleep 200
Next

KIcsit felturbóztam
Hozz létre egy új jegyzettömböt nevezd át q-ra hozz létre még egyet az pedig qu-ra. Nagyon király O)
interful (13 éve, 5 hónapja)
2010. október 17., 13:46:59 , kommentjeim száma: 168 db

4

...válasz xkoti 3. kommentjére:
Ízlések és pofonok! 8)
xkoti (13 éve, 5 hónapja)
2010. október 15., 21:35:35 , kommentjeim száma: 247 db

3

nem tom sztem nem volt valami érdekes
1. oldal 2 Következő oldal

Statisztika

Megtekintések száma: 6274 Hozzászólások: 7
- VideoSmart.hu-n: 6274 Kedvencek között: 4
- Más oldalon: 0 Értékelések: 6
interful kicsi avatar interful

interful további videótippjei »

Fájlok törlésének módját mutatom meg VBS programozás használatával. (több infó) (kevesebb infó)

Videó beillesztése:

(hogyan működik?)