Keresés Kategóriák Kedvencek

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

Készítette: interful
2010. október 14. 10:44:02 - 6274 megtekintés
  • Fájlok törlésének módját mutatom meg VBS programozás használatával.

  • 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

  • Címkék:

    fájl törlés vbs programozás számítástechnika
Kapcsolódó videók Hozzászólások
marci010101 - 11 éve, 9 hónapja

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, 5 hónapja

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

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, 6 hónapja

Ízlések és pofonok! 8)

xkoti - 13 éve, 6 hónapja

nem tom sztem nem volt valami érdekes

Tovább
Mobil verzió - Normál verzió

© 2024 Next Project Kft. - Minden jog fenntartva.