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
marci010101 - 8 éve, 3 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 - 9 éve, 11 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 - 9 éve, 12 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 - 10 éve

Ízlések és pofonok! 8)

xkoti - 10 éve

nem tom sztem nem volt valami érdekes